test
This commit is contained in:
41
Aviso/Anhänge/frmAddSendnung.Designer.vb
generated
41
Aviso/Anhänge/frmAddSendnung.Designer.vb
generated
@@ -47,6 +47,8 @@ Partial Class frmAddSendnung
|
|||||||
Me.txtWarenwertWaehrung = New VERAG_PROG_ALLGEMEIN.MySearchBox()
|
Me.txtWarenwertWaehrung = New VERAG_PROG_ALLGEMEIN.MySearchBox()
|
||||||
Me.lblWW = New System.Windows.Forms.Label()
|
Me.lblWW = New System.Windows.Forms.Label()
|
||||||
Me.txtWarenwert = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
Me.txtWarenwert = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||||
|
Me.Label5 = New System.Windows.Forms.Label()
|
||||||
|
Me.cboAbfertigungsLand = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||||
CType(Me.picWarnAbsender, System.ComponentModel.ISupportInitialize).BeginInit()
|
CType(Me.picWarnAbsender, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
CType(Me.picWarnEmpfaenger, System.ComponentModel.ISupportInitialize).BeginInit()
|
CType(Me.picWarnEmpfaenger, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
Me.SuspendLayout()
|
Me.SuspendLayout()
|
||||||
@@ -59,9 +61,9 @@ Partial Class frmAddSendnung
|
|||||||
Me.cboAbfertigungsart.BackColor = System.Drawing.Color.White
|
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.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.FormattingEnabled = True
|
||||||
Me.cboAbfertigungsart.Location = New System.Drawing.Point(12, 29)
|
Me.cboAbfertigungsart.Location = New System.Drawing.Point(102, 29)
|
||||||
Me.cboAbfertigungsart.Name = "cboAbfertigungsart"
|
Me.cboAbfertigungsart.Name = "cboAbfertigungsart"
|
||||||
Me.cboAbfertigungsart.Size = New System.Drawing.Size(425, 24)
|
Me.cboAbfertigungsart.Size = New System.Drawing.Size(335, 24)
|
||||||
Me.cboAbfertigungsart.TabIndex = 1
|
Me.cboAbfertigungsart.TabIndex = 1
|
||||||
'
|
'
|
||||||
'Label1
|
'Label1
|
||||||
@@ -69,7 +71,7 @@ Partial Class frmAddSendnung
|
|||||||
Me.Label1.AutoSize = True
|
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.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.ForeColor = System.Drawing.Color.Black
|
||||||
Me.Label1.Location = New System.Drawing.Point(10, 9)
|
Me.Label1.Location = New System.Drawing.Point(99, 9)
|
||||||
Me.Label1.Name = "Label1"
|
Me.Label1.Name = "Label1"
|
||||||
Me.Label1.Size = New System.Drawing.Size(109, 17)
|
Me.Label1.Size = New System.Drawing.Size(109, 17)
|
||||||
Me.Label1.TabIndex = 0
|
Me.Label1.TabIndex = 0
|
||||||
@@ -86,6 +88,7 @@ Partial Class frmAddSendnung
|
|||||||
Me.txtEmpfaenger._displayWoelflKd = False
|
Me.txtEmpfaenger._displayWoelflKd = False
|
||||||
Me.txtEmpfaenger._hideIfListEmpty = True
|
Me.txtEmpfaenger._hideIfListEmpty = True
|
||||||
Me.txtEmpfaenger._loadKdData = True
|
Me.txtEmpfaenger._loadKdData = True
|
||||||
|
Me.txtEmpfaenger._searchName1 = True
|
||||||
Me.txtEmpfaenger._UseFIRMA = ""
|
Me.txtEmpfaenger._UseFIRMA = ""
|
||||||
Me.txtEmpfaenger._ValueKdAndName = True
|
Me.txtEmpfaenger._ValueKdAndName = True
|
||||||
Me.txtEmpfaenger.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
|
Me.txtEmpfaenger.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
|
||||||
@@ -109,6 +112,7 @@ Partial Class frmAddSendnung
|
|||||||
Me.txtGewicht._DateTimeOnly = False
|
Me.txtGewicht._DateTimeOnly = False
|
||||||
Me.txtGewicht._numbersOnly = True
|
Me.txtGewicht._numbersOnly = True
|
||||||
Me.txtGewicht._numbersOnlyKommastellen = ""
|
Me.txtGewicht._numbersOnlyKommastellen = ""
|
||||||
|
Me.txtGewicht._numbersOnlyTrennzeichen = True
|
||||||
Me.txtGewicht._Prozent = False
|
Me.txtGewicht._Prozent = False
|
||||||
Me.txtGewicht._ShortDateNew = False
|
Me.txtGewicht._ShortDateNew = False
|
||||||
Me.txtGewicht._ShortDateOnly = False
|
Me.txtGewicht._ShortDateOnly = False
|
||||||
@@ -150,6 +154,7 @@ Partial Class frmAddSendnung
|
|||||||
Me.txtColli._DateTimeOnly = False
|
Me.txtColli._DateTimeOnly = False
|
||||||
Me.txtColli._numbersOnly = True
|
Me.txtColli._numbersOnly = True
|
||||||
Me.txtColli._numbersOnlyKommastellen = ""
|
Me.txtColli._numbersOnlyKommastellen = ""
|
||||||
|
Me.txtColli._numbersOnlyTrennzeichen = True
|
||||||
Me.txtColli._Prozent = False
|
Me.txtColli._Prozent = False
|
||||||
Me.txtColli._ShortDateNew = False
|
Me.txtColli._ShortDateNew = False
|
||||||
Me.txtColli._ShortDateOnly = False
|
Me.txtColli._ShortDateOnly = False
|
||||||
@@ -230,6 +235,7 @@ Partial Class frmAddSendnung
|
|||||||
Me.txtAbsender._displayWoelflKd = False
|
Me.txtAbsender._displayWoelflKd = False
|
||||||
Me.txtAbsender._hideIfListEmpty = True
|
Me.txtAbsender._hideIfListEmpty = True
|
||||||
Me.txtAbsender._loadKdData = True
|
Me.txtAbsender._loadKdData = True
|
||||||
|
Me.txtAbsender._searchName1 = True
|
||||||
Me.txtAbsender._UseFIRMA = ""
|
Me.txtAbsender._UseFIRMA = ""
|
||||||
Me.txtAbsender._ValueKdAndName = True
|
Me.txtAbsender._ValueKdAndName = True
|
||||||
Me.txtAbsender.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
|
Me.txtAbsender.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
|
||||||
@@ -360,6 +366,7 @@ Partial Class frmAddSendnung
|
|||||||
Me.txtWarenwert._DateTimeOnly = False
|
Me.txtWarenwert._DateTimeOnly = False
|
||||||
Me.txtWarenwert._numbersOnly = True
|
Me.txtWarenwert._numbersOnly = True
|
||||||
Me.txtWarenwert._numbersOnlyKommastellen = ""
|
Me.txtWarenwert._numbersOnlyKommastellen = ""
|
||||||
|
Me.txtWarenwert._numbersOnlyTrennzeichen = True
|
||||||
Me.txtWarenwert._Prozent = False
|
Me.txtWarenwert._Prozent = False
|
||||||
Me.txtWarenwert._ShortDateNew = False
|
Me.txtWarenwert._ShortDateNew = False
|
||||||
Me.txtWarenwert._ShortDateOnly = False
|
Me.txtWarenwert._ShortDateOnly = False
|
||||||
@@ -378,12 +385,38 @@ Partial Class frmAddSendnung
|
|||||||
Me.txtWarenwert.TabIndex = 15
|
Me.txtWarenwert.TabIndex = 15
|
||||||
Me.txtWarenwert.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
|
Me.txtWarenwert.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
|
||||||
'
|
'
|
||||||
|
'Label5
|
||||||
|
'
|
||||||
|
Me.Label5.AutoSize = True
|
||||||
|
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
|
Me.Label5.ForeColor = System.Drawing.Color.Black
|
||||||
|
Me.Label5.Location = New System.Drawing.Point(9, 9)
|
||||||
|
Me.Label5.Name = "Label5"
|
||||||
|
Me.Label5.Size = New System.Drawing.Size(74, 17)
|
||||||
|
Me.Label5.TabIndex = 88
|
||||||
|
Me.Label5.Text = "Abf.-Land:"
|
||||||
|
'
|
||||||
|
'cboAbfertigungsLand
|
||||||
|
'
|
||||||
|
Me.cboAbfertigungsLand._allowedValuesFreiText = Nothing
|
||||||
|
Me.cboAbfertigungsLand._allowFreiText = False
|
||||||
|
Me.cboAbfertigungsLand._value = ""
|
||||||
|
Me.cboAbfertigungsLand.BackColor = System.Drawing.Color.White
|
||||||
|
Me.cboAbfertigungsLand.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
|
Me.cboAbfertigungsLand.FormattingEnabled = True
|
||||||
|
Me.cboAbfertigungsLand.Location = New System.Drawing.Point(15, 29)
|
||||||
|
Me.cboAbfertigungsLand.Name = "cboAbfertigungsLand"
|
||||||
|
Me.cboAbfertigungsLand.Size = New System.Drawing.Size(68, 24)
|
||||||
|
Me.cboAbfertigungsLand.TabIndex = 89
|
||||||
|
'
|
||||||
'frmAddSendnung
|
'frmAddSendnung
|
||||||
'
|
'
|
||||||
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(449, 441)
|
Me.ClientSize = New System.Drawing.Size(449, 441)
|
||||||
|
Me.Controls.Add(Me.cboAbfertigungsLand)
|
||||||
|
Me.Controls.Add(Me.Label5)
|
||||||
Me.Controls.Add(Me.txtWarenwertWaehrung)
|
Me.Controls.Add(Me.txtWarenwertWaehrung)
|
||||||
Me.Controls.Add(Me.lblWW)
|
Me.Controls.Add(Me.lblWW)
|
||||||
Me.Controls.Add(Me.txtWarenwert)
|
Me.Controls.Add(Me.txtWarenwert)
|
||||||
@@ -440,4 +473,6 @@ Partial Class frmAddSendnung
|
|||||||
Friend WithEvents txtWarenwertWaehrung As VERAG_PROG_ALLGEMEIN.MySearchBox
|
Friend WithEvents txtWarenwertWaehrung As VERAG_PROG_ALLGEMEIN.MySearchBox
|
||||||
Friend WithEvents lblWW As Label
|
Friend WithEvents lblWW As Label
|
||||||
Friend WithEvents txtWarenwert As VERAG_PROG_ALLGEMEIN.MyTextBox
|
Friend WithEvents txtWarenwert As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||||
|
Friend WithEvents Label5 As Label
|
||||||
|
Friend WithEvents cboAbfertigungsLand As VERAG_PROG_ALLGEMEIN.MyComboBox
|
||||||
End Class
|
End Class
|
||||||
|
|||||||
@@ -3,10 +3,12 @@
|
|||||||
Public Sendung As VERAG_PROG_ALLGEMEIN.cSendungen = Nothing
|
Public Sendung As VERAG_PROG_ALLGEMEIN.cSendungen = Nothing
|
||||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||||
Dim AvisoId As Integer
|
Dim AvisoId As Integer
|
||||||
|
Dim filialNr As Integer = -1
|
||||||
Dim AVISOFUNC As New AvisoStatusFunctions
|
Dim AVISOFUNC As New AvisoStatusFunctions
|
||||||
Public SendungsId As Integer = -1
|
Public SendungsId As Integer = -1
|
||||||
Public frmName As String = "Sendung hinzufügen"
|
Public frmName As String = "Sendung hinzufügen"
|
||||||
Sub New(AvisoId)
|
|
||||||
|
Sub New(AvisoId As Integer)
|
||||||
|
|
||||||
' Dieser Aufruf ist für den Designer erforderlich.
|
' Dieser Aufruf ist für den Designer erforderlich.
|
||||||
InitializeComponent()
|
InitializeComponent()
|
||||||
@@ -15,7 +17,7 @@
|
|||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Sub New(AvisoId, SENDUNG)
|
Sub New(AvisoId As Integer, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen)
|
||||||
|
|
||||||
' Dieser Aufruf ist für den Designer erforderlich.
|
' Dieser Aufruf ist für den Designer erforderlich.
|
||||||
InitializeComponent()
|
InitializeComponent()
|
||||||
@@ -27,7 +29,7 @@
|
|||||||
|
|
||||||
|
|
||||||
|
|
||||||
Sub New(AvisoId, SENDUNG, frmName)
|
Sub New(AvisoId As Integer, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, frmName As String)
|
||||||
|
|
||||||
' Dieser Aufruf ist für den Designer erforderlich.
|
' Dieser Aufruf ist für den Designer erforderlich.
|
||||||
InitializeComponent()
|
InitializeComponent()
|
||||||
@@ -36,12 +38,24 @@
|
|||||||
Me.frmName = frmName
|
Me.frmName = frmName
|
||||||
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Sub New(AvisoId As Integer, FilialNr As Integer)
|
||||||
|
|
||||||
|
' Dieser Aufruf ist für den Designer erforderlich.
|
||||||
|
InitializeComponent()
|
||||||
|
Me.AvisoId = AvisoId
|
||||||
|
Me.filialNr = FilialNr
|
||||||
|
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
Private Sub frmAddSendnung_Load(sender As Object, e As EventArgs) Handles Me.Load
|
Private Sub frmAddSendnung_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||||
|
|
||||||
|
|
||||||
'Me.Text = frmName
|
'Me.Text = frmName
|
||||||
|
|
||||||
|
cboAbfertigungsLand.fillWithSQL("SELECT [AbfertigungsLand],AbfertigungsLand FROM [AbfertigungsLaender] WHERE Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' OR (Firma is null and cluster is null)", False, "FMZOLL", True)
|
||||||
|
|
||||||
cboAbfertigungsart.fillWithSQL("SELECT [Abfertigungsart],[Abfertigungsbezeichnung] FROM [Abfertigungsarten] ", True, "FMZOLL", True)
|
cboAbfertigungsart.fillWithSQL("SELECT [Abfertigungsart],[Abfertigungsbezeichnung] FROM [Abfertigungsarten] ", True, "FMZOLL", True)
|
||||||
txtEmpfaenger.initKdBox(Me)
|
txtEmpfaenger.initKdBox(Me)
|
||||||
txtEmpfaenger.usrcntlWIDTH = 360
|
txtEmpfaenger.usrcntlWIDTH = 360
|
||||||
@@ -98,7 +112,7 @@
|
|||||||
If txtGewicht.Text <> "" And Not IsNumeric(txtGewicht.Text) Then MsgBox("Gewicht: Falsches Format") : Exit Sub
|
If txtGewicht.Text <> "" And Not IsNumeric(txtGewicht.Text) Then MsgBox("Gewicht: Falsches Format") : Exit Sub
|
||||||
|
|
||||||
If Sendung Is Nothing Then
|
If Sendung Is Nothing Then
|
||||||
Sendung = New VERAG_PROG_ALLGEMEIN.cSendungen(AvisoId, SQL.getValueTxtBySql("SELECT Count(*)+1 FROM tblSendungen WHERE tblSnd_AvisoID=" & AvisoId & "", "AVISO"),,,, 0)
|
Sendung = New VERAG_PROG_ALLGEMEIN.cSendungen(AvisoId, SQL.getValueTxtBySql("SELECT Count(*)+1 FROM tblSendungen WHERE tblSnd_AvisoID=" & AvisoId & "", "AVISO"), filialNr,,, 0)
|
||||||
End If
|
End If
|
||||||
|
|
||||||
Sendung.tblSnd_Abfertigungsart_ID = If(cboAbfertigungsart._value <> "", cboAbfertigungsart._value, -1)
|
Sendung.tblSnd_Abfertigungsart_ID = If(cboAbfertigungsart._value <> "", cboAbfertigungsart._value, -1)
|
||||||
@@ -213,4 +227,34 @@
|
|||||||
Private Sub txtGewicht_Leave(sender As Object, e As EventArgs) Handles txtGewicht.Leave, txtColli.Leave
|
Private Sub txtGewicht_Leave(sender As Object, e As EventArgs) Handles txtGewicht.Leave, txtColli.Leave
|
||||||
sender.Text = sender.Text.Replace(" ", "")
|
sender.Text = sender.Text.Replace(" ", "")
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
|
Private Sub cboAbfertigungsLand_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboAbfertigungsLand.SelectedIndexChanged
|
||||||
|
|
||||||
|
initAbfertigungsart()
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Sub initAbfertigungsart(Optional fillwithAbfNr As Boolean = False, Optional AbfNr As Object = Nothing)
|
||||||
|
Dim abfTmp As String = cboAbfertigungsart._value
|
||||||
|
|
||||||
|
Dim filialNrwhere = filialNr
|
||||||
|
If Sendung Is Nothing AndAlso AvisoId > 0 AndAlso filialNr < 1 Then
|
||||||
|
Sendung = New VERAG_PROG_ALLGEMEIN.cSendungen(AvisoId, SQL.getValueTxtBySql("SELECT Count(*) FROM tblSendungen WHERE tblSnd_AvisoID=" & AvisoId & "", "AVISO"),,,, 0)
|
||||||
|
filialNrwhere = IIf(filialNr > 0, filialNr, Sendung.FilialenNr)
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
cboAbfertigungsart.fillWithSQL("
|
||||||
|
SELECT AA.Abfertigungsart,AA.[Abfertigungsbezeichnung] FROM [Abfertigungsarten]as AA
|
||||||
|
INNER JOIN AbfertigungsLaenderAbfertigungsarten as ALA ON AA.Abfertigungsart=ALA.Abfertigungsart
|
||||||
|
INNER JOIN tblAbfertigungsartenFiliale ON tblAbfertigungsartenFiliale.Abfertigungsart=AA.Abfertigungsart
|
||||||
|
WHERE ALA.[AbfertigungsLand]='" & cboAbfertigungsLand._value & "'
|
||||||
|
AND Filialennr='" & filialNrwhere & "'
|
||||||
|
GROUP BY AA.Abfertigungsart,AA.[Abfertigungsbezeichnung]", True, "FMZOLL", True)
|
||||||
|
If abfTmp <> "" Then
|
||||||
|
cboAbfertigungsart.changeItem(abfTmp)
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
End Class
|
End Class
|
||||||
90
Aviso/Anhänge/frmSendungAnhangImport.Designer.vb
generated
90
Aviso/Anhänge/frmSendungAnhangImport.Designer.vb
generated
@@ -22,9 +22,12 @@ Partial Class frmSendungAnhangImport
|
|||||||
'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()
|
||||||
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.flpnlSendungen = New System.Windows.Forms.FlowLayoutPanel()
|
Me.flpnlSendungen = New System.Windows.Forms.FlowLayoutPanel()
|
||||||
Me.lblSendungen = New System.Windows.Forms.Label()
|
Me.lblSendungen = New System.Windows.Forms.Label()
|
||||||
Me.lblImport = New System.Windows.Forms.Label()
|
Me.lblImport = New System.Windows.Forms.Label()
|
||||||
@@ -46,7 +49,7 @@ Partial Class frmSendungAnhangImport
|
|||||||
Me.lblSeiten = New System.Windows.Forms.Label()
|
Me.lblSeiten = New System.Windows.Forms.Label()
|
||||||
Me.cbxDelPDF = New System.Windows.Forms.CheckBox()
|
Me.cbxDelPDF = New System.Windows.Forms.CheckBox()
|
||||||
Me.btnAdd = New System.Windows.Forms.Button()
|
Me.btnAdd = New System.Windows.Forms.Button()
|
||||||
Me.cntxt = New System.Windows.Forms.ContextMenuStrip()
|
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.AusZwischenablageeinfügenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||||
@@ -54,6 +57,7 @@ Partial Class frmSendungAnhangImport
|
|||||||
Me.pnl = New System.Windows.Forms.Panel()
|
Me.pnl = New System.Windows.Forms.Panel()
|
||||||
Me.Button5 = New System.Windows.Forms.Button()
|
Me.Button5 = New System.Windows.Forms.Button()
|
||||||
Me.PdfViewer = New Spire.PdfViewer.Forms.PdfViewer()
|
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.btnSndDel = New System.Windows.Forms.Button()
|
Me.btnSndDel = New System.Windows.Forms.Button()
|
||||||
Me.PrintDocument1 = New System.Drawing.Printing.PrintDocument()
|
Me.PrintDocument1 = New System.Drawing.Printing.PrintDocument()
|
||||||
@@ -68,9 +72,6 @@ Partial Class frmSendungAnhangImport
|
|||||||
Me.Button17 = New System.Windows.Forms.Button()
|
Me.Button17 = New System.Windows.Forms.Button()
|
||||||
Me.lblRgPreis = New System.Windows.Forms.Label()
|
Me.lblRgPreis = New System.Windows.Forms.Label()
|
||||||
Me.pnlSendung = New System.Windows.Forms.Panel()
|
Me.pnlSendung = New System.Windows.Forms.Panel()
|
||||||
Me.UsrCntlSendungAnhangElement1 = New AVISO.usrCntlSendungAnhangElement()
|
|
||||||
Me.UsrCntlSendungAnhangElement2 = New AVISO.usrCntlSendungAnhangElement()
|
|
||||||
Me.WebBrowser = New System.Windows.Forms.WebBrowser()
|
|
||||||
Me.flpnlAviso.SuspendLayout()
|
Me.flpnlAviso.SuspendLayout()
|
||||||
Me.pnlAnfuegen.SuspendLayout()
|
Me.pnlAnfuegen.SuspendLayout()
|
||||||
Me.cntxt.SuspendLayout()
|
Me.cntxt.SuspendLayout()
|
||||||
@@ -102,6 +103,38 @@ Partial Class frmSendungAnhangImport
|
|||||||
Me.flpnlAviso.Size = New System.Drawing.Size(200, 825)
|
Me.flpnlAviso.Size = New System.Drawing.Size(200, 825)
|
||||||
Me.flpnlAviso.TabIndex = 7
|
Me.flpnlAviso.TabIndex = 7
|
||||||
'
|
'
|
||||||
|
'UsrCntlSendungAnhangElement1
|
||||||
|
'
|
||||||
|
Me.UsrCntlSendungAnhangElement1.ACTIVE = False
|
||||||
|
Me.UsrCntlSendungAnhangElement1.BackColor = System.Drawing.Color.White
|
||||||
|
Me.UsrCntlSendungAnhangElement1.FILE_ANHID = Nothing
|
||||||
|
Me.UsrCntlSendungAnhangElement1.FILE_DOCID = Nothing
|
||||||
|
Me.UsrCntlSendungAnhangElement1.FILE_NAME = "False"
|
||||||
|
Me.UsrCntlSendungAnhangElement1.FILE_PAGES = Nothing
|
||||||
|
Me.UsrCntlSendungAnhangElement1.FILE_PATH = Nothing
|
||||||
|
Me.UsrCntlSendungAnhangElement1.FILE_SIZE = "False"
|
||||||
|
Me.UsrCntlSendungAnhangElement1.FILE_TYPE = Nothing
|
||||||
|
Me.UsrCntlSendungAnhangElement1.Location = New System.Drawing.Point(3, 3)
|
||||||
|
Me.UsrCntlSendungAnhangElement1.Name = "UsrCntlSendungAnhangElement1"
|
||||||
|
Me.UsrCntlSendungAnhangElement1.Size = New System.Drawing.Size(130, 64)
|
||||||
|
Me.UsrCntlSendungAnhangElement1.TabIndex = 0
|
||||||
|
'
|
||||||
|
'UsrCntlSendungAnhangElement2
|
||||||
|
'
|
||||||
|
Me.UsrCntlSendungAnhangElement2.ACTIVE = False
|
||||||
|
Me.UsrCntlSendungAnhangElement2.BackColor = System.Drawing.Color.White
|
||||||
|
Me.UsrCntlSendungAnhangElement2.FILE_ANHID = Nothing
|
||||||
|
Me.UsrCntlSendungAnhangElement2.FILE_DOCID = Nothing
|
||||||
|
Me.UsrCntlSendungAnhangElement2.FILE_NAME = "False"
|
||||||
|
Me.UsrCntlSendungAnhangElement2.FILE_PAGES = Nothing
|
||||||
|
Me.UsrCntlSendungAnhangElement2.FILE_PATH = Nothing
|
||||||
|
Me.UsrCntlSendungAnhangElement2.FILE_SIZE = "False"
|
||||||
|
Me.UsrCntlSendungAnhangElement2.FILE_TYPE = Nothing
|
||||||
|
Me.UsrCntlSendungAnhangElement2.Location = New System.Drawing.Point(3, 73)
|
||||||
|
Me.UsrCntlSendungAnhangElement2.Name = "UsrCntlSendungAnhangElement2"
|
||||||
|
Me.UsrCntlSendungAnhangElement2.Size = New System.Drawing.Size(130, 64)
|
||||||
|
Me.UsrCntlSendungAnhangElement2.TabIndex = 1
|
||||||
|
'
|
||||||
'flpnlSendungen
|
'flpnlSendungen
|
||||||
'
|
'
|
||||||
Me.flpnlSendungen.AllowDrop = True
|
Me.flpnlSendungen.AllowDrop = True
|
||||||
@@ -463,6 +496,7 @@ Partial Class frmSendungAnhangImport
|
|||||||
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.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.FormFillEnabled = False
|
Me.PdfViewer.FormFillEnabled = False
|
||||||
Me.PdfViewer.IgnoreCase = False
|
Me.PdfViewer.IgnoreCase = False
|
||||||
|
Me.PdfViewer.ImeMode = System.Windows.Forms.ImeMode.NoControl
|
||||||
Me.PdfViewer.IsToolBarVisible = True
|
Me.PdfViewer.IsToolBarVisible = True
|
||||||
Me.PdfViewer.Location = New System.Drawing.Point(0, 0)
|
Me.PdfViewer.Location = New System.Drawing.Point(0, 0)
|
||||||
Me.PdfViewer.MultiPagesThreshold = 60
|
Me.PdfViewer.MultiPagesThreshold = 60
|
||||||
@@ -473,6 +507,15 @@ Partial Class frmSendungAnhangImport
|
|||||||
Me.PdfViewer.Threshold = 60
|
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))
|
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
|
'Button3
|
||||||
'
|
'
|
||||||
Me.Button3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
Me.Button3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||||
@@ -631,45 +674,6 @@ Partial Class frmSendungAnhangImport
|
|||||||
Me.pnlSendung.Size = New System.Drawing.Size(243, 860)
|
Me.pnlSendung.Size = New System.Drawing.Size(243, 860)
|
||||||
Me.pnlSendung.TabIndex = 0
|
Me.pnlSendung.TabIndex = 0
|
||||||
'
|
'
|
||||||
'UsrCntlSendungAnhangElement1
|
|
||||||
'
|
|
||||||
Me.UsrCntlSendungAnhangElement1.ACTIVE = False
|
|
||||||
Me.UsrCntlSendungAnhangElement1.BackColor = System.Drawing.Color.White
|
|
||||||
Me.UsrCntlSendungAnhangElement1.FILE_ANHID = Nothing
|
|
||||||
Me.UsrCntlSendungAnhangElement1.FILE_DOCID = Nothing
|
|
||||||
Me.UsrCntlSendungAnhangElement1.FILE_NAME = "False"
|
|
||||||
Me.UsrCntlSendungAnhangElement1.FILE_PAGES = Nothing
|
|
||||||
Me.UsrCntlSendungAnhangElement1.FILE_PATH = Nothing
|
|
||||||
Me.UsrCntlSendungAnhangElement1.FILE_TYPE = Nothing
|
|
||||||
Me.UsrCntlSendungAnhangElement1.Location = New System.Drawing.Point(3, 3)
|
|
||||||
Me.UsrCntlSendungAnhangElement1.Name = "UsrCntlSendungAnhangElement1"
|
|
||||||
Me.UsrCntlSendungAnhangElement1.Size = New System.Drawing.Size(130, 64)
|
|
||||||
Me.UsrCntlSendungAnhangElement1.TabIndex = 0
|
|
||||||
'
|
|
||||||
'UsrCntlSendungAnhangElement2
|
|
||||||
'
|
|
||||||
Me.UsrCntlSendungAnhangElement2.ACTIVE = False
|
|
||||||
Me.UsrCntlSendungAnhangElement2.BackColor = System.Drawing.Color.White
|
|
||||||
Me.UsrCntlSendungAnhangElement2.FILE_ANHID = Nothing
|
|
||||||
Me.UsrCntlSendungAnhangElement2.FILE_DOCID = Nothing
|
|
||||||
Me.UsrCntlSendungAnhangElement2.FILE_NAME = "False"
|
|
||||||
Me.UsrCntlSendungAnhangElement2.FILE_PAGES = Nothing
|
|
||||||
Me.UsrCntlSendungAnhangElement2.FILE_PATH = Nothing
|
|
||||||
Me.UsrCntlSendungAnhangElement2.FILE_TYPE = Nothing
|
|
||||||
Me.UsrCntlSendungAnhangElement2.Location = New System.Drawing.Point(3, 73)
|
|
||||||
Me.UsrCntlSendungAnhangElement2.Name = "UsrCntlSendungAnhangElement2"
|
|
||||||
Me.UsrCntlSendungAnhangElement2.Size = New System.Drawing.Size(130, 64)
|
|
||||||
Me.UsrCntlSendungAnhangElement2.TabIndex = 1
|
|
||||||
'
|
|
||||||
'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
|
|
||||||
'
|
|
||||||
'frmSendungAnhangImport
|
'frmSendungAnhangImport
|
||||||
'
|
'
|
||||||
Me.AllowDrop = True
|
Me.AllowDrop = True
|
||||||
|
|||||||
@@ -154,10 +154,16 @@ Public Class frmSendungAnhangImport
|
|||||||
'NOT WORKING
|
'NOT WORKING
|
||||||
'PdfViewer.LoadFromFile(loc) NOT WORKING
|
'PdfViewer.LoadFromFile(loc) NOT WORKING
|
||||||
End If
|
End If
|
||||||
ElseIf typ = "BILD" Then
|
ElseIf typ = "BILD" Or typ = ".jpg" Then
|
||||||
PdfViewer.Visible = False
|
PdfViewer.Visible = False
|
||||||
WebBrowser.Visible = (loc <> "")
|
WebBrowser.Visible = (loc <> "")
|
||||||
WebBrowser.Navigate(loc)
|
' WebBrowser.Navigate(loc)
|
||||||
|
If loc <> "" Then
|
||||||
|
DisplayImageInWebBrowser(loc, WebBrowser)
|
||||||
|
Else
|
||||||
|
WebBrowser.Navigate("")
|
||||||
|
End If
|
||||||
|
|
||||||
End If
|
End If
|
||||||
Button5.Visible = PdfViewer.Visible
|
Button5.Visible = PdfViewer.Visible
|
||||||
|
|
||||||
@@ -166,6 +172,42 @@ Public Class frmSendungAnhangImport
|
|||||||
End Try
|
End Try
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
|
' Funktion zur Anzeige eines Bildes im WebBrowser
|
||||||
|
Private Sub DisplayImageInWebBrowser(imagePath As String, browser As WebBrowser)
|
||||||
|
' Dynamisches HTML erstellen
|
||||||
|
Dim html As String = $"
|
||||||
|
<!DOCTYPE html>
|
||||||
|
<html lang='en'>
|
||||||
|
<head>
|
||||||
|
<meta charset='UTF-8'>
|
||||||
|
<meta name='viewport' content='width=device-width, initial-scale=1.0'>
|
||||||
|
<title>Bild Vorschau</title>
|
||||||
|
<style>
|
||||||
|
body {{
|
||||||
|
margin: 0;
|
||||||
|
display: flex;
|
||||||
|
justify-content: center;
|
||||||
|
align-items: center;
|
||||||
|
height: 100vh;
|
||||||
|
background-color: #f0f0f0;
|
||||||
|
}}
|
||||||
|
img {{
|
||||||
|
max-width: 100%;
|
||||||
|
max-height: 100%;
|
||||||
|
object-fit: contain;
|
||||||
|
}}
|
||||||
|
</style>
|
||||||
|
</head>
|
||||||
|
<body>
|
||||||
|
<img src='file:///{imagePath.Replace("\", "/")}' alt='Bild'>
|
||||||
|
</body>
|
||||||
|
</html>
|
||||||
|
"
|
||||||
|
|
||||||
|
' HTML im WebBrowser laden
|
||||||
|
browser.DocumentText = html
|
||||||
|
End Sub
|
||||||
|
|
||||||
Function getAcitvePnl() As FlowLayoutPanel
|
Function getAcitvePnl() As FlowLayoutPanel
|
||||||
For Each u As usrCntlSendungAnhangElement In flpnlAviso.Controls
|
For Each u As usrCntlSendungAnhangElement In flpnlAviso.Controls
|
||||||
If u.ACTIVE Then Return flpnlAviso
|
If u.ACTIVE Then Return flpnlAviso
|
||||||
@@ -1611,7 +1653,16 @@ Public Class frmSendungAnhangImport
|
|||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles btnAddSnd.Click
|
Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles btnAddSnd.Click
|
||||||
Dim f As New frmAddSendnung(AvisoId)
|
|
||||||
|
If cboSendungen.SelectedItem.value Is Nothing Then Exit Sub
|
||||||
|
|
||||||
|
Dim SND As New VERAG_PROG_ALLGEMEIN.cSendungen(cboSendungen.SelectedItem.value)
|
||||||
|
|
||||||
|
If SND.FilialenNr < 1 Then MsgBox("In bestehender Sendung wurde keine Filiale ausgewählt!") : Exit Sub
|
||||||
|
|
||||||
|
Dim f = New frmAddSendnung(AvisoId, SND.FilialenNr)
|
||||||
|
|
||||||
|
|
||||||
If f.ShowDialog(Me) = DialogResult.OK Then
|
If f.ShowDialog(Me) = DialogResult.OK Then
|
||||||
initSendungen()
|
initSendungen()
|
||||||
cboSendungen.changeItem(f.SendungsId)
|
cboSendungen.changeItem(f.SendungsId)
|
||||||
@@ -1991,6 +2042,8 @@ Public Class frmSendungAnhangImport
|
|||||||
If FilePath <> "" Then
|
If FilePath <> "" Then
|
||||||
addData_SendungAnhang(FilePath)
|
addData_SendungAnhang(FilePath)
|
||||||
End If
|
End If
|
||||||
|
' ElseIf e.Data.GetDataPresent(DataFormats.drag) Then
|
||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
@@ -500,6 +500,12 @@
|
|||||||
<Compile Include="Auswertung\usrctlAuswertung.vb">
|
<Compile Include="Auswertung\usrctlAuswertung.vb">
|
||||||
<SubType>UserControl</SubType>
|
<SubType>UserControl</SubType>
|
||||||
</Compile>
|
</Compile>
|
||||||
|
<Compile Include="AvisoReports\rptQRSendung_VerwahrungApp.Designer.vb">
|
||||||
|
<DependentUpon>rptQRSendung_VerwahrungApp.vb</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="AvisoReports\rptQRSendung_VerwahrungApp.vb">
|
||||||
|
<SubType>Component</SubType>
|
||||||
|
</Compile>
|
||||||
<Compile Include="AvisoReports\rptTEST.Designer.vb">
|
<Compile Include="AvisoReports\rptTEST.Designer.vb">
|
||||||
<DependentUpon>rptTEST.vb</DependentUpon>
|
<DependentUpon>rptTEST.vb</DependentUpon>
|
||||||
</Compile>
|
</Compile>
|
||||||
@@ -1200,6 +1206,9 @@
|
|||||||
<EmbeddedResource Include="Auswertung\usrctlAuswertung.resx">
|
<EmbeddedResource Include="Auswertung\usrctlAuswertung.resx">
|
||||||
<DependentUpon>usrctlAuswertung.vb</DependentUpon>
|
<DependentUpon>usrctlAuswertung.vb</DependentUpon>
|
||||||
</EmbeddedResource>
|
</EmbeddedResource>
|
||||||
|
<EmbeddedResource Include="AvisoReports\rptQRSendung_VerwahrungApp.resx">
|
||||||
|
<DependentUpon>rptQRSendung_VerwahrungApp.vb</DependentUpon>
|
||||||
|
</EmbeddedResource>
|
||||||
<EmbeddedResource Include="AvisoReports\rptTEST.resx">
|
<EmbeddedResource Include="AvisoReports\rptTEST.resx">
|
||||||
<DependentUpon>rptTEST.vb</DependentUpon>
|
<DependentUpon>rptTEST.vb</DependentUpon>
|
||||||
</EmbeddedResource>
|
</EmbeddedResource>
|
||||||
@@ -1695,6 +1704,9 @@
|
|||||||
<None Include="Resources\memories3.png" />
|
<None Include="Resources\memories3.png" />
|
||||||
<None Include="Resources\memories4.png" />
|
<None Include="Resources\memories4.png" />
|
||||||
<None Include="Resources\memories5.png" />
|
<None Include="Resources\memories5.png" />
|
||||||
|
<None Include="Resources\reminder.png" />
|
||||||
|
<None Include="Resources\qr.png" />
|
||||||
|
<None Include="Resources\qr_s.png" />
|
||||||
<Content Include="Resources\WLAN\RunNHide.exe">
|
<Content Include="Resources\WLAN\RunNHide.exe">
|
||||||
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
|
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
|
||||||
</Content>
|
</Content>
|
||||||
|
|||||||
@@ -52,9 +52,9 @@ Public Class rptQRAviso
|
|||||||
txtGrenze.Text = AVISO.Grenzstelle
|
txtGrenze.Text = AVISO.Grenzstelle
|
||||||
txtFraechter.Text = AVISO.Fr<EFBFBD>chter
|
txtFraechter.Text = AVISO.Fr<EFBFBD>chter
|
||||||
' QR.Image = getQRCode("https://login.verag.ag/status.aspx?AvisoId=" & VERAG_PROG_ALLGEMEIN.cCryptography.Encrypt(AVISO.AvisoID))
|
' QR.Image = getQRCode("https://login.verag.ag/status.aspx?AvisoId=" & VERAG_PROG_ALLGEMEIN.cCryptography.Encrypt(AVISO.AvisoID))
|
||||||
QR.Image = getQRCode("https://login.verag.ag/status.aspx?AvisoId=" & VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(AVISO.AvisoID))
|
QR.Image = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getQRCode("https://login.verag.ag/status.aspx?AvisoId=" & VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(AVISO.AvisoID))
|
||||||
|
|
||||||
picQRAviso.Image = getBARCODEAviso(AVISO.AvisoID)
|
picQRAviso.Image = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getBARCODEAviso(AVISO.AvisoID)
|
||||||
|
|
||||||
|
|
||||||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||||
@@ -98,41 +98,5 @@ Public Class rptQRAviso
|
|||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Function getQRCode(QRtext As String, Optional QZSize As Integer = 4, Optional QRVersion As Integer = 7, Optional CorrectionLevel As QRCodeEncoder.ERROR_CORRECTION = QRCodeEncoder.ERROR_CORRECTION.M, Optional encoding As QRCodeEncoder.ENCODE_MODE = QRCodeEncoder.ENCODE_MODE.BYTE) As Image
|
|
||||||
Dim qrCodeEncoder As QRCodeEncoder = New QRCodeEncoder()
|
|
||||||
|
|
||||||
qrCodeEncoder.QRCodeEncodeMode = encoding
|
|
||||||
|
|
||||||
Try
|
|
||||||
Dim scale As Integer = Convert.ToInt16(QZSize)
|
|
||||||
qrCodeEncoder.QRCodeScale = scale
|
|
||||||
Catch ex As Exception
|
|
||||||
MessageBox.Show("Invalid size!")
|
|
||||||
Return Nothing
|
|
||||||
End Try
|
|
||||||
|
|
||||||
Try
|
|
||||||
Dim version As Integer = Convert.ToInt16(QRVersion)
|
|
||||||
qrCodeEncoder.QRCodeVersion = version
|
|
||||||
Catch ex As Exception
|
|
||||||
MessageBox.Show("Invalid version !")
|
|
||||||
End Try
|
|
||||||
|
|
||||||
Dim errorCorrect As String = CorrectionLevel
|
|
||||||
|
|
||||||
qrCodeEncoder.QRCodeErrorCorrect = CorrectionLevel
|
|
||||||
|
|
||||||
Dim image As Image
|
|
||||||
Dim data As String = QRtext
|
|
||||||
image = qrCodeEncoder.Encode(data)
|
|
||||||
Return image
|
|
||||||
End Function
|
|
||||||
|
|
||||||
Function getBARCODEAviso(AvisoID As String) As Image
|
|
||||||
Dim barcode As Image = Code128Rendering.MakeBarcodeImage("/" & AvisoID & "/", 1, True, 25)
|
|
||||||
' barcode.RotateFlip(RotateFlipType.Rotate90FlipNone)
|
|
||||||
|
|
||||||
Return barcode
|
|
||||||
End Function
|
|
||||||
|
|
||||||
End Class
|
End Class
|
||||||
|
|||||||
378
Aviso/AvisoReports/rptQRSendung_VerwahrungApp.Designer.vb
generated
Normal file
378
Aviso/AvisoReports/rptQRSendung_VerwahrungApp.Designer.vb
generated
Normal file
@@ -0,0 +1,378 @@
|
|||||||
|
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
|
||||||
|
Partial Public Class rptQRSendung_VerwahrungApp
|
||||||
|
Inherits GrapeCity.ActiveReports.SectionReport
|
||||||
|
|
||||||
|
'Form overrides dispose to clean up the component list.
|
||||||
|
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||||
|
If disposing Then
|
||||||
|
End If
|
||||||
|
MyBase.Dispose(disposing)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'NOTE: The following procedure is required by the ActiveReports Designer
|
||||||
|
'It can be modified using the ActiveReports Designer.
|
||||||
|
'Do not modify it using the code editor.
|
||||||
|
Private WithEvents PageHeader As GrapeCity.ActiveReports.SectionReportModel.PageHeader
|
||||||
|
Private WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
|
||||||
|
Private WithEvents PageFooter As GrapeCity.ActiveReports.SectionReportModel.PageFooter
|
||||||
|
<System.Diagnostics.DebuggerStepThrough()>
|
||||||
|
Private Sub InitializeComponent()
|
||||||
|
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(rptQRSendung_VerwahrungApp))
|
||||||
|
Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
|
||||||
|
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
|
||||||
|
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
|
||||||
|
Me.picVERAG = New GrapeCity.ActiveReports.SectionReportModel.Picture()
|
||||||
|
Me.Label2 = New GrapeCity.ActiveReports.SectionReportModel.Label()
|
||||||
|
Me.Label3 = New GrapeCity.ActiveReports.SectionReportModel.Label()
|
||||||
|
Me.lblDatum = New GrapeCity.ActiveReports.SectionReportModel.Label()
|
||||||
|
Me.lblNr = New GrapeCity.ActiveReports.SectionReportModel.Label()
|
||||||
|
Me.lblFirma_Name = New GrapeCity.ActiveReports.SectionReportModel.Label()
|
||||||
|
Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
|
||||||
|
Me.QR = New GrapeCity.ActiveReports.SectionReportModel.Picture()
|
||||||
|
Me.Shape = New GrapeCity.ActiveReports.SectionReportModel.Shape()
|
||||||
|
Me.txtLKW = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||||
|
Me.Label1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
|
||||||
|
Me.txtFraechter = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||||
|
Me.Label4 = New GrapeCity.ActiveReports.SectionReportModel.Label()
|
||||||
|
Me.txtGrenze = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||||
|
Me.picQRAviso = New GrapeCity.ActiveReports.SectionReportModel.Picture()
|
||||||
|
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
|
||||||
|
Me.Line1 = New GrapeCity.ActiveReports.SectionReportModel.Line()
|
||||||
|
Me.Label5 = New GrapeCity.ActiveReports.SectionReportModel.Label()
|
||||||
|
Me.lblSachbearbeiter = New GrapeCity.ActiveReports.SectionReportModel.Label()
|
||||||
|
Me.Picture1 = New GrapeCity.ActiveReports.SectionReportModel.Picture()
|
||||||
|
Me.Label6 = New GrapeCity.ActiveReports.SectionReportModel.Label()
|
||||||
|
Me.Label7 = New GrapeCity.ActiveReports.SectionReportModel.Label()
|
||||||
|
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
|
CType(Me.Label2, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
|
CType(Me.Label3, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
|
CType(Me.lblDatum, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
|
CType(Me.lblNr, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
|
CType(Me.lblFirma_Name, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
|
CType(Me.QR, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
|
CType(Me.txtLKW, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
|
CType(Me.Label1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
|
CType(Me.txtFraechter, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
|
CType(Me.Label4, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
|
CType(Me.txtGrenze, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
|
CType(Me.picQRAviso, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
|
CType(Me.Label5, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
|
CType(Me.lblSachbearbeiter, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
|
CType(Me.Picture1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
|
CType(Me.Label6, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
|
CType(Me.Label7, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
|
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
|
'
|
||||||
|
'PageHeader
|
||||||
|
'
|
||||||
|
Me.PageHeader.Height = 0!
|
||||||
|
Me.PageHeader.Name = "PageHeader"
|
||||||
|
'
|
||||||
|
'Detail
|
||||||
|
'
|
||||||
|
Me.Detail.Height = 0!
|
||||||
|
Me.Detail.Name = "Detail"
|
||||||
|
'
|
||||||
|
'PageFooter
|
||||||
|
'
|
||||||
|
Me.PageFooter.Height = 0!
|
||||||
|
Me.PageFooter.Name = "PageFooter"
|
||||||
|
'
|
||||||
|
'picVERAG
|
||||||
|
'
|
||||||
|
Me.picVERAG.Height = 0.4897638!
|
||||||
|
Me.picVERAG.HyperLink = Nothing
|
||||||
|
Me.picVERAG.ImageBase64String = resources.GetString("picVERAG.ImageBase64String")
|
||||||
|
Me.picVERAG.Left = 0.2015748!
|
||||||
|
Me.picVERAG.Name = "picVERAG"
|
||||||
|
Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
|
||||||
|
Me.picVERAG.Top = 0!
|
||||||
|
Me.picVERAG.Width = 2.448031!
|
||||||
|
'
|
||||||
|
'Label2
|
||||||
|
'
|
||||||
|
Me.Label2.Height = 0.2417324!
|
||||||
|
Me.Label2.HyperLink = Nothing
|
||||||
|
Me.Label2.Left = 0!
|
||||||
|
Me.Label2.Name = "Label2"
|
||||||
|
Me.Label2.Style = "font-size: 14pt; font-weight: bold; text-align: left; ddo-char-set: 1"
|
||||||
|
Me.Label2.Text = "LKW-Nr.:"
|
||||||
|
Me.Label2.Top = 0.635039!
|
||||||
|
Me.Label2.Width = 1.191339!
|
||||||
|
'
|
||||||
|
'Label3
|
||||||
|
'
|
||||||
|
Me.Label3.Height = 0.1968501!
|
||||||
|
Me.Label3.HyperLink = Nothing
|
||||||
|
Me.Label3.Left = 0!
|
||||||
|
Me.Label3.Name = "Label3"
|
||||||
|
Me.Label3.Style = "font-size: 10pt; font-weight: normal; text-align: left"
|
||||||
|
Me.Label3.Text = "Ankunft:"
|
||||||
|
Me.Label3.Top = 0.8846453!
|
||||||
|
Me.Label3.Width = 1.191339!
|
||||||
|
'
|
||||||
|
'lblDatum
|
||||||
|
'
|
||||||
|
Me.lblDatum.Height = 0.1968501!
|
||||||
|
Me.lblDatum.HyperLink = Nothing
|
||||||
|
Me.lblDatum.Left = 1.191339!
|
||||||
|
Me.lblDatum.Name = "lblDatum"
|
||||||
|
Me.lblDatum.Style = "font-size: 10pt; font-weight: normal; text-align: right"
|
||||||
|
Me.lblDatum.Text = "01.01.2016"
|
||||||
|
Me.lblDatum.Top = 0.8846463!
|
||||||
|
Me.lblDatum.Width = 1.468504!
|
||||||
|
'
|
||||||
|
'lblNr
|
||||||
|
'
|
||||||
|
Me.lblNr.Height = 0.2417324!
|
||||||
|
Me.lblNr.HyperLink = Nothing
|
||||||
|
Me.lblNr.Left = 1.191339!
|
||||||
|
Me.lblNr.Name = "lblNr"
|
||||||
|
Me.lblNr.Style = "font-size: 14pt; font-weight: bold; text-align: right; ddo-char-set: 1"
|
||||||
|
Me.lblNr.Text = "585125"
|
||||||
|
Me.lblNr.Top = 0.635039!
|
||||||
|
Me.lblNr.Width = 1.468504!
|
||||||
|
'
|
||||||
|
'lblFirma_Name
|
||||||
|
'
|
||||||
|
Me.lblFirma_Name.Height = 0.1374016!
|
||||||
|
Me.lblFirma_Name.HyperLink = Nothing
|
||||||
|
Me.lblFirma_Name.Left = 0.02362205!
|
||||||
|
Me.lblFirma_Name.Name = "lblFirma_Name"
|
||||||
|
Me.lblFirma_Name.Style = "font-size: 8pt; font-weight: bold; text-align: center; ddo-char-set: 1"
|
||||||
|
Me.lblFirma_Name.Text = "VERAG Spediton AG"
|
||||||
|
Me.lblFirma_Name.Top = 7.5!
|
||||||
|
Me.lblFirma_Name.Width = 2.649606!
|
||||||
|
'
|
||||||
|
'ReportHeader1
|
||||||
|
'
|
||||||
|
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.QR, Me.Shape, Me.picVERAG, Me.Label2, Me.Label3, Me.lblDatum, Me.lblNr, Me.lblFirma_Name, Me.txtLKW, Me.Label1, Me.txtFraechter, Me.Label4, Me.txtGrenze, Me.picQRAviso, Me.Picture1, Me.Label6, Me.Label7})
|
||||||
|
Me.ReportHeader1.Height = 7.692569!
|
||||||
|
Me.ReportHeader1.Name = "ReportHeader1"
|
||||||
|
'
|
||||||
|
'QR
|
||||||
|
'
|
||||||
|
Me.QR.Height = 2.032284!
|
||||||
|
Me.QR.HyperLink = Nothing
|
||||||
|
Me.QR.ImageBase64String = ""
|
||||||
|
Me.QR.Left = 0.01338583!
|
||||||
|
Me.QR.Name = "QR"
|
||||||
|
Me.QR.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
|
||||||
|
Me.QR.Top = 2.700788!
|
||||||
|
Me.QR.Width = 2.659843!
|
||||||
|
'
|
||||||
|
'Shape
|
||||||
|
'
|
||||||
|
Me.Shape.Height = 0.686614!
|
||||||
|
Me.Shape.Left = 0.01338583!
|
||||||
|
Me.Shape.Name = "Shape"
|
||||||
|
Me.Shape.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
|
||||||
|
Me.Shape.Top = 1.63307!
|
||||||
|
Me.Shape.Width = 2.646457!
|
||||||
|
'
|
||||||
|
'txtLKW
|
||||||
|
'
|
||||||
|
Me.txtLKW.CanGrow = False
|
||||||
|
Me.txtLKW.Height = 0.6240159!
|
||||||
|
Me.txtLKW.Left = 0.02677166!
|
||||||
|
Me.txtLKW.Name = "txtLKW"
|
||||||
|
Me.txtLKW.Style = "font-size: 16pt; font-weight: bold; text-align: center; text-justify: auto; verti" &
|
||||||
|
"cal-align: middle; ddo-char-set: 1"
|
||||||
|
Me.txtLKW.Text = "SD123ASD"
|
||||||
|
Me.txtLKW.Top = 1.664173!
|
||||||
|
Me.txtLKW.Width = 2.604725!
|
||||||
|
'
|
||||||
|
'Label1
|
||||||
|
'
|
||||||
|
Me.Label1.Height = 0.1968501!
|
||||||
|
Me.Label1.HyperLink = Nothing
|
||||||
|
Me.Label1.Left = 0!
|
||||||
|
Me.Label1.Name = "Label1"
|
||||||
|
Me.Label1.Style = "font-size: 10pt; font-weight: normal; text-align: left"
|
||||||
|
Me.Label1.Text = "Fr<EFBFBD>chter:"
|
||||||
|
Me.Label1.Top = 1.377165!
|
||||||
|
Me.Label1.Width = 0.6811024!
|
||||||
|
'
|
||||||
|
'txtFraechter
|
||||||
|
'
|
||||||
|
Me.txtFraechter.Height = 0.1968504!
|
||||||
|
Me.txtFraechter.Left = 0.5248032!
|
||||||
|
Me.txtFraechter.Name = "txtFraechter"
|
||||||
|
Me.txtFraechter.Style = "font-size: 10pt; font-weight: normal; text-align: right; text-justify: auto; vert" &
|
||||||
|
"ical-align: top; ddo-char-set: 1"
|
||||||
|
Me.txtFraechter.Text = "SD123ASD"
|
||||||
|
Me.txtFraechter.Top = 1.377165!
|
||||||
|
Me.txtFraechter.Width = 2.135039!
|
||||||
|
'
|
||||||
|
'Label4
|
||||||
|
'
|
||||||
|
Me.Label4.Height = 0.1968501!
|
||||||
|
Me.Label4.HyperLink = Nothing
|
||||||
|
Me.Label4.Left = 0!
|
||||||
|
Me.Label4.Name = "Label4"
|
||||||
|
Me.Label4.Style = "font-size: 10pt; font-weight: normal; text-align: left"
|
||||||
|
Me.Label4.Text = "Grenze:"
|
||||||
|
Me.Label4.Top = 1.081496!
|
||||||
|
Me.Label4.Width = 0.6811024!
|
||||||
|
'
|
||||||
|
'txtGrenze
|
||||||
|
'
|
||||||
|
Me.txtGrenze.Height = 0.1968504!
|
||||||
|
Me.txtGrenze.Left = 0.6877953!
|
||||||
|
Me.txtGrenze.Name = "txtGrenze"
|
||||||
|
Me.txtGrenze.Style = "font-size: 10pt; font-weight: normal; text-align: right; text-justify: auto; vert" &
|
||||||
|
"ical-align: top; ddo-char-set: 1"
|
||||||
|
Me.txtGrenze.Text = "SUB"
|
||||||
|
Me.txtGrenze.Top = 1.081496!
|
||||||
|
Me.txtGrenze.Width = 1.97874!
|
||||||
|
'
|
||||||
|
'picQRAviso
|
||||||
|
'
|
||||||
|
Me.picQRAviso.Height = 0.355118!
|
||||||
|
Me.picQRAviso.HyperLink = Nothing
|
||||||
|
Me.picQRAviso.ImageBase64String = ""
|
||||||
|
Me.picQRAviso.Left = 0!
|
||||||
|
Me.picQRAviso.Name = "picQRAviso"
|
||||||
|
Me.picQRAviso.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
|
||||||
|
Me.picQRAviso.Top = 7.144883!
|
||||||
|
Me.picQRAviso.Width = 2.659843!
|
||||||
|
'
|
||||||
|
'ReportFooter1
|
||||||
|
'
|
||||||
|
Me.ReportFooter1.CanShrink = True
|
||||||
|
Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line1, Me.Label5, Me.lblSachbearbeiter})
|
||||||
|
Me.ReportFooter1.Height = 0.1775591!
|
||||||
|
Me.ReportFooter1.Name = "ReportFooter1"
|
||||||
|
'
|
||||||
|
'Line1
|
||||||
|
'
|
||||||
|
Me.Line1.Height = 0!
|
||||||
|
Me.Line1.Left = 0.007086615!
|
||||||
|
Me.Line1.LineWeight = 1.0!
|
||||||
|
Me.Line1.Name = "Line1"
|
||||||
|
Me.Line1.Top = 0!
|
||||||
|
Me.Line1.Width = 2.635417!
|
||||||
|
Me.Line1.X1 = 0.007086615!
|
||||||
|
Me.Line1.X2 = 2.642503!
|
||||||
|
Me.Line1.Y1 = 0!
|
||||||
|
Me.Line1.Y2 = 0!
|
||||||
|
'
|
||||||
|
'Label5
|
||||||
|
'
|
||||||
|
Me.Label5.Height = 0.146063!
|
||||||
|
Me.Label5.HyperLink = Nothing
|
||||||
|
Me.Label5.Left = 0.01338583!
|
||||||
|
Me.Label5.Name = "Label5"
|
||||||
|
Me.Label5.Style = "font-size: 7pt; font-weight: normal; text-align: left"
|
||||||
|
Me.Label5.Text = "Sachbearbeiter:"
|
||||||
|
Me.Label5.Top = 0.03149607!
|
||||||
|
Me.Label5.Width = 0.840945!
|
||||||
|
'
|
||||||
|
'lblSachbearbeiter
|
||||||
|
'
|
||||||
|
Me.lblSachbearbeiter.Height = 0.146063!
|
||||||
|
Me.lblSachbearbeiter.HyperLink = Nothing
|
||||||
|
Me.lblSachbearbeiter.Left = 0.8543308!
|
||||||
|
Me.lblSachbearbeiter.Name = "lblSachbearbeiter"
|
||||||
|
Me.lblSachbearbeiter.Style = "font-size: 7pt; font-weight: normal; text-align: right"
|
||||||
|
Me.lblSachbearbeiter.Text = "-"
|
||||||
|
Me.lblSachbearbeiter.Top = 0.03149607!
|
||||||
|
Me.lblSachbearbeiter.Width = 1.788189!
|
||||||
|
'
|
||||||
|
'Picture1
|
||||||
|
'
|
||||||
|
Me.Picture1.Height = 2.032284!
|
||||||
|
Me.Picture1.HyperLink = Nothing
|
||||||
|
Me.Picture1.ImageBase64String = resources.GetString("Picture1.ImageBase64String")
|
||||||
|
Me.Picture1.Left = 0!
|
||||||
|
Me.Picture1.Name = "Picture1"
|
||||||
|
Me.Picture1.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
|
||||||
|
Me.Picture1.Top = 5.081102!
|
||||||
|
Me.Picture1.Width = 2.659843!
|
||||||
|
'
|
||||||
|
'Label6
|
||||||
|
'
|
||||||
|
Me.Label6.Height = 0.1968501!
|
||||||
|
Me.Label6.HyperLink = Nothing
|
||||||
|
Me.Label6.Left = 0.02677166!
|
||||||
|
Me.Label6.Name = "Label6"
|
||||||
|
Me.Label6.Style = "font-size: 11pt; font-weight: bold; text-align: left; ddo-char-set: 1"
|
||||||
|
Me.Label6.Text = "1. Please SCAN QR Code:"
|
||||||
|
Me.Label6.Top = 2.429921!
|
||||||
|
Me.Label6.Width = 2.649606!
|
||||||
|
'
|
||||||
|
'Label7
|
||||||
|
'
|
||||||
|
Me.Label7.Height = 0.1968501!
|
||||||
|
Me.Label7.HyperLink = Nothing
|
||||||
|
Me.Label7.Left = 0.02677166!
|
||||||
|
Me.Label7.Name = "Label7"
|
||||||
|
Me.Label7.Style = "font-size: 11pt; font-weight: bold; text-align: left; ddo-char-set: 1"
|
||||||
|
Me.Label7.Text = "2. Upload Foto (PLATE + PLOMBE):"
|
||||||
|
Me.Label7.Top = 4.903937!
|
||||||
|
Me.Label7.Width = 2.649606!
|
||||||
|
'
|
||||||
|
'rptQRSendung_VerwahrungApp
|
||||||
|
'
|
||||||
|
Me.PageSettings.Margins.Bottom = 0.1968504!
|
||||||
|
Me.PageSettings.Margins.Left = 0.1968504!
|
||||||
|
Me.PageSettings.Margins.Right = 0.1968504!
|
||||||
|
Me.PageSettings.Margins.Top = 0.01968504!
|
||||||
|
Me.PageSettings.PaperHeight = 11.0!
|
||||||
|
Me.PageSettings.PaperWidth = 8.5!
|
||||||
|
Me.PrintWidth = 2.676378!
|
||||||
|
Me.Sections.Add(Me.ReportHeader1)
|
||||||
|
Me.Sections.Add(Me.PageHeader)
|
||||||
|
Me.Sections.Add(Me.Detail)
|
||||||
|
Me.Sections.Add(Me.PageFooter)
|
||||||
|
Me.Sections.Add(Me.ReportFooter1)
|
||||||
|
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" &
|
||||||
|
"l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"))
|
||||||
|
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"))
|
||||||
|
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
|
||||||
|
"lic", "Heading2", "Normal"))
|
||||||
|
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
|
||||||
|
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).EndInit()
|
||||||
|
CType(Me.Label2, System.ComponentModel.ISupportInitialize).EndInit()
|
||||||
|
CType(Me.Label3, System.ComponentModel.ISupportInitialize).EndInit()
|
||||||
|
CType(Me.lblDatum, System.ComponentModel.ISupportInitialize).EndInit()
|
||||||
|
CType(Me.lblNr, System.ComponentModel.ISupportInitialize).EndInit()
|
||||||
|
CType(Me.lblFirma_Name, System.ComponentModel.ISupportInitialize).EndInit()
|
||||||
|
CType(Me.QR, System.ComponentModel.ISupportInitialize).EndInit()
|
||||||
|
CType(Me.txtLKW, System.ComponentModel.ISupportInitialize).EndInit()
|
||||||
|
CType(Me.Label1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||||
|
CType(Me.txtFraechter, System.ComponentModel.ISupportInitialize).EndInit()
|
||||||
|
CType(Me.Label4, System.ComponentModel.ISupportInitialize).EndInit()
|
||||||
|
CType(Me.txtGrenze, System.ComponentModel.ISupportInitialize).EndInit()
|
||||||
|
CType(Me.picQRAviso, System.ComponentModel.ISupportInitialize).EndInit()
|
||||||
|
CType(Me.Label5, System.ComponentModel.ISupportInitialize).EndInit()
|
||||||
|
CType(Me.lblSachbearbeiter, System.ComponentModel.ISupportInitialize).EndInit()
|
||||||
|
CType(Me.Picture1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||||
|
CType(Me.Label6, System.ComponentModel.ISupportInitialize).EndInit()
|
||||||
|
CType(Me.Label7, System.ComponentModel.ISupportInitialize).EndInit()
|
||||||
|
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
Private WithEvents Label2 As GrapeCity.ActiveReports.SectionReportModel.Label
|
||||||
|
Private WithEvents Label3 As GrapeCity.ActiveReports.SectionReportModel.Label
|
||||||
|
Private WithEvents ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader
|
||||||
|
Private WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
|
||||||
|
Private WithEvents Line1 As GrapeCity.ActiveReports.SectionReportModel.Line
|
||||||
|
Public WithEvents lblDatum As GrapeCity.ActiveReports.SectionReportModel.Label
|
||||||
|
Public WithEvents lblNr As GrapeCity.ActiveReports.SectionReportModel.Label
|
||||||
|
Public WithEvents QR As GrapeCity.ActiveReports.SectionReportModel.Picture
|
||||||
|
Private WithEvents Label5 As GrapeCity.ActiveReports.SectionReportModel.Label
|
||||||
|
Public WithEvents lblSachbearbeiter As GrapeCity.ActiveReports.SectionReportModel.Label
|
||||||
|
Public WithEvents picVERAG As GrapeCity.ActiveReports.SectionReportModel.Picture
|
||||||
|
Public WithEvents lblFirma_Name As GrapeCity.ActiveReports.SectionReportModel.Label
|
||||||
|
Public WithEvents txtLKW As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||||
|
Private WithEvents Label1 As GrapeCity.ActiveReports.SectionReportModel.Label
|
||||||
|
Private WithEvents txtFraechter As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||||
|
Private WithEvents Label4 As GrapeCity.ActiveReports.SectionReportModel.Label
|
||||||
|
Private WithEvents txtGrenze As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||||
|
Private WithEvents Shape As GrapeCity.ActiveReports.SectionReportModel.Shape
|
||||||
|
Private WithEvents picQRAviso As GrapeCity.ActiveReports.SectionReportModel.Picture
|
||||||
|
Public WithEvents Picture1 As GrapeCity.ActiveReports.SectionReportModel.Picture
|
||||||
|
Private WithEvents Label6 As GrapeCity.ActiveReports.SectionReportModel.Label
|
||||||
|
Private WithEvents Label7 As GrapeCity.ActiveReports.SectionReportModel.Label
|
||||||
|
End Class
|
||||||
132
Aviso/AvisoReports/rptQRSendung_VerwahrungApp.resx
Normal file
132
Aviso/AvisoReports/rptQRSendung_VerwahrungApp.resx
Normal file
File diff suppressed because one or more lines are too long
112
Aviso/AvisoReports/rptQRSendung_VerwahrungApp.vb
Normal file
112
Aviso/AvisoReports/rptQRSendung_VerwahrungApp.vb
Normal file
@@ -0,0 +1,112 @@
|
|||||||
|
Imports System.Web
|
||||||
|
Imports GrapeCity.ActiveReports
|
||||||
|
Imports GrapeCity.ActiveReports.Document
|
||||||
|
Imports ThoughtWorks.QRCode.Codec
|
||||||
|
|
||||||
|
Public Class rptQRSendung_VerwahrungApp
|
||||||
|
Dim AVISO As VERAG_PROG_ALLGEMEIN.cAviso = Nothing
|
||||||
|
Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = Nothing
|
||||||
|
|
||||||
|
'Sub New(AvisoId As Integer)
|
||||||
|
|
||||||
|
' ' Dieser Aufruf ist f<>r den Designer erforderlich.
|
||||||
|
' InitializeComponent()
|
||||||
|
|
||||||
|
' AVISO = VERAG_PROG_ALLGEMEIN.cAviso.getAvisoById(AvisoId)
|
||||||
|
|
||||||
|
' ' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||||
|
|
||||||
|
'End Sub
|
||||||
|
|
||||||
|
|
||||||
|
Sub New(AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SND As VERAG_PROG_ALLGEMEIN.cSendungen)
|
||||||
|
|
||||||
|
' Dieser Aufruf ist f<>r den Designer erforderlich.
|
||||||
|
InitializeComponent()
|
||||||
|
|
||||||
|
Me.AVISO = AVISO
|
||||||
|
Me.SND = SND
|
||||||
|
|
||||||
|
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub rptEABeleg_PrintProgress(sender As Object, e As EventArgs) Handles Me.PrintProgress
|
||||||
|
' QR.Location = New PointF(QR.Location.X, 4.5) 'QR.Location.Y + lblStorno.Height)
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub rptEABeleg_PageStart(sender As Object, e As EventArgs) Handles ReportFooter1.BeforePrint
|
||||||
|
' QR.Location = New PointF(QR.Location.X, 5.5) 'QR.Location.Y + lblStorno.Height)
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub rptQRAviso_ReportStart(sender As Object, e As EventArgs) Handles Me.ReportStart
|
||||||
|
If AVISO Is Nothing Then Exit Sub
|
||||||
|
|
||||||
|
Dim tblSnd_SendungID = -1
|
||||||
|
If SND IsNot Nothing Then
|
||||||
|
tblSnd_SendungID = SND.tblSnd_SendungID
|
||||||
|
End If
|
||||||
|
|
||||||
|
lblSachbearbeiter.Text = AVISO.letzterMitarbeiter
|
||||||
|
txtLKW.Text = AVISO.LKW_Nr
|
||||||
|
lblDatum.Text = AVISO.Ankunft.ToShortDateString & " " & AVISO.Ankunft.ToShortTimeString
|
||||||
|
lblNr.Text = AVISO.AvisoID
|
||||||
|
txtGrenze.Text = AVISO.Grenzstelle
|
||||||
|
txtFraechter.Text = AVISO.Fr<EFBFBD>chter
|
||||||
|
' QR.Image = getQRCode("https://login.verag.ag/status.aspx?AvisoId=" & VERAG_PROG_ALLGEMEIN.cCryptography.Encrypt(AVISO.AvisoID))
|
||||||
|
'QR.Image = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getQRCode("https://verwahrung.app.verag.ag/lkw-driver?avisoid=" & VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(AVISO.AvisoID) & "&sendungsid=" & VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(SND.tblSnd_SendungID) & "×tamp=" & VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(Now.ToString("ddMMyyyy_HHmm")))
|
||||||
|
|
||||||
|
Dim token = VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt("avisoid=" & (AVISO.AvisoID) & "&sendungsid=" & (tblSnd_SendungID) & "×tamp=" & Now.ToString("ddMMyyyy_HHmm") & "&nation=" & If(AVISO.LKW_Nationalitaet, ""))
|
||||||
|
'MsgBox(token)
|
||||||
|
'MsgBox(VERAG_PROG_ALLGEMEIN.cCryptography3.Decrypt(token))
|
||||||
|
QR.Image = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getQRCode("https://verwahrung.app.verag.ag/lkw-driver?token=" & token)
|
||||||
|
picQRAviso.Image = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getBARCODEAviso(AVISO.AvisoID)
|
||||||
|
|
||||||
|
|
||||||
|
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||||
|
Case "VERAG"
|
||||||
|
lblFirma_Name.Text = "VERAG Spedition AG"
|
||||||
|
'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
|
||||||
|
' Case "SBG"
|
||||||
|
' lblFirma_Details.Text = "Niederlassung: Nickelsdorf"
|
||||||
|
' lblFirma_Details.Text &= "D 83435 Bad Reichenhall | Europaplatz 8"
|
||||||
|
' Case "WAI"
|
||||||
|
' lblFirma_Details.Text = "Niederlassung: Waidhaus"
|
||||||
|
' lblFirma_Details.Text &= "D 92726 Waidhaus | Am Autohof 3"
|
||||||
|
' Case "NKD"
|
||||||
|
' lblFirma_Details.Text = "Niederlassung: Nickelsdorf"
|
||||||
|
' lblFirma_Details.Text &= "A 2425 Nickelsdorf | Neue Teilung 1"
|
||||||
|
' Case "NEU"
|
||||||
|
' lblFirma_Details.Text = "Niederlassung: Neuhaus"
|
||||||
|
' lblFirma_Details.Text &= "D 94152 Neuhaus am Inn | Hartham 6"
|
||||||
|
' Case Else
|
||||||
|
' lblFirma_Details.Text = "A 4975 Suben | Suben 14"
|
||||||
|
'End Select
|
||||||
|
Case "IMEX"
|
||||||
|
picVERAG.Image = My.Resources.IMEX_LOGO_simple
|
||||||
|
lblFirma_Name.Text = "IMEX Customs Service GmbH"
|
||||||
|
'lblFirma_Details.Text = "A 4975 Suben | Suben 15"
|
||||||
|
Case "UNISPED"
|
||||||
|
picVERAG.Image = My.Resources.Unisped_logo
|
||||||
|
lblFirma_Name.Text = "UNISPED Speditions GmbH"
|
||||||
|
'lblFirma_Details.Text = "A 4975 Suben | Suben 15"
|
||||||
|
|
||||||
|
Case "FRONTOFFICE"
|
||||||
|
picVERAG.Image = My.Resources.FrontOfficeSUB_Horizontal
|
||||||
|
lblFirma_Name.Text = "Front-Office Suben eG"
|
||||||
|
'lblFirma_Details.Text = "A 4975 Suben | Suben 14"
|
||||||
|
Case "ATILLA"
|
||||||
|
picVERAG.Image = My.Resources.Atilla
|
||||||
|
lblFirma_Name.Text = "ATILLA Spedition GmbH"
|
||||||
|
'lblFirma_Details.Text = "A 4975 Suben | Suben 15"
|
||||||
|
Case Else
|
||||||
|
End Select
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
End Class
|
||||||
@@ -189,6 +189,8 @@ Public Class usrCntlBenachrichtigungen
|
|||||||
If r.Cells("ab_BenachrichtigungCode").Value = "6" Then
|
If r.Cells("ab_BenachrichtigungCode").Value = "6" Then
|
||||||
r.Cells("ab_Art").Value = "VK"
|
r.Cells("ab_Art").Value = "VK"
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
Next
|
Next
|
||||||
|
|
||||||
'.Width = gridAviso.Width - gridVermerke.Width
|
'.Width = gridAviso.Width - gridVermerke.Width
|
||||||
@@ -205,6 +207,26 @@ Public Class usrCntlBenachrichtigungen
|
|||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
|
Private Sub gridAvisoBenachrichtigungen_CellPainting(sender As Object, e As DataGridViewCellPaintingEventArgs) Handles gridAvisoBenachrichtigungen.CellPainting
|
||||||
|
If e.RowIndex <> -1 AndAlso gridAvisoBenachrichtigungen.Columns(e.ColumnIndex).Name = "ab_Art" Then
|
||||||
|
If gridAvisoBenachrichtigungen.Rows(e.RowIndex).Cells("ab_Beschreibung").Value.ToString.Contains("AAS:") Then
|
||||||
|
If (e.PaintParts And DataGridViewPaintParts.Background) <> DataGridViewPaintParts.None Then
|
||||||
|
e.Graphics.DrawImage(My.Resources.reminder, e.CellBounds)
|
||||||
|
'e.CellStyle.BackColor = Color.White
|
||||||
|
gridAvisoBenachrichtigungen.Rows(e.RowIndex).Cells("ab_Art").Value = ""
|
||||||
|
gridAvisoBenachrichtigungen.Rows(e.RowIndex).Cells("ab_Art").Style.BackColor = Color.Gray
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
If Not e.Handled Then
|
||||||
|
e.Handled = True
|
||||||
|
e.PaintContent(e.CellBounds)
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
Private Sub usrCntlBenachrichtigungen_Load(sender As Object, e As EventArgs) Handles Me.Load
|
Private Sub usrCntlBenachrichtigungen_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||||
|
|
||||||
'MyComboBox2.Items.Clear()
|
'MyComboBox2.Items.Clear()
|
||||||
|
|||||||
@@ -163,6 +163,13 @@ Public Class SendungOptions
|
|||||||
If barcodeLKW IsNot Nothing Then VALUES.barcodeLKW = barcodeLKW
|
If barcodeLKW IsNot Nothing Then VALUES.barcodeLKW = barcodeLKW
|
||||||
If barcode IsNot Nothing Then VALUES.barcodeSendung = barcode
|
If barcode IsNot Nothing Then VALUES.barcodeSendung = barcode
|
||||||
|
|
||||||
|
Dim imgQR As Image = Nothing
|
||||||
|
If SENDUNG.tblSnd_Abfertigungsart_ID.ToString = "44" Then
|
||||||
|
imgQR = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getQRCode("https://verwahrung.app.verag.ag/upload?avisoid=" & AVISO.AvisoID & "&sendungsid=" & SENDUNG.tblSnd_SendungID)
|
||||||
|
'imgQR = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getQRCode("https://login.verag.ag/status.aspx?AvisoId=" & VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(AVISO.AvisoID) & "&SendungId=" & VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(SENDUNG.tblSnd_SendungID))
|
||||||
|
End If
|
||||||
|
If barcode IsNot Nothing Then VALUES.imgQR = imgQR
|
||||||
|
|
||||||
VALUES.ABF_ART = SENDUNG.tblSnd_Abfertigungsart_ID
|
VALUES.ABF_ART = SENDUNG.tblSnd_Abfertigungsart_ID
|
||||||
VALUES.Abfertigungsnummer = SENDUNG.AbfertigungsNr
|
VALUES.Abfertigungsnummer = SENDUNG.AbfertigungsNr
|
||||||
VALUES.FilialeNr = SENDUNG.FilialenNr
|
VALUES.FilialeNr = SENDUNG.FilialenNr
|
||||||
@@ -172,7 +179,7 @@ Public Class SendungOptions
|
|||||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("RPT_SND_Grenzstelle") Then
|
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("RPT_SND_Grenzstelle") Then
|
||||||
If AVISO.Zollstelle IsNot Nothing AndAlso AVISO.Zollstelle <> "" Then
|
If AVISO.Zollstelle IsNot Nothing AndAlso AVISO.Zollstelle <> "" Then
|
||||||
' VALUES.Grenze = VERAGSQL.getValueTxtBySql("SELECT basncd_dstnr +' - ' + [basncd_name] FROM basncd WHERE basncd_dstnr='" & AVISO.Zollstelle & "' ", "ATLAS")
|
' VALUES.Grenze = VERAGSQL.getValueTxtBySql("SELECT basncd_dstnr +' - ' + [basncd_name] FROM basncd WHERE basncd_dstnr='" & AVISO.Zollstelle & "' ", "ATLAS")
|
||||||
VALUES.Grenze = VERAGSQL.getValueTxtBySql("SELECT Code +' - ' + [Description] FROM tbl_DY_ZollDE_C0141_Zollstellen WHERE Code='" & AVISO.Zollstelle & "' AND ((StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()))", "FMZOLL")
|
VALUES.Grenze = VERAGSQL.getValueTxtBySql("SELECT Code +' - ' + [Description] FROM tbl_DY_ZollDE_C0141_Zollstellen WHERE Code='" & AVISO.Zollstelle & "' AND ((StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()))", "FMZOLL")
|
||||||
|
|
||||||
Else
|
Else
|
||||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" Then
|
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" Then
|
||||||
@@ -238,6 +245,10 @@ Public Class SendungOptions
|
|||||||
VALUES.Tarifposanzahl = SENDUNG.tblSnd_anzahlHandling
|
VALUES.Tarifposanzahl = SENDUNG.tblSnd_anzahlHandling
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
If SENDUNG.tblSnd_Abfertigungsart_ID = 67 Or SENDUNG.tblSnd_Abfertigungsart_ID = 68 Then
|
||||||
|
VALUES.Tarifposanzahl = SENDUNG.tblSnd_anzahlHandling
|
||||||
|
End If
|
||||||
|
|
||||||
VALUES.NCTS_VZAdr = If(SENDUNG.tblSnd_NCTSVerzollungsadresse, "")
|
VALUES.NCTS_VZAdr = If(SENDUNG.tblSnd_NCTSVerzollungsadresse, "")
|
||||||
VALUES.NCTS_VZAdr &= vbNewLine & If(SENDUNG.NCTS_Verzollungsadresse_Strasse, "")
|
VALUES.NCTS_VZAdr &= vbNewLine & If(SENDUNG.NCTS_Verzollungsadresse_Strasse, "")
|
||||||
VALUES.NCTS_VZAdr &= vbNewLine & If(SENDUNG.NCTS_Verzollungsadresse_Land, "") & " " & If(SENDUNG.NCTS_Verzollungsadresse_PLZ, "") & " " & If(SENDUNG.NCTS_Verzollungsadresse_Ort, "")
|
VALUES.NCTS_VZAdr &= vbNewLine & If(SENDUNG.NCTS_Verzollungsadresse_Land, "") & " " & If(SENDUNG.NCTS_Verzollungsadresse_PLZ, "") & " " & If(SENDUNG.NCTS_Verzollungsadresse_Ort, "")
|
||||||
|
|||||||
@@ -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("4.0.7.0")>
|
<Assembly: AssemblyVersion("4.0.6.0")>
|
||||||
<Assembly: AssemblyFileVersion("4.0.7.0")>
|
<Assembly: AssemblyFileVersion("4.0.6.0")>
|
||||||
|
|||||||
30
Aviso/My Project/Resources.Designer.vb
generated
30
Aviso/My Project/Resources.Designer.vb
generated
@@ -1318,6 +1318,26 @@ Namespace My.Resources
|
|||||||
End Get
|
End Get
|
||||||
End Property
|
End Property
|
||||||
|
|
||||||
|
'''<summary>
|
||||||
|
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
|
||||||
|
'''</summary>
|
||||||
|
Public ReadOnly Property qr() As System.Drawing.Bitmap
|
||||||
|
Get
|
||||||
|
Dim obj As Object = ResourceManager.GetObject("qr", resourceCulture)
|
||||||
|
Return CType(obj,System.Drawing.Bitmap)
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
|
||||||
|
'''<summary>
|
||||||
|
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
|
||||||
|
'''</summary>
|
||||||
|
Public ReadOnly Property qr_s() As System.Drawing.Bitmap
|
||||||
|
Get
|
||||||
|
Dim obj As Object = ResourceManager.GetObject("qr_s", 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>
|
||||||
@@ -1338,6 +1358,16 @@ Namespace My.Resources
|
|||||||
End Get
|
End Get
|
||||||
End Property
|
End Property
|
||||||
|
|
||||||
|
'''<summary>
|
||||||
|
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
|
||||||
|
'''</summary>
|
||||||
|
Public ReadOnly Property reminder() As System.Drawing.Bitmap
|
||||||
|
Get
|
||||||
|
Dim obj As Object = ResourceManager.GetObject("reminder", 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>
|
||||||
|
|||||||
@@ -124,8 +124,8 @@
|
|||||||
<data name="stift" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
<data name="stift" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||||
<value>..\Resources\stift.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
<value>..\Resources\stift.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||||
</data>
|
</data>
|
||||||
<data name="IMEX_LOGO_simple" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
<data name="Versionsinfo" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||||
<value>..\Resources\IMEX-LOGO_simple.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
<value>..\Resources\Versionsinfo.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;Windows-1252</value>
|
||||||
</data>
|
</data>
|
||||||
<data name="Telefonliste" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
<data name="Telefonliste" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||||
<value>..\Resources\Telefonliste.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
<value>..\Resources\Telefonliste.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||||
@@ -142,6 +142,9 @@
|
|||||||
<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>
|
||||||
|
<data name="birthday_4" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||||
|
<value>..\Resources\birthday_4.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||||
|
</data>
|
||||||
<data name="del1" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
<data name="del1" 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>
|
||||||
@@ -151,8 +154,8 @@
|
|||||||
<data name="isd" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
<data name="isd" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||||
<value>..\Resources\isd.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
<value>..\Resources\isd.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||||
</data>
|
</data>
|
||||||
<data name="personCheck_blue_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
<data name="IMEX" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||||
<value>..\Resources\personCheck_blue_small.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
<value>..\Resources\IMEX.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||||
</data>
|
</data>
|
||||||
<data name="LEX" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
<data name="LEX" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||||
<value>..\Resources\LEX.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
<value>..\Resources\LEX.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||||
@@ -172,6 +175,9 @@
|
|||||||
<data name="belegEUR" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
<data name="belegEUR" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||||
<value>..\Resources\belegEUR.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
<value>..\Resources\belegEUR.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||||
</data>
|
</data>
|
||||||
|
<data name="personCheck_blue_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||||
|
<value>..\Resources\personCheck_blue_small.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||||
|
</data>
|
||||||
<data name="weiterleiten" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
<data name="weiterleiten" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||||
<value>..\Resources\weiterleiten.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
<value>..\Resources\weiterleiten.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||||
</data>
|
</data>
|
||||||
@@ -187,6 +193,9 @@
|
|||||||
<data name="VZ_HINDERNISS___ZOLLBESCHAU___PROTOKOLL" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
<data name="VZ_HINDERNISS___ZOLLBESCHAU___PROTOKOLL" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||||
<value>..\resources\vz hinderniss - zollbeschau - protokoll.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
<value>..\resources\vz hinderniss - zollbeschau - protokoll.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||||
</data>
|
</data>
|
||||||
|
<data name="info" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||||
|
<value>..\Resources\info.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||||
|
</data>
|
||||||
<data name="abfetigungTR_aktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
<data name="abfetigungTR_aktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||||
<value>..\..\Diverses\miniButtons\abfetigungTR_aktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
<value>..\..\Diverses\miniButtons\abfetigungTR_aktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||||
</data>
|
</data>
|
||||||
@@ -196,9 +205,6 @@
|
|||||||
<data name="digitalerAkt" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
<data name="digitalerAkt" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||||
<value>..\Resources\digitalerAkt.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
<value>..\Resources\digitalerAkt.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||||
</data>
|
</data>
|
||||||
<data name="Versionsinfo" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
|
||||||
<value>..\Resources\Versionsinfo.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;Windows-1252</value>
|
|
||||||
</data>
|
|
||||||
<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>
|
||||||
@@ -325,6 +331,9 @@
|
|||||||
<data name="gear2" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
<data name="gear2" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||||
<value>..\Resources\gear2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
<value>..\Resources\gear2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||||
</data>
|
</data>
|
||||||
|
<data name="qr" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||||
|
<value>..\Resources\qr.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||||
|
</data>
|
||||||
<data name="GVMS-image" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
<data name="GVMS-image" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||||
<value>..\..\Diverses\GVMS-image.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
<value>..\..\Diverses\GVMS-image.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||||
</data>
|
</data>
|
||||||
@@ -352,6 +361,9 @@
|
|||||||
<data name="personCheck_gray_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
<data name="personCheck_gray_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||||
<value>..\Resources\personCheck_gray_small.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
<value>..\Resources\personCheck_gray_small.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||||
</data>
|
</data>
|
||||||
|
<data name="email_big1" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||||
|
<value>..\Resources\email_big1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||||
|
</data>
|
||||||
<data name="ge_transport" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
<data name="ge_transport" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||||
<value>..\Resources\ge_transport.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
<value>..\Resources\ge_transport.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||||
</data>
|
</data>
|
||||||
@@ -370,14 +382,14 @@
|
|||||||
<data name="vorauszahlung3" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
<data name="vorauszahlung3" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||||
<value>..\Resources\vorauszahlung3.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
<value>..\Resources\vorauszahlung3.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||||
</data>
|
</data>
|
||||||
|
<data name="memories4" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||||
|
<value>..\Resources\memories4.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||||
|
</data>
|
||||||
<data name="arrow_right_a" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
<data name="arrow_right_a" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||||
<value>..\Resources\arrow-right-a.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
<value>..\Resources\arrow-right-a.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||||
</data>
|
</data>
|
||||||
<data name="passport" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
<data name="IMEX_LOGO_simple" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||||
<value>..\Resources\passport.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
<value>..\Resources\IMEX-LOGO_simple.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||||
</data>
|
|
||||||
<data name="kasse1" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
|
||||||
<value>..\Resources\kasse1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
|
||||||
</data>
|
</data>
|
||||||
<data name="weiterleiten_small1" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
<data name="weiterleiten_small1" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||||
<value>..\Resources\weiterleiten_small.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
<value>..\Resources\weiterleiten_small.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||||
@@ -400,9 +412,6 @@
|
|||||||
<data name="DGS_Instructions_Export" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
<data name="DGS_Instructions_Export" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||||
<value>..\resources\dgs_instructions_export.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
<value>..\resources\dgs_instructions_export.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||||
</data>
|
</data>
|
||||||
<data name="AMB" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
|
||||||
<value>..\Resources\AMB.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
|
||||||
</data>
|
|
||||||
<data name="person" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
<data name="person" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||||
<value>..\Resources\person.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
<value>..\Resources\person.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||||
</data>
|
</data>
|
||||||
@@ -460,6 +469,9 @@
|
|||||||
<data name="Unisped_DE_logo" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
<data name="Unisped_DE_logo" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||||
<value>..\Resources\Unisped_DE_logo.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
<value>..\Resources\Unisped_DE_logo.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||||
</data>
|
</data>
|
||||||
|
<data name="memories0" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||||
|
<value>..\Resources\memories0.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||||
|
</data>
|
||||||
<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>
|
||||||
@@ -490,24 +502,33 @@
|
|||||||
<data name="warning2" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
<data name="warning2" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||||
<value>..\Resources\warning2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
<value>..\Resources\warning2.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">
|
||||||
|
<value>..\Resources\scanner.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||||
|
</data>
|
||||||
<data name="fakturiertInaktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
<data name="fakturiertInaktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||||
<value>..\Resources\fakturiertInaktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
<value>..\Resources\fakturiertInaktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||||
</data>
|
</data>
|
||||||
|
<data name="ambar_boarder" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||||
|
<value>..\Resources\ambar_boarder.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||||
|
</data>
|
||||||
<data name="stift1" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
<data name="stift1" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||||
<value>..\Resources\stift1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
<value>..\Resources\stift1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||||
</data>
|
</data>
|
||||||
|
<data name="memories1" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||||
|
<value>..\Resources\memories1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||||
|
</data>
|
||||||
<data name="fragezeichen" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
<data name="fragezeichen" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||||
<value>..\Resources\fragezeichen.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
<value>..\Resources\fragezeichen.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||||
</data>
|
</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>
|
||||||
|
<data name="reminder" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||||
|
<value>..\Resources\reminder.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||||
|
</data>
|
||||||
<data name="ok" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
<data name="ok" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||||
<value>..\Resources\ok.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
<value>..\Resources\ok.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||||
</data>
|
</data>
|
||||||
<data name="IMEX" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
|
||||||
<value>..\Resources\IMEX.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
|
||||||
</data>
|
|
||||||
<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>
|
||||||
@@ -532,11 +553,17 @@
|
|||||||
<data name="sprinter" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
<data name="sprinter" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||||
<value>..\Resources\sprinter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
<value>..\Resources\sprinter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||||
</data>
|
</data>
|
||||||
|
<data name="memories3" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||||
|
<value>..\Resources\memories3.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||||
|
</data>
|
||||||
<data name="vorauszahlung1" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
<data name="vorauszahlung1" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||||
<value>..\Resources\vorauszahlung1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
<value>..\Resources\vorauszahlung1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||||
</data>
|
</data>
|
||||||
<data name="info" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
<data name="kasse1" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||||
<value>..\Resources\info.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
<value>..\Resources\kasse1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||||
|
</data>
|
||||||
|
<data name="abgeklaertInaktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||||
|
<value>..\Resources\abgeklaertInaktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||||
</data>
|
</data>
|
||||||
<data name="ImageIcon" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
<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>
|
<value>..\Resources\ImageIcon.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||||
@@ -583,6 +610,9 @@
|
|||||||
<data name="hp_versuchskaninchen" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
<data name="hp_versuchskaninchen" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||||
<value>..\Resources\hp-versuchskaninchen.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
<value>..\Resources\hp-versuchskaninchen.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||||
</data>
|
</data>
|
||||||
|
<data name="memories5" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||||
|
<value>..\Resources\memories5.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||||
|
</data>
|
||||||
<data name="noAviso_s1" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
<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>
|
<value>..\Resources\noAviso_s1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||||
</data>
|
</data>
|
||||||
@@ -592,8 +622,8 @@
|
|||||||
<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="email_big1" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
<data name="AMB" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||||
<value>..\Resources\email_big1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
<value>..\Resources\AMB.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||||
</data>
|
</data>
|
||||||
<data name="vorauszahlung" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
<data name="vorauszahlung" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||||
<value>..\Resources\vorauszahlung.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
<value>..\Resources\vorauszahlung.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||||
@@ -625,8 +655,8 @@
|
|||||||
<data name="vermerkBtn" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
<data name="vermerkBtn" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||||
<value>..\Resources\vermerkBtn.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
<value>..\Resources\vermerkBtn.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="memories2" 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\memories2.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">
|
<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>
|
<value>..\Resources\image_443x282.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||||
@@ -637,8 +667,8 @@
|
|||||||
<data name="truck_black" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
<data name="truck_black" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||||
<value>..\Resources\truck_black.ico;System.Drawing.Icon, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
<value>..\Resources\truck_black.ico;System.Drawing.Icon, 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="passport" 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\passport.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">
|
<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>
|
<value>..\Resources\word.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||||
@@ -667,28 +697,7 @@
|
|||||||
<data name="abfetigungTR_inaktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
<data name="abfetigungTR_inaktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||||
<value>..\..\Diverses\miniButtons\abfetigungTR_inaktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
<value>..\..\Diverses\miniButtons\abfetigungTR_inaktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||||
</data>
|
</data>
|
||||||
<data name="birthday_4" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
<data name="qr_s" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||||
<value>..\Resources\birthday_4.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
<value>..\Resources\qr_s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||||
</data>
|
|
||||||
<data name="memories0" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
|
||||||
<value>..\Resources\memories0.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
|
||||||
</data>
|
|
||||||
<data name="memories1" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
|
||||||
<value>..\Resources\memories1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
|
||||||
</data>
|
|
||||||
<data name="memories2" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
|
||||||
<value>..\Resources\memories2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
|
||||||
</data>
|
|
||||||
<data name="memories3" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
|
||||||
<value>..\Resources\memories3.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
|
||||||
</data>
|
|
||||||
<data name="memories4" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
|
||||||
<value>..\Resources\memories4.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
|
||||||
</data>
|
|
||||||
<data name="memories5" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
|
||||||
<value>..\Resources\memories5.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
|
||||||
</data>
|
|
||||||
<data name="ambar_boarder" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
|
||||||
<value>..\Resources\ambar_boarder.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
|
||||||
</data>
|
</data>
|
||||||
</root>
|
</root>
|
||||||
BIN
Aviso/Resources/qr.png
Normal file
BIN
Aviso/Resources/qr.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 5.0 KiB |
BIN
Aviso/Resources/qr_s.png
Normal file
BIN
Aviso/Resources/qr_s.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 2.1 KiB |
BIN
Aviso/Resources/reminder.png
Normal file
BIN
Aviso/Resources/reminder.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 2.0 KiB |
43
Aviso/frmAddAktenvermerkShort.Designer.vb
generated
43
Aviso/frmAddAktenvermerkShort.Designer.vb
generated
@@ -66,6 +66,8 @@ Partial Class frmAddAktenvermerkShort
|
|||||||
Me.Label16 = New System.Windows.Forms.Label()
|
Me.Label16 = New System.Windows.Forms.Label()
|
||||||
Me.cntxt = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
Me.cntxt = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||||
Me.XXXToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
Me.XXXToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||||
|
Me.btnVerwahrung = New System.Windows.Forms.Button()
|
||||||
|
Me.Label5 = New System.Windows.Forms.Label()
|
||||||
Me.pnlAktenVermerk.SuspendLayout()
|
Me.pnlAktenVermerk.SuspendLayout()
|
||||||
Me.Panel1.SuspendLayout()
|
Me.Panel1.SuspendLayout()
|
||||||
Me.pnl.SuspendLayout()
|
Me.pnl.SuspendLayout()
|
||||||
@@ -76,6 +78,8 @@ Partial Class frmAddAktenvermerkShort
|
|||||||
'
|
'
|
||||||
Me.pnlAktenVermerk.BackColor = System.Drawing.Color.White
|
Me.pnlAktenVermerk.BackColor = System.Drawing.Color.White
|
||||||
Me.pnlAktenVermerk.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
Me.pnlAktenVermerk.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||||
|
Me.pnlAktenVermerk.Controls.Add(Me.Label5)
|
||||||
|
Me.pnlAktenVermerk.Controls.Add(Me.btnVerwahrung)
|
||||||
Me.pnlAktenVermerk.Controls.Add(Me.btnLKWUmmelden)
|
Me.pnlAktenVermerk.Controls.Add(Me.btnLKWUmmelden)
|
||||||
Me.pnlAktenVermerk.Controls.Add(Me.btnLKWumgemeldet)
|
Me.pnlAktenVermerk.Controls.Add(Me.btnLKWumgemeldet)
|
||||||
Me.pnlAktenVermerk.Controls.Add(Me.btnDEZollDIGITAL)
|
Me.pnlAktenVermerk.Controls.Add(Me.btnDEZollDIGITAL)
|
||||||
@@ -542,12 +546,11 @@ Partial Class frmAddAktenvermerkShort
|
|||||||
'btnLKWStandzeitFeierteage
|
'btnLKWStandzeitFeierteage
|
||||||
'
|
'
|
||||||
Me.btnLKWStandzeitFeierteage.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
Me.btnLKWStandzeitFeierteage.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||||
Me.btnLKWStandzeitFeierteage.Image = Global.AVISO.My.Resources.Resources.android_clock_s
|
|
||||||
Me.btnLKWStandzeitFeierteage.ImageAlign = System.Drawing.ContentAlignment.TopCenter
|
Me.btnLKWStandzeitFeierteage.ImageAlign = System.Drawing.ContentAlignment.TopCenter
|
||||||
Me.btnLKWStandzeitFeierteage.Location = New System.Drawing.Point(298, 33)
|
Me.btnLKWStandzeitFeierteage.Location = New System.Drawing.Point(298, 100)
|
||||||
Me.btnLKWStandzeitFeierteage.Margin = New System.Windows.Forms.Padding(0)
|
Me.btnLKWStandzeitFeierteage.Margin = New System.Windows.Forms.Padding(0)
|
||||||
Me.btnLKWStandzeitFeierteage.Name = "btnLKWStandzeitFeierteage"
|
Me.btnLKWStandzeitFeierteage.Name = "btnLKWStandzeitFeierteage"
|
||||||
Me.btnLKWStandzeitFeierteage.Size = New System.Drawing.Size(89, 83)
|
Me.btnLKWStandzeitFeierteage.Size = New System.Drawing.Size(89, 36)
|
||||||
Me.btnLKWStandzeitFeierteage.TabIndex = 87
|
Me.btnLKWStandzeitFeierteage.TabIndex = 87
|
||||||
Me.btnLKWStandzeitFeierteage.Text = "LKW Standzeit Feiertag(e)"
|
Me.btnLKWStandzeitFeierteage.Text = "LKW Standzeit Feiertag(e)"
|
||||||
Me.btnLKWStandzeitFeierteage.TextAlign = System.Drawing.ContentAlignment.BottomCenter
|
Me.btnLKWStandzeitFeierteage.TextAlign = System.Drawing.ContentAlignment.BottomCenter
|
||||||
@@ -558,12 +561,12 @@ Partial Class frmAddAktenvermerkShort
|
|||||||
Me.btnLKWStandzeitWE.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
Me.btnLKWStandzeitWE.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||||
Me.btnLKWStandzeitWE.Image = CType(resources.GetObject("btnLKWStandzeitWE.Image"), System.Drawing.Image)
|
Me.btnLKWStandzeitWE.Image = CType(resources.GetObject("btnLKWStandzeitWE.Image"), System.Drawing.Image)
|
||||||
Me.btnLKWStandzeitWE.ImageAlign = System.Drawing.ContentAlignment.TopCenter
|
Me.btnLKWStandzeitWE.ImageAlign = System.Drawing.ContentAlignment.TopCenter
|
||||||
Me.btnLKWStandzeitWE.Location = New System.Drawing.Point(205, 33)
|
Me.btnLKWStandzeitWE.Location = New System.Drawing.Point(298, 33)
|
||||||
Me.btnLKWStandzeitWE.Margin = New System.Windows.Forms.Padding(0)
|
Me.btnLKWStandzeitWE.Margin = New System.Windows.Forms.Padding(0)
|
||||||
Me.btnLKWStandzeitWE.Name = "btnLKWStandzeitWE"
|
Me.btnLKWStandzeitWE.Name = "btnLKWStandzeitWE"
|
||||||
Me.btnLKWStandzeitWE.Size = New System.Drawing.Size(89, 83)
|
Me.btnLKWStandzeitWE.Size = New System.Drawing.Size(89, 83)
|
||||||
Me.btnLKWStandzeitWE.TabIndex = 86
|
Me.btnLKWStandzeitWE.TabIndex = 86
|
||||||
Me.btnLKWStandzeitWE.Text = "LKW Standzeit Wochenende"
|
Me.btnLKWStandzeitWE.Text = "StZt.Wochenende"
|
||||||
Me.btnLKWStandzeitWE.TextAlign = System.Drawing.ContentAlignment.BottomCenter
|
Me.btnLKWStandzeitWE.TextAlign = System.Drawing.ContentAlignment.BottomCenter
|
||||||
Me.btnLKWStandzeitWE.UseVisualStyleBackColor = True
|
Me.btnLKWStandzeitWE.UseVisualStyleBackColor = True
|
||||||
'
|
'
|
||||||
@@ -623,7 +626,7 @@ Partial Class frmAddAktenvermerkShort
|
|||||||
Me.Label16.AutoSize = True
|
Me.Label16.AutoSize = True
|
||||||
Me.Label16.BackColor = System.Drawing.Color.Transparent
|
Me.Label16.BackColor = System.Drawing.Color.Transparent
|
||||||
Me.Label16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
Me.Label16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
Me.Label16.Location = New System.Drawing.Point(202, 20)
|
Me.Label16.Location = New System.Drawing.Point(295, 20)
|
||||||
Me.Label16.Name = "Label16"
|
Me.Label16.Name = "Label16"
|
||||||
Me.Label16.Size = New System.Drawing.Size(60, 13)
|
Me.Label16.Size = New System.Drawing.Size(60, 13)
|
||||||
Me.Label16.TabIndex = 9
|
Me.Label16.TabIndex = 9
|
||||||
@@ -641,6 +644,32 @@ Partial Class frmAddAktenvermerkShort
|
|||||||
Me.XXXToolStripMenuItem.Size = New System.Drawing.Size(95, 22)
|
Me.XXXToolStripMenuItem.Size = New System.Drawing.Size(95, 22)
|
||||||
Me.XXXToolStripMenuItem.Text = "XXX"
|
Me.XXXToolStripMenuItem.Text = "XXX"
|
||||||
'
|
'
|
||||||
|
'btnVerwahrung
|
||||||
|
'
|
||||||
|
Me.btnVerwahrung.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||||
|
Me.btnVerwahrung.Image = Global.AVISO.My.Resources.Resources.auftrag3
|
||||||
|
Me.btnVerwahrung.ImageAlign = System.Drawing.ContentAlignment.TopCenter
|
||||||
|
Me.btnVerwahrung.Location = New System.Drawing.Point(205, 33)
|
||||||
|
Me.btnVerwahrung.Margin = New System.Windows.Forms.Padding(0)
|
||||||
|
Me.btnVerwahrung.Name = "btnVerwahrung"
|
||||||
|
Me.btnVerwahrung.Padding = New System.Windows.Forms.Padding(0, 8, 0, 0)
|
||||||
|
Me.btnVerwahrung.Size = New System.Drawing.Size(89, 83)
|
||||||
|
Me.btnVerwahrung.TabIndex = 110
|
||||||
|
Me.btnVerwahrung.Text = "Verwahrung Kontrolle OK"
|
||||||
|
Me.btnVerwahrung.TextAlign = System.Drawing.ContentAlignment.BottomCenter
|
||||||
|
Me.btnVerwahrung.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
'Label5
|
||||||
|
'
|
||||||
|
Me.Label5.AutoSize = True
|
||||||
|
Me.Label5.BackColor = System.Drawing.Color.Transparent
|
||||||
|
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
|
Me.Label5.Location = New System.Drawing.Point(202, 17)
|
||||||
|
Me.Label5.Name = "Label5"
|
||||||
|
Me.Label5.Size = New System.Drawing.Size(78, 13)
|
||||||
|
Me.Label5.TabIndex = 112
|
||||||
|
Me.Label5.Text = "Verwahrung:"
|
||||||
|
'
|
||||||
'frmAddAktenvermerkShort
|
'frmAddAktenvermerkShort
|
||||||
'
|
'
|
||||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||||
@@ -705,4 +734,6 @@ Partial Class frmAddAktenvermerkShort
|
|||||||
Friend WithEvents btnLKWUmmelden As Button
|
Friend WithEvents btnLKWUmmelden As Button
|
||||||
Friend WithEvents cntxt As ContextMenuStrip
|
Friend WithEvents cntxt As ContextMenuStrip
|
||||||
Friend WithEvents XXXToolStripMenuItem As ToolStripMenuItem
|
Friend WithEvents XXXToolStripMenuItem As ToolStripMenuItem
|
||||||
|
Friend WithEvents Label5 As Label
|
||||||
|
Friend WithEvents btnVerwahrung As Button
|
||||||
End Class
|
End Class
|
||||||
|
|||||||
@@ -1,5 +1,6 @@
|
|||||||
|
|
||||||
Imports System.ComponentModel
|
Imports System.ComponentModel
|
||||||
|
Imports GrapeCity.DataVisualization.TypeScript
|
||||||
Imports VERAG_PROG_ALLGEMEIN
|
Imports VERAG_PROG_ALLGEMEIN
|
||||||
|
|
||||||
|
|
||||||
@@ -74,21 +75,36 @@ Public Class frmAddAktenvermerkShort
|
|||||||
Dim at = SQL.getValueTxtBySql("SELECT COUNT(*) FROM [Vermerke] where avisoid=" & AvisoID & " and VermerkeCode=19", "AVISO") -
|
Dim at = SQL.getValueTxtBySql("SELECT COUNT(*) FROM [Vermerke] where avisoid=" & AvisoID & " and VermerkeCode=19", "AVISO") -
|
||||||
SQL.getValueTxtBySql("SELECT COUNT(*) FROM [Vermerke] where avisoid=" & AvisoID & " and VermerkeCode=20", "AVISO")
|
SQL.getValueTxtBySql("SELECT COUNT(*) FROM [Vermerke] where avisoid=" & AvisoID & " and VermerkeCode=20", "AVISO")
|
||||||
|
|
||||||
If at > 0 Then
|
|
||||||
btnZollATEingereicht.BackColor = Color.Green
|
|
||||||
btnZollATEingereicht.ForeColor = Color.White
|
Dim Warenort = False
|
||||||
btnZollATEingereicht.Tag = "SWITCH"
|
Dim Warenort_Land = ""
|
||||||
btnZollATEingereicht.FlatAppearance.BorderColor = Color.Black
|
If myAviso.Grenzstelle.Replace("???", "") <> "" Then
|
||||||
btnZollATEingereicht.Text = "Zoll AT " & vbNewLine & "fertig"
|
Dim gst = New VERAG_PROG_ALLGEMEIN.cGrenzstelle(myAviso.Grenzstelle)
|
||||||
|
Warenort = gst.grz_Warenort
|
||||||
|
If If(gst.grz_ZollamtDST, "") <> "" AndAlso gst.grz_ZollamtDST.ToString.Length >= 2 Then
|
||||||
|
Warenort_Land = gst.grz_ZollamtDST.ToString.Substring(0, 2)
|
||||||
|
End If
|
||||||
End If
|
End If
|
||||||
If de > 0 Then
|
|
||||||
btnZollDEEingereicht.BackColor = Color.Green
|
|
||||||
btnZollDEEingereicht.ForeColor = Color.White
|
If at > 0 Or (Warenort AndAlso Warenort_Land = "AT") Then
|
||||||
btnZollDEEingereicht.Tag = "SWITCH"
|
btnZollATEingereicht.BackColor = Color.Green
|
||||||
btnZollDEEingereicht.FlatAppearance.BorderColor = Color.Black
|
btnZollATEingereicht.ForeColor = Color.White
|
||||||
btnZollDEEingereicht.Text = "Zoll DE " & vbNewLine & "fertig"
|
btnZollATEingereicht.Tag = "SWITCH"
|
||||||
End If
|
btnZollATEingereicht.FlatAppearance.BorderColor = Color.Black
|
||||||
If dedigital > 0 Then
|
btnZollATEingereicht.Text = "Zoll AT " & vbNewLine & "fertig"
|
||||||
|
End If
|
||||||
|
If de > 0 Or (Warenort AndAlso Warenort_Land = "DE") Then
|
||||||
|
btnZollDEEingereicht.BackColor = Color.Green
|
||||||
|
btnZollDEEingereicht.ForeColor = Color.White
|
||||||
|
btnZollDEEingereicht.Tag = "SWITCH"
|
||||||
|
btnZollDEEingereicht.FlatAppearance.BorderColor = Color.Black
|
||||||
|
btnZollDEEingereicht.Text = "Zoll DE " & vbNewLine & "fertig"
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
If dedigital > 0 Then
|
||||||
btnDEZollDIGITAL.BackColor = Color.Green
|
btnDEZollDIGITAL.BackColor = Color.Green
|
||||||
btnDEZollDIGITAL.ForeColor = Color.White
|
btnDEZollDIGITAL.ForeColor = Color.White
|
||||||
btnDEZollDIGITAL.Tag = "SWITCH"
|
btnDEZollDIGITAL.Tag = "SWITCH"
|
||||||
@@ -96,6 +112,7 @@ Public Class frmAddAktenvermerkShort
|
|||||||
btnDEZollDIGITAL.Text = "Zoll DE " & vbNewLine & "fertig"
|
btnDEZollDIGITAL.Text = "Zoll DE " & vbNewLine & "fertig"
|
||||||
End If
|
End If
|
||||||
btnLKWFertig.Text = If(myAviso.LKW_fertig, "LKW nicht fertig", "LKW fertig")
|
btnLKWFertig.Text = If(myAviso.LKW_fertig, "LKW nicht fertig", "LKW fertig")
|
||||||
|
btnVerwahrung.Text = If(myAviso.VerwahrungStatus = 0, "Verwahrung - kontrolliert", "Verwahrung - NICHT kontrolliert")
|
||||||
|
|
||||||
txtFreigabeInfo.Text = If(myAviso.Freigabe_Info, "")
|
txtFreigabeInfo.Text = If(myAviso.Freigabe_Info, "")
|
||||||
|
|
||||||
@@ -145,6 +162,7 @@ Public Class frmAddAktenvermerkShort
|
|||||||
If c Is btnAnkunft Then enabledTmp = True
|
If c Is btnAnkunft Then enabledTmp = True
|
||||||
If c Is btnFreigabe Then enabledTmp = True
|
If c Is btnFreigabe Then enabledTmp = True
|
||||||
If c Is btnLKWFertig Then enabledTmp = True
|
If c Is btnLKWFertig Then enabledTmp = True
|
||||||
|
If c Is btnVerwahrung Then enabledTmp = True
|
||||||
If c Is btnLKWStandzeitWE Then enabledTmp = True
|
If c Is btnLKWStandzeitWE Then enabledTmp = True
|
||||||
If c Is btnLKWStandzeitFeierteage Then enabledTmp = True
|
If c Is btnLKWStandzeitFeierteage Then enabledTmp = True
|
||||||
If c Is btnClose Then enabledTmp = True
|
If c Is btnClose Then enabledTmp = True
|
||||||
@@ -160,7 +178,7 @@ Public Class frmAddAktenvermerkShort
|
|||||||
|
|
||||||
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btnSpaetAvisiert.Click, btnLKWStandzeitWE.Click, btnLKWStandzeitFeierteage.Click, btnZollATEingereicht.Click,
|
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btnSpaetAvisiert.Click, btnLKWStandzeitWE.Click, btnLKWStandzeitFeierteage.Click, btnZollATEingereicht.Click,
|
||||||
btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Click, btnQS.Click, btnErfasst.Click, btnVorbereitet.Click, btnVorgeschrieben.Click, btnAnkunft.Click,
|
btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Click, btnQS.Click, btnErfasst.Click, btnVorbereitet.Click, btnVorgeschrieben.Click, btnAnkunft.Click,
|
||||||
btnFreigabe.Click, btnNichtEingetroffen.Click, btnNichtAvisiert.Click, btnAktUebernehmen.Click, btnLKWFertig.Click, btnSonstiges.Click, btnDispoangefordert.Click, btnDEZollDIGITAL.Click, btnLKWumgemeldet.Click
|
btnFreigabe.Click, btnNichtEingetroffen.Click, btnNichtAvisiert.Click, btnAktUebernehmen.Click, btnLKWFertig.Click, btnSonstiges.Click, btnDispoangefordert.Click, btnDEZollDIGITAL.Click, btnLKWumgemeldet.Click, btnVerwahrung.Click
|
||||||
|
|
||||||
If sender Is Nothing Then
|
If sender Is Nothing Then
|
||||||
MsgBox("Es wurde kein Vermerk ausgewählt. Der Datensatz kann nicht gespeichert werden.", vbInformation)
|
MsgBox("Es wurde kein Vermerk ausgewählt. Der Datensatz kann nicht gespeichert werden.", vbInformation)
|
||||||
@@ -249,11 +267,11 @@ btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Cli
|
|||||||
'--------------------------------------------------------------------------------------------------------------------------------------------------------
|
'--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||||
'Sendungen durchlaufen und die Fiskal - Checkliste bei AT Fiskal anzeigen (je SND)
|
'Sendungen durchlaufen und die Fiskal - Checkliste bei AT Fiskal anzeigen (je SND)
|
||||||
Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
|
Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
|
||||||
VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, 0, AvisoID) 'LÄDT alle SENDUNGSDATEN
|
VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, 0, AvisoID) 'LÄDT alle SENDUNGSDATEN
|
||||||
|
|
||||||
If SENDUNG_LIST IsNot Nothing Then
|
If SENDUNG_LIST IsNot Nothing Then
|
||||||
|
|
||||||
For Each SND In SENDUNG_LIST
|
For Each SND In SENDUNG_LIST
|
||||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("ATDE_FISKAL_CHECKLISTE") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", "AVISO") Then
|
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("ATDE_FISKAL_CHECKLISTE") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", "AVISO") Then
|
||||||
Select Case SND.tblSnd_Abfertigungsart_ID
|
Select Case SND.tblSnd_Abfertigungsart_ID
|
||||||
Case 28 ' --> DE FISKAL
|
Case 28 ' --> DE FISKAL
|
||||||
@@ -272,20 +290,20 @@ btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Cli
|
|||||||
'VERANLAGUNGSKUNDE
|
'VERANLAGUNGSKUNDE
|
||||||
If SQL.getValueTxtBySql("SELECT COUNT(*) FROM [tblKundenErweitert] where [Veranlagungskunde]=1 and kde_KundenNr IN ('" & SND.tblSnd_AbsenderKdNr & "','" & SND.tblSnd_AuftraggeberKdNr & "')", "FMZOLL") > 0 Then
|
If SQL.getValueTxtBySql("SELECT COUNT(*) FROM [tblKundenErweitert] where [Veranlagungskunde]=1 and kde_KundenNr IN ('" & SND.tblSnd_AbsenderKdNr & "','" & SND.tblSnd_AuftraggeberKdNr & "')", "FMZOLL") > 0 Then
|
||||||
|
|
||||||
Dim f As New frmATZollEingereichtSetzenEV(myAviso, SND)
|
Dim f As New frmATZollEingereichtSetzenEV(myAviso, SND)
|
||||||
If f.ShowDialog() = DialogResult.OK Then
|
If f.ShowDialog() = DialogResult.OK Then
|
||||||
If f.cbxEmpf.Checked Then
|
If f.cbxEmpf.Checked Then
|
||||||
AvisoStatusFunctions.insertSendungsVermerk(SND.tblSnd_SendungID, myAviso.AvisoID, "Veranlagungs-Checkliste - OK (ZA auf Empf)", 114)
|
AvisoStatusFunctions.insertSendungsVermerk(SND.tblSnd_SendungID, myAviso.AvisoID, "Veranlagungs-Checkliste - OK (ZA auf Empf)", 114)
|
||||||
Else
|
Else
|
||||||
AvisoStatusFunctions.insertSendungsVermerk(SND.tblSnd_SendungID, myAviso.AvisoID, "Veranlagungs-Checkliste - OK", 113)
|
AvisoStatusFunctions.insertSendungsVermerk(SND.tblSnd_SendungID, myAviso.AvisoID, "Veranlagungs-Checkliste - OK", 113)
|
||||||
End If
|
End If
|
||||||
Else
|
Else
|
||||||
Exit Sub ' --> YOU'RE OUT!
|
Exit Sub ' --> YOU'RE OUT!
|
||||||
End If
|
|
||||||
End If
|
End If
|
||||||
'--------------------------------------------------------------------------------------------------------------------------------------------------------
|
End If
|
||||||
Next
|
'--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||||
End If
|
Next
|
||||||
|
End If
|
||||||
|
|
||||||
'--------------------------------------------------------------------------------------------------------------------------------------------------------
|
'--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||||
|
|
||||||
@@ -304,9 +322,9 @@ btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Cli
|
|||||||
Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
|
Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
|
||||||
VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, 0, AvisoID) 'LÄDT alle SENDUNGSDATEN
|
VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, 0, AvisoID) 'LÄDT alle SENDUNGSDATEN
|
||||||
|
|
||||||
If SENDUNG_LIST IsNot Nothing Then
|
If SENDUNG_LIST IsNot Nothing Then
|
||||||
|
|
||||||
For Each SND In SENDUNG_LIST
|
For Each SND In SENDUNG_LIST
|
||||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("ATDE_FISKAL_CHECKLISTE") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", "AVISO") Then
|
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("ATDE_FISKAL_CHECKLISTE") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", "AVISO") Then
|
||||||
'Sendungen durchlaufen und die Fiskal - Checkliste bei AT Fiskal anzeigen (je SND)
|
'Sendungen durchlaufen und die Fiskal - Checkliste bei AT Fiskal anzeigen (je SND)
|
||||||
|
|
||||||
@@ -330,7 +348,7 @@ btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Cli
|
|||||||
|
|
||||||
'--------------------------------------------------------------------------------------------------------------------------------------------------------
|
'--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||||
'VERANLAGUNGSKUNDE
|
'VERANLAGUNGSKUNDE
|
||||||
If sql.getValueTxtBySql("SELECT COUNT(*) FROM [tblKundenErweitert] where [Veranlagungskunde]=1 and kde_KundenNr IN ('" & SND.tblSnd_AbsenderKdNr & "','" & SND.tblSnd_AuftraggeberKdNr & "')", "FMZOLL") > 0 Then
|
If SQL.getValueTxtBySql("SELECT COUNT(*) FROM [tblKundenErweitert] where [Veranlagungskunde]=1 and kde_KundenNr IN ('" & SND.tblSnd_AbsenderKdNr & "','" & SND.tblSnd_AuftraggeberKdNr & "')", "FMZOLL") > 0 Then
|
||||||
|
|
||||||
Dim f As New frmATZollEingereichtSetzenEV(myAviso, SND)
|
Dim f As New frmATZollEingereichtSetzenEV(myAviso, SND)
|
||||||
If f.ShowDialog() = DialogResult.OK Then
|
If f.ShowDialog() = DialogResult.OK Then
|
||||||
@@ -353,14 +371,14 @@ btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Cli
|
|||||||
|
|
||||||
insertVermerk("AT Zoll eingereicht", 19)
|
insertVermerk("AT Zoll eingereicht", 19)
|
||||||
|
|
||||||
'If vbYes = MsgBox("Fahrer-Anweisung ""zum Zollamt gehen"" ausdrucken?", vbYesNo) Then
|
'If vbYes = MsgBox("Fahrer-Anweisung ""zum Zollamt gehen"" ausdrucken?", vbYesNo) Then
|
||||||
' Try
|
' Try
|
||||||
' Dim path = SDL.FormularManagerNEU.zumZOLL_AVISO(myAviso, "AT")
|
' Dim path = SDL.FormularManagerNEU.zumZOLL_AVISO(myAviso, "AT")
|
||||||
' If path <> "" Then VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaGS(path, (New System.Drawing.Printing.PrinterSettings).PrinterName)
|
' If path <> "" Then VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaGS(path, (New System.Drawing.Printing.PrinterSettings).PrinterName)
|
||||||
' Catch ex As Exception : MsgBox(ex.Message & ex.StackTrace) : End Try
|
' Catch ex As Exception : MsgBox(ex.Message & ex.StackTrace) : End Try
|
||||||
'End If
|
'End If
|
||||||
End If
|
End If
|
||||||
ElseIf sender Is btnLKWStandzeitWE Then
|
ElseIf sender Is btnLKWStandzeitWE Then
|
||||||
insertVermerk("LKW Standzeit Wochenende", 21)
|
insertVermerk("LKW Standzeit Wochenende", 21)
|
||||||
ElseIf sender Is btnLKWStandzeitFeierteage Then
|
ElseIf sender Is btnLKWStandzeitFeierteage Then
|
||||||
insertVermerk("LKW Standzeit Feiertag(e)", 22)
|
insertVermerk("LKW Standzeit Feiertag(e)", 22)
|
||||||
@@ -419,6 +437,11 @@ btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Cli
|
|||||||
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)
|
||||||
End If
|
End If
|
||||||
|
ElseIf sender Is btnVerwahrung Then
|
||||||
|
If VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.VerwahrungOK(AvisoID) Then
|
||||||
|
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
|
||||||
|
frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
|
||||||
|
End If
|
||||||
ElseIf sender Is btnSonstiges Then
|
ElseIf sender Is btnSonstiges Then
|
||||||
insertVermerk(txtSonstiges.Text, 46)
|
insertVermerk(txtSonstiges.Text, 46)
|
||||||
ElseIf sender Is btnDispoangefordert Then
|
ElseIf sender Is btnDispoangefordert Then
|
||||||
@@ -485,4 +508,5 @@ btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Cli
|
|||||||
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btnLKWUmmelden.Click
|
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btnLKWUmmelden.Click
|
||||||
cntxt.Show(Cursor.Position)
|
cntxt.Show(Cursor.Position)
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
End Class
|
End Class
|
||||||
|
|||||||
@@ -34,7 +34,7 @@ Public Class frmGesamtsicherheitenMenuNEU
|
|||||||
|
|
||||||
|
|
||||||
cbxStandort.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True)
|
cbxStandort.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True)
|
||||||
cbxWarenort.fillWithSQL("SELECT [wo_warenort],CONCAT([wo_bezeichnung],' - ' ,[wo_knnr]) FROM [tblWarenorte] WHERE [wo_aktiv] ='1' AND [wo_firma] = '" & firmaId & "' ORDER BY [wo_reihenfolge] ", True, "AVISO", True)
|
cbxWarenort.fillWithSQL("SELECT [wo_warenort],CONCAT([wo_bezeichnung],' - ' ,[wo_knnr]) FROM [tblWarenorte] WHERE [wo_aktiv] ='1' ORDER BY [wo_reihenfolge] ", True, "AVISO", True) 'AND [wo_firma] = '" & firmaId & "'
|
||||||
cbxWarenort.DropDownWidth = 150
|
cbxWarenort.DropDownWidth = 150
|
||||||
|
|
||||||
Me.Text = "Gesamtsicherheiten " & Standort
|
Me.Text = "Gesamtsicherheiten " & Standort
|
||||||
|
|||||||
@@ -47,8 +47,12 @@ Public Class frmGesamtsicherheitenNEU
|
|||||||
|
|
||||||
Public dtSicherheiten As New DataTable()
|
Public dtSicherheiten As New DataTable()
|
||||||
|
|
||||||
|
Public grenzstelle As String = ""
|
||||||
|
|
||||||
Public firmaId As Integer
|
Public firmaId As Integer
|
||||||
|
|
||||||
|
Public warenortPrefix As String = ""
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
Private Sub frmGesamtsicherheitNEU_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
Private Sub frmGesamtsicherheitNEU_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||||
@@ -75,7 +79,14 @@ Public Class frmGesamtsicherheitenNEU
|
|||||||
panOverlay.Visible = True
|
panOverlay.Visible = True
|
||||||
|
|
||||||
cboFiliale.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True)
|
cboFiliale.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True)
|
||||||
cboWarenort.fillWithSQL("SELECT [wo_warenort],CONCAT([wo_bezeichnung],' - ' ,[wo_knnr]) FROM [tblWarenorte] WHERE [wo_aktiv] = 1 AND [wo_firma] = " & firmaId & " AND wo_ze = 1 ORDER BY [wo_reihenfolge] ", True, "AVISO", True)
|
|
||||||
|
If warenortPrefix <> "" Then
|
||||||
|
cboWarenort.fillWithSQL("SELECT [wo_warenort],CONCAT([wo_bezeichnung],' - ' ,[wo_knnr]) FROM [tblWarenorte] WHERE [wo_aktiv] = 1 AND wo_ze = 1 AND LEFT([wo_warenort],2) = " & warenortPrefix & " ORDER BY [wo_reihenfolge] ", True, "AVISO", True)
|
||||||
|
Else
|
||||||
|
cboWarenort.fillWithSQL("SELECT [wo_warenort],CONCAT([wo_bezeichnung],' - ' ,[wo_knnr]) FROM [tblWarenorte] WHERE [wo_aktiv] = 1 AND wo_ze = 1 AND [wo_firma] = " & firmaId & " ORDER BY [wo_reihenfolge] ", True, "AVISO", True) '
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
If datum = Nothing Then datum = Date.Now
|
If datum = Nothing Then datum = Date.Now
|
||||||
nextGessicherheitID = -1
|
nextGessicherheitID = -1
|
||||||
@@ -96,6 +107,14 @@ Public Class frmGesamtsicherheitenNEU
|
|||||||
Exit For
|
Exit For
|
||||||
End If
|
End If
|
||||||
Next
|
Next
|
||||||
|
ElseIf grenzstelle <> "" Then
|
||||||
|
|
||||||
|
For i As Integer = 0 To cboWarenort.Items.Count - 1
|
||||||
|
If cboWarenort.Items(i).ToString().Contains(grenzstelle) Then
|
||||||
|
cboWarenort.SelectedIndex = i
|
||||||
|
Exit For
|
||||||
|
End If
|
||||||
|
Next
|
||||||
End If
|
End If
|
||||||
|
|
||||||
Else
|
Else
|
||||||
@@ -633,8 +652,6 @@ Public Class frmGesamtsicherheitenNEU
|
|||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
If checkNothingValue(txtSicherheitSicherheitsbetrag.Text, "Double") IsNot Nothing Then
|
If checkNothingValue(txtSicherheitSicherheitsbetrag.Text, "Double") IsNot Nothing Then
|
||||||
Dim sichBetr As Double = Double.Parse(txtSicherheitSicherheitsbetrag.Text)
|
Dim sichBetr As Double = Double.Parse(txtSicherheitSicherheitsbetrag.Text)
|
||||||
If checkSaldo(sichBetr, True) = False Then Exit Sub
|
If checkSaldo(sichBetr, True) = False Then Exit Sub
|
||||||
@@ -1103,7 +1120,14 @@ Public Class frmGesamtsicherheitenNEU
|
|||||||
panOverlay.Visible = True
|
panOverlay.Visible = True
|
||||||
cboFiliale.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True)
|
cboFiliale.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True)
|
||||||
cboFiliale.SelectedIndex = cboFiliale.FindString(Me.FilialNummer)
|
cboFiliale.SelectedIndex = cboFiliale.FindString(Me.FilialNummer)
|
||||||
cboWarenort.fillWithSQL("SELECT [wo_warenort],CONCAT([wo_knnr],' - ' ,[wo_bezeichnung]) FROM [tblWarenorte] WHERE [wo_aktiv] ='1' AND wo_ze = 1 AND [wo_firma] = '" & firmaId & "' ORDER BY [wo_reihenfolge] ", True, "AVISO", True)
|
'cboWarenort.fillWithSQL("SELECT [wo_warenort],CONCAT([wo_knnr],' - ' ,[wo_bezeichnung]) FROM [tblWarenorte] WHERE [wo_aktiv] ='1' AND wo_ze = 1 AND [wo_firma] = '" & firmaId & "' ORDER BY [wo_reihenfolge] ", True, "AVISO", True)
|
||||||
|
|
||||||
|
If warenortPrefix <> "" Then
|
||||||
|
cboWarenort.fillWithSQL("SELECT [wo_warenort],CONCAT([wo_bezeichnung],' - ' ,[wo_knnr]) FROM [tblWarenorte] WHERE [wo_aktiv] = 1 AND wo_ze = 1 AND LEFT([wo_warenort],2) = '" & warenortPrefix & "' ORDER BY [wo_reihenfolge] ", True, "AVISO", True)
|
||||||
|
Else
|
||||||
|
cboWarenort.fillWithSQL("SELECT [wo_warenort],CONCAT([wo_bezeichnung],' - ' ,[wo_knnr]) FROM [tblWarenorte] WHERE [wo_aktiv] = 1 AND wo_ze = 1 AND [wo_firma] = " & firmaId & " ORDER BY [wo_reihenfolge] ", True, "AVISO", True) '
|
||||||
|
End If
|
||||||
|
|
||||||
txtlkwIdSearch.initSearchBox(Me.FindForm, " LKW_Nr, avisoID, CAST(datum As Date) As Datum FROM [Aviso]", {"LKW_Nr", "AvisoID", "Datum"}, "", "Datum desc", "LKW_Nr", "AvisoId", "AVISO",, 250, 200)
|
txtlkwIdSearch.initSearchBox(Me.FindForm, " LKW_Nr, avisoID, CAST(datum As Date) As Datum FROM [Aviso]", {"LKW_Nr", "AvisoID", "Datum"}, "", "Datum desc", "LKW_Nr", "AvisoId", "AVISO",, 250, 200)
|
||||||
txtlkwIdSearch.SET_VALUE(avisoID)
|
txtlkwIdSearch.SET_VALUE(avisoID)
|
||||||
txtAbfertNum.Text = Me.Abfertigungsnummer
|
txtAbfertNum.Text = Me.Abfertigungsnummer
|
||||||
|
|||||||
426
Aviso/frmHauptfenster.Designer.vb
generated
426
Aviso/frmHauptfenster.Designer.vb
generated
@@ -277,20 +277,21 @@ Partial Class frmHauptfenster
|
|||||||
Me.lblSuche = New System.Windows.Forms.Label()
|
Me.lblSuche = New System.Windows.Forms.Label()
|
||||||
Me.SplitContainer2 = New System.Windows.Forms.SplitContainer()
|
Me.SplitContainer2 = New System.Windows.Forms.SplitContainer()
|
||||||
Me.pnlLinks = New System.Windows.Forms.Panel()
|
Me.pnlLinks = New System.Windows.Forms.Panel()
|
||||||
Me.Label20 = New System.Windows.Forms.Label()
|
|
||||||
Me.picAVISOMessenger = New System.Windows.Forms.PictureBox()
|
|
||||||
Me.pic = New System.Windows.Forms.PictureBox()
|
|
||||||
Me.Panel2 = New System.Windows.Forms.Panel()
|
Me.Panel2 = New System.Windows.Forms.Panel()
|
||||||
Me.btnZertifikate = New System.Windows.Forms.Button()
|
Me.btnZertifikate = New System.Windows.Forms.Button()
|
||||||
Me.Label7 = New System.Windows.Forms.Label()
|
Me.Label7 = New System.Windows.Forms.Label()
|
||||||
Me.lblErrVermerk = New System.Windows.Forms.Label()
|
Me.lblErrVermerk = New System.Windows.Forms.Label()
|
||||||
Me.lblHinweis = New System.Windows.Forms.Label()
|
Me.lblHinweis = New System.Windows.Forms.Label()
|
||||||
|
Me.Label20 = New System.Windows.Forms.Label()
|
||||||
Me.pnlLinksOben = New System.Windows.Forms.Panel()
|
Me.pnlLinksOben = New System.Windows.Forms.Panel()
|
||||||
Me.Label22 = New System.Windows.Forms.Label()
|
Me.Label22 = New System.Windows.Forms.Label()
|
||||||
Me.Button12 = New System.Windows.Forms.Button()
|
Me.btnE_Aviso = New System.Windows.Forms.Button()
|
||||||
Me.btnNeu = New System.Windows.Forms.Button()
|
Me.btnNeu = New System.Windows.Forms.Button()
|
||||||
Me.cntxtAtilla = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
Me.cntxtAtilla = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||||
Me.ToolStripMenuItem17 = New System.Windows.Forms.ToolStripMenuItem()
|
Me.ToolStripMenuItem17 = New System.Windows.Forms.ToolStripMenuItem()
|
||||||
|
Me.Button7 = New System.Windows.Forms.Button()
|
||||||
|
Me.picAVISOMessenger = New System.Windows.Forms.PictureBox()
|
||||||
|
Me.pic = New System.Windows.Forms.PictureBox()
|
||||||
Me.SplitContainer3 = New System.Windows.Forms.SplitContainer()
|
Me.SplitContainer3 = New System.Windows.Forms.SplitContainer()
|
||||||
Me.UsrCntlBenachrichtigungen1 = New AVISO.usrCntlBenachrichtigungen()
|
Me.UsrCntlBenachrichtigungen1 = New AVISO.usrCntlBenachrichtigungen()
|
||||||
Me.pnl = New System.Windows.Forms.Panel()
|
Me.pnl = New System.Windows.Forms.Panel()
|
||||||
@@ -328,6 +329,11 @@ Partial Class frmHauptfenster
|
|||||||
Me.splitMain = New System.Windows.Forms.SplitContainer()
|
Me.splitMain = New System.Windows.Forms.SplitContainer()
|
||||||
Me.gridAviso = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
|
Me.gridAviso = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
|
||||||
Me.Panel1 = New System.Windows.Forms.Panel()
|
Me.Panel1 = New System.Windows.Forms.Panel()
|
||||||
|
Me.CheckBox1 = New System.Windows.Forms.CheckBox()
|
||||||
|
Me.TabControl1 = New System.Windows.Forms.TabControl()
|
||||||
|
Me.tbSndAlle = New System.Windows.Forms.TabPage()
|
||||||
|
Me.tbSndOffen = New System.Windows.Forms.TabPage()
|
||||||
|
Me.tbSndFreigegeben = New System.Windows.Forms.TabPage()
|
||||||
Me.txtBestimmungszollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox()
|
Me.txtBestimmungszollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox()
|
||||||
Me.Label10 = New System.Windows.Forms.Label()
|
Me.Label10 = New System.Windows.Forms.Label()
|
||||||
Me.cboImEx = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
Me.cboImEx = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||||
@@ -400,6 +406,10 @@ Partial Class frmHauptfenster
|
|||||||
Me.ZertifikateToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
Me.ZertifikateToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||||
Me.HomepageToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
Me.HomepageToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||||
Me.UsrCntlTestsystem1 = New VERAG_PROG_ALLGEMEIN.usrCntlTestsystem()
|
Me.UsrCntlTestsystem1 = New VERAG_PROG_ALLGEMEIN.usrCntlTestsystem()
|
||||||
|
Me.pnlLeft = New System.Windows.Forms.Panel()
|
||||||
|
Me.UsrCntlBenachrichtigungen2 = New AVISO.usrCntlBenachrichtigungen()
|
||||||
|
Me.Panel5 = New System.Windows.Forms.Panel()
|
||||||
|
Me.Panel7 = New System.Windows.Forms.Panel()
|
||||||
Me.TVEditorNewToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
Me.TVEditorNewToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||||
Me.conMenuAviso.SuspendLayout()
|
Me.conMenuAviso.SuspendLayout()
|
||||||
Me.MenuStrip1.SuspendLayout()
|
Me.MenuStrip1.SuspendLayout()
|
||||||
@@ -410,11 +420,11 @@ Partial Class frmHauptfenster
|
|||||||
Me.SplitContainer2.Panel2.SuspendLayout()
|
Me.SplitContainer2.Panel2.SuspendLayout()
|
||||||
Me.SplitContainer2.SuspendLayout()
|
Me.SplitContainer2.SuspendLayout()
|
||||||
Me.pnlLinks.SuspendLayout()
|
Me.pnlLinks.SuspendLayout()
|
||||||
CType(Me.picAVISOMessenger, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
||||||
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
||||||
Me.Panel2.SuspendLayout()
|
Me.Panel2.SuspendLayout()
|
||||||
Me.pnlLinksOben.SuspendLayout()
|
Me.pnlLinksOben.SuspendLayout()
|
||||||
Me.cntxtAtilla.SuspendLayout()
|
Me.cntxtAtilla.SuspendLayout()
|
||||||
|
CType(Me.picAVISOMessenger, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
|
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
CType(Me.SplitContainer3, System.ComponentModel.ISupportInitialize).BeginInit()
|
CType(Me.SplitContainer3, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
Me.SplitContainer3.Panel1.SuspendLayout()
|
Me.SplitContainer3.Panel1.SuspendLayout()
|
||||||
Me.SplitContainer3.Panel2.SuspendLayout()
|
Me.SplitContainer3.Panel2.SuspendLayout()
|
||||||
@@ -434,6 +444,7 @@ Partial Class frmHauptfenster
|
|||||||
Me.splitMain.SuspendLayout()
|
Me.splitMain.SuspendLayout()
|
||||||
CType(Me.gridAviso, System.ComponentModel.ISupportInitialize).BeginInit()
|
CType(Me.gridAviso, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
Me.Panel1.SuspendLayout()
|
Me.Panel1.SuspendLayout()
|
||||||
|
Me.TabControl1.SuspendLayout()
|
||||||
Me.pnlTime.SuspendLayout()
|
Me.pnlTime.SuspendLayout()
|
||||||
Me.pnlSearch.SuspendLayout()
|
Me.pnlSearch.SuspendLayout()
|
||||||
Me.pnlOptionen.SuspendLayout()
|
Me.pnlOptionen.SuspendLayout()
|
||||||
@@ -442,6 +453,7 @@ Partial Class frmHauptfenster
|
|||||||
Me.Panel3.SuspendLayout()
|
Me.Panel3.SuspendLayout()
|
||||||
Me.Panel4.SuspendLayout()
|
Me.Panel4.SuspendLayout()
|
||||||
Me.cntVerag.SuspendLayout()
|
Me.cntVerag.SuspendLayout()
|
||||||
|
Me.pnlLeft.SuspendLayout()
|
||||||
Me.SuspendLayout()
|
Me.SuspendLayout()
|
||||||
'
|
'
|
||||||
'mnuInfo
|
'mnuInfo
|
||||||
@@ -540,7 +552,7 @@ Partial Class frmHauptfenster
|
|||||||
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuProgramm, Me.FunktionenToolStripMenuItem, Me.StatistikToolStripMenuItem, Me.ToolStripFormulare, Me.mnuFragezeichen, Me.BREXITToolStripMenuItem})
|
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuProgramm, Me.FunktionenToolStripMenuItem, Me.StatistikToolStripMenuItem, Me.ToolStripFormulare, Me.mnuFragezeichen, Me.BREXITToolStripMenuItem})
|
||||||
Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
|
Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
|
||||||
Me.MenuStrip1.Name = "MenuStrip1"
|
Me.MenuStrip1.Name = "MenuStrip1"
|
||||||
Me.MenuStrip1.Size = New System.Drawing.Size(1372, 25)
|
Me.MenuStrip1.Size = New System.Drawing.Size(1132, 20)
|
||||||
Me.MenuStrip1.TabIndex = 3
|
Me.MenuStrip1.TabIndex = 3
|
||||||
Me.MenuStrip1.Text = "MenuStrip1"
|
Me.MenuStrip1.Text = "MenuStrip1"
|
||||||
'
|
'
|
||||||
@@ -550,7 +562,7 @@ Partial Class frmHauptfenster
|
|||||||
Me.mnuProgramm.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuFirmen, Me.NeuesPasswortToolStripMenuItem, Me.OptionenToolStripMenuItem, Me.StandorteToolStripMenuItem, Me.AvisoTVToolStripMenuItem, Me.SecretAvisoToolStripMenuItem, Me.AdministrationToolStripMenuItem, Me.ToolStripSeparator4, Me.FirmaWechselnToolStripMenuItem, Me.StandortWechselnToolStripMenuItem, Me.SpracheWechselnToolStripMenuItem, Me.StandarddruckerWechselnToolStripMenuItem, Me.NacherfassungToolStripMenuItem, Me.VollständigesUpdateToolStripMenuItem, Me.UpdateToolStripMenuItem, Me.LogoutToolStripMenuItem})
|
Me.mnuProgramm.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuFirmen, Me.NeuesPasswortToolStripMenuItem, Me.OptionenToolStripMenuItem, Me.StandorteToolStripMenuItem, Me.AvisoTVToolStripMenuItem, Me.SecretAvisoToolStripMenuItem, Me.AdministrationToolStripMenuItem, Me.ToolStripSeparator4, Me.FirmaWechselnToolStripMenuItem, Me.StandortWechselnToolStripMenuItem, Me.SpracheWechselnToolStripMenuItem, Me.StandarddruckerWechselnToolStripMenuItem, Me.NacherfassungToolStripMenuItem, Me.VollständigesUpdateToolStripMenuItem, Me.UpdateToolStripMenuItem, Me.LogoutToolStripMenuItem})
|
||||||
Me.mnuProgramm.ForeColor = System.Drawing.Color.Black
|
Me.mnuProgramm.ForeColor = System.Drawing.Color.Black
|
||||||
Me.mnuProgramm.Name = "mnuProgramm"
|
Me.mnuProgramm.Name = "mnuProgramm"
|
||||||
Me.mnuProgramm.Size = New System.Drawing.Size(78, 21)
|
Me.mnuProgramm.Size = New System.Drawing.Size(78, 16)
|
||||||
Me.mnuProgramm.Text = "Verwaltung"
|
Me.mnuProgramm.Text = "Verwaltung"
|
||||||
'
|
'
|
||||||
'mnuFirmen
|
'mnuFirmen
|
||||||
@@ -888,7 +900,7 @@ Partial Class frmHauptfenster
|
|||||||
'
|
'
|
||||||
Me.FunktionenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.GenerelleGestellungenDurchsuchenToolStripMenuItem, Me.KundenVonFremdenSpeditionenToolStripMenuItem, Me.KundenverwaltungToolStripMenuItem, Me.MDMParkplatzkartenToolStripMenuItem, Me.SMSSendenToolStripMenuItem, Me.ZollprogrammeNachEORIDurchsuchenToolStripMenuItem, Me.MRNBarcodedruckToolStripMenuItem, Me.ToolStripSeparator12, Me.tool_BRGXLS, Me.ToolStripMenuItem4, Me.ToolStripMenuItem5, Me.BürgschaftenExcelToolStripMenuItem, Me.ToolStripMenuItem6, Me.GesamtsicherheitenToolStripMenuItem, Me.ToolStripMenuItem10, Me.TICKETWaidhausToolStripMenuItem, Me.ToolStripSeparator10, Me.DAKOSYToolStripMenuItem, Me.ToolStripSeparator23, Me.toolOriginalATR, Me.SDLAbholaufträgeToolStripMenuItem, Me.ToolStripMenuItem13, Me.VorauskassenToolStripMenuItem, Me.ToolStripSeparator11, Me.EssensbestellungenToolStripMenuItem, Me.AdministrationEssensbestellungenToolStripMenuItem, Me.ToolStripSeparator24, Me.WarenorteToolStripMenuItem, Me.DatevBuchungsexportToolStripMenuItem, Me.APIToolStripMenuItem, Me.FIBUSachkontenToolStripMenuItem})
|
Me.FunktionenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.GenerelleGestellungenDurchsuchenToolStripMenuItem, Me.KundenVonFremdenSpeditionenToolStripMenuItem, Me.KundenverwaltungToolStripMenuItem, Me.MDMParkplatzkartenToolStripMenuItem, Me.SMSSendenToolStripMenuItem, Me.ZollprogrammeNachEORIDurchsuchenToolStripMenuItem, Me.MRNBarcodedruckToolStripMenuItem, Me.ToolStripSeparator12, Me.tool_BRGXLS, Me.ToolStripMenuItem4, Me.ToolStripMenuItem5, Me.BürgschaftenExcelToolStripMenuItem, Me.ToolStripMenuItem6, Me.GesamtsicherheitenToolStripMenuItem, Me.ToolStripMenuItem10, Me.TICKETWaidhausToolStripMenuItem, Me.ToolStripSeparator10, Me.DAKOSYToolStripMenuItem, Me.ToolStripSeparator23, Me.toolOriginalATR, Me.SDLAbholaufträgeToolStripMenuItem, Me.ToolStripMenuItem13, Me.VorauskassenToolStripMenuItem, Me.ToolStripSeparator11, Me.EssensbestellungenToolStripMenuItem, Me.AdministrationEssensbestellungenToolStripMenuItem, Me.ToolStripSeparator24, Me.WarenorteToolStripMenuItem, Me.DatevBuchungsexportToolStripMenuItem, Me.APIToolStripMenuItem, Me.FIBUSachkontenToolStripMenuItem})
|
||||||
Me.FunktionenToolStripMenuItem.Name = "FunktionenToolStripMenuItem"
|
Me.FunktionenToolStripMenuItem.Name = "FunktionenToolStripMenuItem"
|
||||||
Me.FunktionenToolStripMenuItem.Size = New System.Drawing.Size(79, 21)
|
Me.FunktionenToolStripMenuItem.Size = New System.Drawing.Size(79, 16)
|
||||||
Me.FunktionenToolStripMenuItem.Text = "Funktionen"
|
Me.FunktionenToolStripMenuItem.Text = "Funktionen"
|
||||||
'
|
'
|
||||||
'GenerelleGestellungenDurchsuchenToolStripMenuItem
|
'GenerelleGestellungenDurchsuchenToolStripMenuItem
|
||||||
@@ -1160,7 +1172,7 @@ Partial Class frmHauptfenster
|
|||||||
Me.StatistikToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.LKWBerichtToolStripMenuItem, Me.StatistikADMINToolStripMenuItem, Me.ToolStripSeparator8, Me.BürgschafrtsbuchungenFremdToolStripMenuItem, Me.LKWEingetroffenNachToolStripMenuItem, Me.ToolStripSeparator7, Me.SDLAuswertungenToolStripMenuItem, Me.SDLAuswertungenToolStripMenuItem1})
|
Me.StatistikToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.LKWBerichtToolStripMenuItem, Me.StatistikADMINToolStripMenuItem, Me.ToolStripSeparator8, Me.BürgschafrtsbuchungenFremdToolStripMenuItem, Me.LKWEingetroffenNachToolStripMenuItem, Me.ToolStripSeparator7, Me.SDLAuswertungenToolStripMenuItem, Me.SDLAuswertungenToolStripMenuItem1})
|
||||||
Me.StatistikToolStripMenuItem.ForeColor = System.Drawing.Color.Black
|
Me.StatistikToolStripMenuItem.ForeColor = System.Drawing.Color.Black
|
||||||
Me.StatistikToolStripMenuItem.Name = "StatistikToolStripMenuItem"
|
Me.StatistikToolStripMenuItem.Name = "StatistikToolStripMenuItem"
|
||||||
Me.StatistikToolStripMenuItem.Size = New System.Drawing.Size(83, 21)
|
Me.StatistikToolStripMenuItem.Size = New System.Drawing.Size(83, 16)
|
||||||
Me.StatistikToolStripMenuItem.Text = "Auswertung"
|
Me.StatistikToolStripMenuItem.Text = "Auswertung"
|
||||||
'
|
'
|
||||||
'LKWBerichtToolStripMenuItem
|
'LKWBerichtToolStripMenuItem
|
||||||
@@ -1218,7 +1230,7 @@ Partial Class frmHauptfenster
|
|||||||
Me.ToolStripFormulare.ImageAlign = System.Drawing.ContentAlignment.BottomRight
|
Me.ToolStripFormulare.ImageAlign = System.Drawing.ContentAlignment.BottomRight
|
||||||
Me.ToolStripFormulare.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
|
Me.ToolStripFormulare.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
|
||||||
Me.ToolStripFormulare.Name = "ToolStripFormulare"
|
Me.ToolStripFormulare.Name = "ToolStripFormulare"
|
||||||
Me.ToolStripFormulare.Size = New System.Drawing.Size(73, 21)
|
Me.ToolStripFormulare.Size = New System.Drawing.Size(73, 16)
|
||||||
Me.ToolStripFormulare.Text = "Formulare"
|
Me.ToolStripFormulare.Text = "Formulare"
|
||||||
'
|
'
|
||||||
'MANAGERToolStripMenuItem
|
'MANAGERToolStripMenuItem
|
||||||
@@ -1436,7 +1448,7 @@ Partial Class frmHauptfenster
|
|||||||
Me.mnuFragezeichen.ForeColor = System.Drawing.Color.Black
|
Me.mnuFragezeichen.ForeColor = System.Drawing.Color.Black
|
||||||
Me.mnuFragezeichen.ImageTransparentColor = System.Drawing.Color.Brown
|
Me.mnuFragezeichen.ImageTransparentColor = System.Drawing.Color.Brown
|
||||||
Me.mnuFragezeichen.Name = "mnuFragezeichen"
|
Me.mnuFragezeichen.Name = "mnuFragezeichen"
|
||||||
Me.mnuFragezeichen.Size = New System.Drawing.Size(111, 21)
|
Me.mnuFragezeichen.Size = New System.Drawing.Size(111, 16)
|
||||||
Me.mnuFragezeichen.Text = "Info/Handbücher"
|
Me.mnuFragezeichen.Text = "Info/Handbücher"
|
||||||
'
|
'
|
||||||
'VerfahrenshandbücherToolStripMenuItem
|
'VerfahrenshandbücherToolStripMenuItem
|
||||||
@@ -1528,7 +1540,7 @@ Partial Class frmHauptfenster
|
|||||||
'
|
'
|
||||||
Me.BREXITToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.GVMSToolStripMenuItem, Me.GVMSUKIMportToolStripMenuItem, Me.GVMSBeschreibungToolStripMenuItem, Me.ToolStripSeparator14, Me.TicketIBFInlandBorderFacilitiesToolStripMenuItem, Me.TicketIBFBeschreibungToolStripMenuItem, Me.IBFStatusToolStripMenuItem, Me.ToolStripSeparator15, Me.FREnveloppeSmartBorderToolStripMenuItem, Me.ToolStripSeparator16, Me.PBNIrelandFähreToolStripMenuItem, Me.ToolStripSeparator20, Me.WARENORTToolStripMenuItem, Me.ToolStripMenuItem14, Me.ToolStripSeparator18, Me.EORIUKGeneriertenToolStripMenuItem, Me.KAPKentAccessPermitToolStripMenuItem})
|
Me.BREXITToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.GVMSToolStripMenuItem, Me.GVMSUKIMportToolStripMenuItem, Me.GVMSBeschreibungToolStripMenuItem, Me.ToolStripSeparator14, Me.TicketIBFInlandBorderFacilitiesToolStripMenuItem, Me.TicketIBFBeschreibungToolStripMenuItem, Me.IBFStatusToolStripMenuItem, Me.ToolStripSeparator15, Me.FREnveloppeSmartBorderToolStripMenuItem, Me.ToolStripSeparator16, Me.PBNIrelandFähreToolStripMenuItem, Me.ToolStripSeparator20, Me.WARENORTToolStripMenuItem, Me.ToolStripMenuItem14, Me.ToolStripSeparator18, Me.EORIUKGeneriertenToolStripMenuItem, Me.KAPKentAccessPermitToolStripMenuItem})
|
||||||
Me.BREXITToolStripMenuItem.Name = "BREXITToolStripMenuItem"
|
Me.BREXITToolStripMenuItem.Name = "BREXITToolStripMenuItem"
|
||||||
Me.BREXITToolStripMenuItem.Size = New System.Drawing.Size(55, 21)
|
Me.BREXITToolStripMenuItem.Size = New System.Drawing.Size(55, 16)
|
||||||
Me.BREXITToolStripMenuItem.Text = "BREXIT"
|
Me.BREXITToolStripMenuItem.Text = "BREXIT"
|
||||||
Me.BREXITToolStripMenuItem.Visible = False
|
Me.BREXITToolStripMenuItem.Visible = False
|
||||||
'
|
'
|
||||||
@@ -1735,8 +1747,9 @@ Partial Class frmHauptfenster
|
|||||||
Me.pnlDetailsRechts.Controls.Add(Me.lblMitarbeiter)
|
Me.pnlDetailsRechts.Controls.Add(Me.lblMitarbeiter)
|
||||||
Me.pnlDetailsRechts.Dock = System.Windows.Forms.DockStyle.Fill
|
Me.pnlDetailsRechts.Dock = System.Windows.Forms.DockStyle.Fill
|
||||||
Me.pnlDetailsRechts.Location = New System.Drawing.Point(0, 0)
|
Me.pnlDetailsRechts.Location = New System.Drawing.Point(0, 0)
|
||||||
|
Me.pnlDetailsRechts.MinimumSize = New System.Drawing.Size(200, 0)
|
||||||
Me.pnlDetailsRechts.Name = "pnlDetailsRechts"
|
Me.pnlDetailsRechts.Name = "pnlDetailsRechts"
|
||||||
Me.pnlDetailsRechts.Size = New System.Drawing.Size(550, 598)
|
Me.pnlDetailsRechts.Size = New System.Drawing.Size(547, 609)
|
||||||
Me.pnlDetailsRechts.TabIndex = 0
|
Me.pnlDetailsRechts.TabIndex = 0
|
||||||
'
|
'
|
||||||
'lblMitarbeiter
|
'lblMitarbeiter
|
||||||
@@ -1746,7 +1759,7 @@ Partial Class frmHauptfenster
|
|||||||
Me.lblMitarbeiter.BackColor = System.Drawing.SystemColors.Control
|
Me.lblMitarbeiter.BackColor = System.Drawing.SystemColors.Control
|
||||||
Me.lblMitarbeiter.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
|
Me.lblMitarbeiter.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
|
||||||
Me.lblMitarbeiter.ForeColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
|
Me.lblMitarbeiter.ForeColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
|
||||||
Me.lblMitarbeiter.Location = New System.Drawing.Point(366, -38)
|
Me.lblMitarbeiter.Location = New System.Drawing.Point(366, -52)
|
||||||
Me.lblMitarbeiter.Name = "lblMitarbeiter"
|
Me.lblMitarbeiter.Name = "lblMitarbeiter"
|
||||||
Me.lblMitarbeiter.Size = New System.Drawing.Size(126, 13)
|
Me.lblMitarbeiter.Size = New System.Drawing.Size(126, 13)
|
||||||
Me.lblMitarbeiter.TabIndex = 1
|
Me.lblMitarbeiter.TabIndex = 1
|
||||||
@@ -1796,9 +1809,9 @@ Partial Class frmHauptfenster
|
|||||||
Me.Top.Controls.Add(Me.btnKunden)
|
Me.Top.Controls.Add(Me.btnKunden)
|
||||||
Me.Top.Controls.Add(Me.btnSpedBuch)
|
Me.Top.Controls.Add(Me.btnSpedBuch)
|
||||||
Me.Top.Dock = System.Windows.Forms.DockStyle.Top
|
Me.Top.Dock = System.Windows.Forms.DockStyle.Top
|
||||||
Me.Top.Location = New System.Drawing.Point(0, 25)
|
Me.Top.Location = New System.Drawing.Point(0, 20)
|
||||||
Me.Top.Name = "Top"
|
Me.Top.Name = "Top"
|
||||||
Me.Top.Size = New System.Drawing.Size(1372, 52)
|
Me.Top.Size = New System.Drawing.Size(1302, 63)
|
||||||
Me.Top.TabIndex = 6
|
Me.Top.TabIndex = 6
|
||||||
'
|
'
|
||||||
'Button1
|
'Button1
|
||||||
@@ -1817,7 +1830,7 @@ Partial Class frmHauptfenster
|
|||||||
Me.lblUsrname.BackColor = System.Drawing.Color.White
|
Me.lblUsrname.BackColor = System.Drawing.Color.White
|
||||||
Me.lblUsrname.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
|
Me.lblUsrname.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
|
||||||
Me.lblUsrname.ForeColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
|
Me.lblUsrname.ForeColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
|
||||||
Me.lblUsrname.Location = New System.Drawing.Point(1252, 34)
|
Me.lblUsrname.Location = New System.Drawing.Point(1182, 34)
|
||||||
Me.lblUsrname.Name = "lblUsrname"
|
Me.lblUsrname.Name = "lblUsrname"
|
||||||
Me.lblUsrname.Size = New System.Drawing.Size(75, 13)
|
Me.lblUsrname.Size = New System.Drawing.Size(75, 13)
|
||||||
Me.lblUsrname.TabIndex = 86
|
Me.lblUsrname.TabIndex = 86
|
||||||
@@ -1829,7 +1842,7 @@ Partial Class frmHauptfenster
|
|||||||
Me.lblFimaAviso.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
Me.lblFimaAviso.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||||
Me.lblFimaAviso.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
Me.lblFimaAviso.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
Me.lblFimaAviso.ForeColor = System.Drawing.Color.Black
|
Me.lblFimaAviso.ForeColor = System.Drawing.Color.Black
|
||||||
Me.lblFimaAviso.Location = New System.Drawing.Point(1308, 20)
|
Me.lblFimaAviso.Location = New System.Drawing.Point(1238, 20)
|
||||||
Me.lblFimaAviso.Name = "lblFimaAviso"
|
Me.lblFimaAviso.Name = "lblFimaAviso"
|
||||||
Me.lblFimaAviso.Size = New System.Drawing.Size(63, 13)
|
Me.lblFimaAviso.Size = New System.Drawing.Size(63, 13)
|
||||||
Me.lblFimaAviso.TabIndex = 11
|
Me.lblFimaAviso.TabIndex = 11
|
||||||
@@ -1854,7 +1867,7 @@ Partial Class frmHauptfenster
|
|||||||
Me.btnMAVerzeichnis.ForeColor = System.Drawing.Color.Black
|
Me.btnMAVerzeichnis.ForeColor = System.Drawing.Color.Black
|
||||||
Me.btnMAVerzeichnis.Image = Global.AVISO.My.Resources.Resources.mitarbeiter_s
|
Me.btnMAVerzeichnis.Image = Global.AVISO.My.Resources.Resources.mitarbeiter_s
|
||||||
Me.btnMAVerzeichnis.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
|
Me.btnMAVerzeichnis.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||||
Me.btnMAVerzeichnis.Location = New System.Drawing.Point(758, 6)
|
Me.btnMAVerzeichnis.Location = New System.Drawing.Point(688, 6)
|
||||||
Me.btnMAVerzeichnis.Name = "btnMAVerzeichnis"
|
Me.btnMAVerzeichnis.Name = "btnMAVerzeichnis"
|
||||||
Me.btnMAVerzeichnis.Size = New System.Drawing.Size(107, 39)
|
Me.btnMAVerzeichnis.Size = New System.Drawing.Size(107, 39)
|
||||||
Me.btnMAVerzeichnis.TabIndex = 13
|
Me.btnMAVerzeichnis.TabIndex = 13
|
||||||
@@ -1874,7 +1887,7 @@ Partial Class frmHauptfenster
|
|||||||
Me.btnMitarbeiterKonto.ForeColor = System.Drawing.Color.Black
|
Me.btnMitarbeiterKonto.ForeColor = System.Drawing.Color.Black
|
||||||
Me.btnMitarbeiterKonto.Image = Global.AVISO.My.Resources.Resources.mitarbeiter_s
|
Me.btnMitarbeiterKonto.Image = Global.AVISO.My.Resources.Resources.mitarbeiter_s
|
||||||
Me.btnMitarbeiterKonto.ImageAlign = System.Drawing.ContentAlignment.TopCenter
|
Me.btnMitarbeiterKonto.ImageAlign = System.Drawing.ContentAlignment.TopCenter
|
||||||
Me.btnMitarbeiterKonto.Location = New System.Drawing.Point(1109, -6)
|
Me.btnMitarbeiterKonto.Location = New System.Drawing.Point(1039, -6)
|
||||||
Me.btnMitarbeiterKonto.Name = "btnMitarbeiterKonto"
|
Me.btnMitarbeiterKonto.Name = "btnMitarbeiterKonto"
|
||||||
Me.btnMitarbeiterKonto.Size = New System.Drawing.Size(137, 61)
|
Me.btnMitarbeiterKonto.Size = New System.Drawing.Size(137, 61)
|
||||||
Me.btnMitarbeiterKonto.TabIndex = 86
|
Me.btnMitarbeiterKonto.TabIndex = 86
|
||||||
@@ -1890,7 +1903,7 @@ Partial Class frmHauptfenster
|
|||||||
Me.btnKontakt.ForeColor = System.Drawing.Color.Black
|
Me.btnKontakt.ForeColor = System.Drawing.Color.Black
|
||||||
Me.btnKontakt.Image = Global.AVISO.My.Resources.Resources.Telefonliste_small
|
Me.btnKontakt.Image = Global.AVISO.My.Resources.Resources.Telefonliste_small
|
||||||
Me.btnKontakt.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
|
Me.btnKontakt.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||||
Me.btnKontakt.Location = New System.Drawing.Point(869, 6)
|
Me.btnKontakt.Location = New System.Drawing.Point(799, 6)
|
||||||
Me.btnKontakt.Name = "btnKontakt"
|
Me.btnKontakt.Name = "btnKontakt"
|
||||||
Me.btnKontakt.Size = New System.Drawing.Size(119, 39)
|
Me.btnKontakt.Size = New System.Drawing.Size(119, 39)
|
||||||
Me.btnKontakt.TabIndex = 12
|
Me.btnKontakt.TabIndex = 12
|
||||||
@@ -1908,7 +1921,7 @@ Partial Class frmHauptfenster
|
|||||||
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||||
Me.Button2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
Me.Button2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
Me.Button2.ForeColor = System.Drawing.Color.White
|
Me.Button2.ForeColor = System.Drawing.Color.White
|
||||||
Me.Button2.Location = New System.Drawing.Point(1250, 3)
|
Me.Button2.Location = New System.Drawing.Point(1180, 3)
|
||||||
Me.Button2.Name = "Button2"
|
Me.Button2.Name = "Button2"
|
||||||
Me.Button2.RightToLeft = System.Windows.Forms.RightToLeft.Yes
|
Me.Button2.RightToLeft = System.Windows.Forms.RightToLeft.Yes
|
||||||
Me.Button2.Size = New System.Drawing.Size(45, 20)
|
Me.Button2.Size = New System.Drawing.Size(45, 20)
|
||||||
@@ -1939,7 +1952,7 @@ Partial Class frmHauptfenster
|
|||||||
Me.lblGrenzstelle.BackColor = System.Drawing.Color.White
|
Me.lblGrenzstelle.BackColor = System.Drawing.Color.White
|
||||||
Me.lblGrenzstelle.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
|
Me.lblGrenzstelle.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
|
||||||
Me.lblGrenzstelle.ForeColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
|
Me.lblGrenzstelle.ForeColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
|
||||||
Me.lblGrenzstelle.Location = New System.Drawing.Point(1311, 34)
|
Me.lblGrenzstelle.Location = New System.Drawing.Point(1241, 34)
|
||||||
Me.lblGrenzstelle.Name = "lblGrenzstelle"
|
Me.lblGrenzstelle.Name = "lblGrenzstelle"
|
||||||
Me.lblGrenzstelle.Size = New System.Drawing.Size(60, 13)
|
Me.lblGrenzstelle.Size = New System.Drawing.Size(60, 13)
|
||||||
Me.lblGrenzstelle.TabIndex = 0
|
Me.lblGrenzstelle.TabIndex = 0
|
||||||
@@ -1951,7 +1964,7 @@ Partial Class frmHauptfenster
|
|||||||
Me.lblVersion.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
Me.lblVersion.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||||
Me.lblVersion.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
Me.lblVersion.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
Me.lblVersion.ForeColor = System.Drawing.Color.Black
|
Me.lblVersion.ForeColor = System.Drawing.Color.Black
|
||||||
Me.lblVersion.Location = New System.Drawing.Point(1303, 6)
|
Me.lblVersion.Location = New System.Drawing.Point(1233, 6)
|
||||||
Me.lblVersion.Name = "lblVersion"
|
Me.lblVersion.Name = "lblVersion"
|
||||||
Me.lblVersion.Size = New System.Drawing.Size(68, 13)
|
Me.lblVersion.Size = New System.Drawing.Size(68, 13)
|
||||||
Me.lblVersion.TabIndex = 6
|
Me.lblVersion.TabIndex = 6
|
||||||
@@ -1983,7 +1996,7 @@ Partial Class frmHauptfenster
|
|||||||
Me.btnDienstplan.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
Me.btnDienstplan.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
Me.btnDienstplan.ForeColor = System.Drawing.Color.Black
|
Me.btnDienstplan.ForeColor = System.Drawing.Color.Black
|
||||||
Me.btnDienstplan.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
|
Me.btnDienstplan.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||||
Me.btnDienstplan.Location = New System.Drawing.Point(991, 6)
|
Me.btnDienstplan.Location = New System.Drawing.Point(921, 6)
|
||||||
Me.btnDienstplan.Margin = New System.Windows.Forms.Padding(0)
|
Me.btnDienstplan.Margin = New System.Windows.Forms.Padding(0)
|
||||||
Me.btnDienstplan.Name = "btnDienstplan"
|
Me.btnDienstplan.Name = "btnDienstplan"
|
||||||
Me.btnDienstplan.Size = New System.Drawing.Size(87, 39)
|
Me.btnDienstplan.Size = New System.Drawing.Size(87, 39)
|
||||||
@@ -2090,7 +2103,7 @@ Partial Class frmHauptfenster
|
|||||||
Me.lblDauer.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
|
Me.lblDauer.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
|
||||||
Me.lblDauer.BackColor = System.Drawing.Color.Transparent
|
Me.lblDauer.BackColor = System.Drawing.Color.Transparent
|
||||||
Me.lblDauer.ForeColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
|
Me.lblDauer.ForeColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
|
||||||
Me.lblDauer.Location = New System.Drawing.Point(0, 195)
|
Me.lblDauer.Location = New System.Drawing.Point(2, 283)
|
||||||
Me.lblDauer.Name = "lblDauer"
|
Me.lblDauer.Name = "lblDauer"
|
||||||
Me.lblDauer.Size = New System.Drawing.Size(155, 17)
|
Me.lblDauer.Size = New System.Drawing.Size(155, 17)
|
||||||
Me.lblDauer.TabIndex = 2
|
Me.lblDauer.TabIndex = 2
|
||||||
@@ -2293,68 +2306,30 @@ Partial Class frmHauptfenster
|
|||||||
'
|
'
|
||||||
Me.SplitContainer2.Panel1.BackColor = System.Drawing.SystemColors.Control
|
Me.SplitContainer2.Panel1.BackColor = System.Drawing.SystemColors.Control
|
||||||
Me.SplitContainer2.Panel1.Controls.Add(Me.pnlLinks)
|
Me.SplitContainer2.Panel1.Controls.Add(Me.pnlLinks)
|
||||||
Me.SplitContainer2.Panel1.Controls.Add(Me.pnlLinksOben)
|
|
||||||
Me.SplitContainer2.Panel1MinSize = 164
|
Me.SplitContainer2.Panel1MinSize = 164
|
||||||
'
|
'
|
||||||
'SplitContainer2.Panel2
|
'SplitContainer2.Panel2
|
||||||
'
|
'
|
||||||
Me.SplitContainer2.Panel2.Controls.Add(Me.SplitContainer3)
|
Me.SplitContainer2.Panel2.Controls.Add(Me.SplitContainer3)
|
||||||
Me.SplitContainer2.Size = New System.Drawing.Size(815, 300)
|
Me.SplitContainer2.Size = New System.Drawing.Size(496, 300)
|
||||||
Me.SplitContainer2.SplitterDistance = 164
|
Me.SplitContainer2.SplitterDistance = 164
|
||||||
Me.SplitContainer2.SplitterWidth = 1
|
Me.SplitContainer2.SplitterWidth = 1
|
||||||
Me.SplitContainer2.TabIndex = 0
|
Me.SplitContainer2.TabIndex = 0
|
||||||
'
|
'
|
||||||
'pnlLinks
|
'pnlLinks
|
||||||
'
|
'
|
||||||
|
Me.pnlLinks.Controls.Add(Me.Panel2)
|
||||||
Me.pnlLinks.Controls.Add(Me.Label20)
|
Me.pnlLinks.Controls.Add(Me.Label20)
|
||||||
|
Me.pnlLinks.Controls.Add(Me.pnlLinksOben)
|
||||||
|
Me.pnlLinks.Controls.Add(Me.lblDauer)
|
||||||
Me.pnlLinks.Controls.Add(Me.picAVISOMessenger)
|
Me.pnlLinks.Controls.Add(Me.picAVISOMessenger)
|
||||||
Me.pnlLinks.Controls.Add(Me.pic)
|
Me.pnlLinks.Controls.Add(Me.pic)
|
||||||
Me.pnlLinks.Controls.Add(Me.lblDauer)
|
|
||||||
Me.pnlLinks.Controls.Add(Me.Panel2)
|
|
||||||
Me.pnlLinks.Dock = System.Windows.Forms.DockStyle.Fill
|
Me.pnlLinks.Dock = System.Windows.Forms.DockStyle.Fill
|
||||||
Me.pnlLinks.Location = New System.Drawing.Point(0, 86)
|
Me.pnlLinks.Location = New System.Drawing.Point(0, 0)
|
||||||
Me.pnlLinks.Name = "pnlLinks"
|
Me.pnlLinks.Name = "pnlLinks"
|
||||||
Me.pnlLinks.Size = New System.Drawing.Size(164, 214)
|
Me.pnlLinks.Size = New System.Drawing.Size(164, 300)
|
||||||
Me.pnlLinks.TabIndex = 0
|
Me.pnlLinks.TabIndex = 0
|
||||||
'
|
'
|
||||||
'Label20
|
|
||||||
'
|
|
||||||
Me.Label20.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
|
|
||||||
Me.Label20.BackColor = System.Drawing.Color.Red
|
|
||||||
Me.Label20.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
||||||
Me.Label20.ForeColor = System.Drawing.Color.White
|
|
||||||
Me.Label20.Location = New System.Drawing.Point(49, 167)
|
|
||||||
Me.Label20.Name = "Label20"
|
|
||||||
Me.Label20.Size = New System.Drawing.Size(28, 19)
|
|
||||||
Me.Label20.TabIndex = 9
|
|
||||||
Me.Label20.Text = "99"
|
|
||||||
Me.Label20.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
|
||||||
Me.Label20.Visible = False
|
|
||||||
'
|
|
||||||
'picAVISOMessenger
|
|
||||||
'
|
|
||||||
Me.picAVISOMessenger.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
|
|
||||||
Me.picAVISOMessenger.BackgroundImage = Global.AVISO.My.Resources.Resources.aviso_messenger
|
|
||||||
Me.picAVISOMessenger.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
|
||||||
Me.picAVISOMessenger.Cursor = System.Windows.Forms.Cursors.Hand
|
|
||||||
Me.picAVISOMessenger.Location = New System.Drawing.Point(1, 119)
|
|
||||||
Me.picAVISOMessenger.Name = "picAVISOMessenger"
|
|
||||||
Me.picAVISOMessenger.Size = New System.Drawing.Size(59, 55)
|
|
||||||
Me.picAVISOMessenger.TabIndex = 7
|
|
||||||
Me.picAVISOMessenger.TabStop = False
|
|
||||||
Me.picAVISOMessenger.Visible = False
|
|
||||||
'
|
|
||||||
'pic
|
|
||||||
'
|
|
||||||
Me.pic.BackgroundImage = Global.AVISO.My.Resources.Resources.disconnect
|
|
||||||
Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
|
||||||
Me.pic.Location = New System.Drawing.Point(69, 124)
|
|
||||||
Me.pic.Name = "pic"
|
|
||||||
Me.pic.Size = New System.Drawing.Size(59, 50)
|
|
||||||
Me.pic.TabIndex = 5
|
|
||||||
Me.pic.TabStop = False
|
|
||||||
Me.pic.Visible = False
|
|
||||||
'
|
|
||||||
'Panel2
|
'Panel2
|
||||||
'
|
'
|
||||||
Me.Panel2.Controls.Add(Me.btnZertifikate)
|
Me.Panel2.Controls.Add(Me.btnZertifikate)
|
||||||
@@ -2364,7 +2339,7 @@ Partial Class frmHauptfenster
|
|||||||
Me.Panel2.Controls.Add(Me.btnZollwebseiten)
|
Me.Panel2.Controls.Add(Me.btnZollwebseiten)
|
||||||
Me.Panel2.Controls.Add(Me.lblHinweis)
|
Me.Panel2.Controls.Add(Me.lblHinweis)
|
||||||
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
|
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
|
||||||
Me.Panel2.Location = New System.Drawing.Point(0, 0)
|
Me.Panel2.Location = New System.Drawing.Point(0, 91)
|
||||||
Me.Panel2.Name = "Panel2"
|
Me.Panel2.Name = "Panel2"
|
||||||
Me.Panel2.Size = New System.Drawing.Size(164, 111)
|
Me.Panel2.Size = New System.Drawing.Size(164, 111)
|
||||||
Me.Panel2.TabIndex = 10
|
Me.Panel2.TabIndex = 10
|
||||||
@@ -2420,15 +2395,30 @@ Partial Class frmHauptfenster
|
|||||||
Me.lblHinweis.Text = "Hinweis eingetragen"
|
Me.lblHinweis.Text = "Hinweis eingetragen"
|
||||||
Me.lblHinweis.Visible = False
|
Me.lblHinweis.Visible = False
|
||||||
'
|
'
|
||||||
|
'Label20
|
||||||
|
'
|
||||||
|
Me.Label20.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
|
||||||
|
Me.Label20.BackColor = System.Drawing.Color.Red
|
||||||
|
Me.Label20.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
|
Me.Label20.ForeColor = System.Drawing.Color.White
|
||||||
|
Me.Label20.Location = New System.Drawing.Point(51, 255)
|
||||||
|
Me.Label20.Name = "Label20"
|
||||||
|
Me.Label20.Size = New System.Drawing.Size(28, 19)
|
||||||
|
Me.Label20.TabIndex = 9
|
||||||
|
Me.Label20.Text = "99"
|
||||||
|
Me.Label20.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||||
|
Me.Label20.Visible = False
|
||||||
|
'
|
||||||
'pnlLinksOben
|
'pnlLinksOben
|
||||||
'
|
'
|
||||||
Me.pnlLinksOben.Controls.Add(Me.Label22)
|
Me.pnlLinksOben.Controls.Add(Me.Label22)
|
||||||
Me.pnlLinksOben.Controls.Add(Me.Button12)
|
Me.pnlLinksOben.Controls.Add(Me.btnE_Aviso)
|
||||||
Me.pnlLinksOben.Controls.Add(Me.btnNeu)
|
Me.pnlLinksOben.Controls.Add(Me.btnNeu)
|
||||||
|
Me.pnlLinksOben.Controls.Add(Me.Button7)
|
||||||
Me.pnlLinksOben.Dock = System.Windows.Forms.DockStyle.Top
|
Me.pnlLinksOben.Dock = System.Windows.Forms.DockStyle.Top
|
||||||
Me.pnlLinksOben.Location = New System.Drawing.Point(0, 0)
|
Me.pnlLinksOben.Location = New System.Drawing.Point(0, 0)
|
||||||
Me.pnlLinksOben.Name = "pnlLinksOben"
|
Me.pnlLinksOben.Name = "pnlLinksOben"
|
||||||
Me.pnlLinksOben.Size = New System.Drawing.Size(164, 86)
|
Me.pnlLinksOben.Size = New System.Drawing.Size(164, 91)
|
||||||
Me.pnlLinksOben.TabIndex = 1
|
Me.pnlLinksOben.TabIndex = 1
|
||||||
'
|
'
|
||||||
'Label22
|
'Label22
|
||||||
@@ -2436,7 +2426,7 @@ Partial Class frmHauptfenster
|
|||||||
Me.Label22.BackColor = System.Drawing.Color.Red
|
Me.Label22.BackColor = System.Drawing.Color.Red
|
||||||
Me.Label22.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
Me.Label22.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
Me.Label22.ForeColor = System.Drawing.Color.White
|
Me.Label22.ForeColor = System.Drawing.Color.White
|
||||||
Me.Label22.Location = New System.Drawing.Point(92, 53)
|
Me.Label22.Location = New System.Drawing.Point(92, 48)
|
||||||
Me.Label22.Name = "Label22"
|
Me.Label22.Name = "Label22"
|
||||||
Me.Label22.Size = New System.Drawing.Size(28, 19)
|
Me.Label22.Size = New System.Drawing.Size(28, 19)
|
||||||
Me.Label22.TabIndex = 10
|
Me.Label22.TabIndex = 10
|
||||||
@@ -2444,21 +2434,21 @@ Partial Class frmHauptfenster
|
|||||||
Me.Label22.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
Me.Label22.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||||
Me.Label22.Visible = False
|
Me.Label22.Visible = False
|
||||||
'
|
'
|
||||||
'Button12
|
'btnE_Aviso
|
||||||
'
|
'
|
||||||
Me.Button12.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
Me.btnE_Aviso.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||||
Me.Button12.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
Me.btnE_Aviso.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
Me.Button12.ForeColor = System.Drawing.Color.Black
|
Me.btnE_Aviso.ForeColor = System.Drawing.Color.Black
|
||||||
Me.Button12.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
|
Me.btnE_Aviso.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||||
Me.Button12.Location = New System.Drawing.Point(5, 44)
|
Me.btnE_Aviso.Location = New System.Drawing.Point(5, 39)
|
||||||
Me.Button12.MaximumSize = New System.Drawing.Size(121, 34)
|
Me.btnE_Aviso.MaximumSize = New System.Drawing.Size(121, 34)
|
||||||
Me.Button12.Name = "Button12"
|
Me.btnE_Aviso.Name = "btnE_Aviso"
|
||||||
Me.Button12.Size = New System.Drawing.Size(121, 34)
|
Me.btnE_Aviso.Size = New System.Drawing.Size(121, 34)
|
||||||
Me.Button12.TabIndex = 1
|
Me.btnE_Aviso.TabIndex = 1
|
||||||
Me.Button12.Text = "eAVISO"
|
Me.btnE_Aviso.Text = "eAVISO"
|
||||||
Me.Button12.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
Me.btnE_Aviso.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||||
Me.Button12.UseVisualStyleBackColor = True
|
Me.btnE_Aviso.UseVisualStyleBackColor = True
|
||||||
Me.Button12.Visible = False
|
Me.btnE_Aviso.Visible = False
|
||||||
'
|
'
|
||||||
'btnNeu
|
'btnNeu
|
||||||
'
|
'
|
||||||
@@ -2473,7 +2463,7 @@ Partial Class frmHauptfenster
|
|||||||
Me.btnNeu.Name = "btnNeu"
|
Me.btnNeu.Name = "btnNeu"
|
||||||
Me.btnNeu.Size = New System.Drawing.Size(121, 34)
|
Me.btnNeu.Size = New System.Drawing.Size(121, 34)
|
||||||
Me.btnNeu.TabIndex = 0
|
Me.btnNeu.TabIndex = 0
|
||||||
Me.btnNeu.Text = " NEU"
|
Me.btnNeu.Text = " LKW"
|
||||||
Me.btnNeu.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
Me.btnNeu.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||||
Me.btnNeu.UseVisualStyleBackColor = True
|
Me.btnNeu.UseVisualStyleBackColor = True
|
||||||
'
|
'
|
||||||
@@ -2490,6 +2480,47 @@ Partial Class frmHauptfenster
|
|||||||
Me.ToolStripMenuItem17.Size = New System.Drawing.Size(110, 22)
|
Me.ToolStripMenuItem17.Size = New System.Drawing.Size(110, 22)
|
||||||
Me.ToolStripMenuItem17.Text = "ATILLA"
|
Me.ToolStripMenuItem17.Text = "ATILLA"
|
||||||
'
|
'
|
||||||
|
'Button7
|
||||||
|
'
|
||||||
|
Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||||
|
Me.Button7.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
|
||||||
|
Me.Button7.ForeColor = System.Drawing.Color.Black
|
||||||
|
Me.Button7.Image = CType(resources.GetObject("Button7.Image"), System.Drawing.Image)
|
||||||
|
Me.Button7.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||||
|
Me.Button7.Location = New System.Drawing.Point(70, 39)
|
||||||
|
Me.Button7.MaximumSize = New System.Drawing.Size(121, 35)
|
||||||
|
Me.Button7.Name = "Button7"
|
||||||
|
Me.Button7.Size = New System.Drawing.Size(121, 35)
|
||||||
|
Me.Button7.TabIndex = 11
|
||||||
|
Me.Button7.Text = "Sendung"
|
||||||
|
Me.Button7.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||||
|
Me.Button7.UseVisualStyleBackColor = True
|
||||||
|
Me.Button7.Visible = False
|
||||||
|
'
|
||||||
|
'picAVISOMessenger
|
||||||
|
'
|
||||||
|
Me.picAVISOMessenger.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
|
||||||
|
Me.picAVISOMessenger.BackgroundImage = Global.AVISO.My.Resources.Resources.aviso_messenger
|
||||||
|
Me.picAVISOMessenger.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||||
|
Me.picAVISOMessenger.Cursor = System.Windows.Forms.Cursors.Hand
|
||||||
|
Me.picAVISOMessenger.Location = New System.Drawing.Point(3, 207)
|
||||||
|
Me.picAVISOMessenger.Name = "picAVISOMessenger"
|
||||||
|
Me.picAVISOMessenger.Size = New System.Drawing.Size(59, 55)
|
||||||
|
Me.picAVISOMessenger.TabIndex = 7
|
||||||
|
Me.picAVISOMessenger.TabStop = False
|
||||||
|
Me.picAVISOMessenger.Visible = False
|
||||||
|
'
|
||||||
|
'pic
|
||||||
|
'
|
||||||
|
Me.pic.BackgroundImage = Global.AVISO.My.Resources.Resources.disconnect
|
||||||
|
Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||||
|
Me.pic.Location = New System.Drawing.Point(71, 126)
|
||||||
|
Me.pic.Name = "pic"
|
||||||
|
Me.pic.Size = New System.Drawing.Size(59, 50)
|
||||||
|
Me.pic.TabIndex = 5
|
||||||
|
Me.pic.TabStop = False
|
||||||
|
Me.pic.Visible = False
|
||||||
|
'
|
||||||
'SplitContainer3
|
'SplitContainer3
|
||||||
'
|
'
|
||||||
Me.SplitContainer3.Dock = System.Windows.Forms.DockStyle.Fill
|
Me.SplitContainer3.Dock = System.Windows.Forms.DockStyle.Fill
|
||||||
@@ -2503,8 +2534,8 @@ Partial Class frmHauptfenster
|
|||||||
'SplitContainer3.Panel2
|
'SplitContainer3.Panel2
|
||||||
'
|
'
|
||||||
Me.SplitContainer3.Panel2.Controls.Add(Me.pnl)
|
Me.SplitContainer3.Panel2.Controls.Add(Me.pnl)
|
||||||
Me.SplitContainer3.Size = New System.Drawing.Size(650, 300)
|
Me.SplitContainer3.Size = New System.Drawing.Size(331, 300)
|
||||||
Me.SplitContainer3.SplitterDistance = 158
|
Me.SplitContainer3.SplitterDistance = 77
|
||||||
Me.SplitContainer3.TabIndex = 3
|
Me.SplitContainer3.TabIndex = 3
|
||||||
'
|
'
|
||||||
'UsrCntlBenachrichtigungen1
|
'UsrCntlBenachrichtigungen1
|
||||||
@@ -2524,7 +2555,7 @@ Partial Class frmHauptfenster
|
|||||||
Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill
|
Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill
|
||||||
Me.pnl.Location = New System.Drawing.Point(0, 0)
|
Me.pnl.Location = New System.Drawing.Point(0, 0)
|
||||||
Me.pnl.Name = "pnl"
|
Me.pnl.Name = "pnl"
|
||||||
Me.pnl.Size = New System.Drawing.Size(488, 300)
|
Me.pnl.Size = New System.Drawing.Size(250, 300)
|
||||||
Me.pnl.TabIndex = 0
|
Me.pnl.TabIndex = 0
|
||||||
'
|
'
|
||||||
'Button10
|
'Button10
|
||||||
@@ -2582,7 +2613,7 @@ Partial Class frmHauptfenster
|
|||||||
Me.gridMyAviso.RowHeadersDefaultCellStyle = DataGridViewCellStyle4
|
Me.gridMyAviso.RowHeadersDefaultCellStyle = DataGridViewCellStyle4
|
||||||
Me.gridMyAviso.RowHeadersVisible = False
|
Me.gridMyAviso.RowHeadersVisible = False
|
||||||
Me.gridMyAviso.RowHeadersWidth = 62
|
Me.gridMyAviso.RowHeadersWidth = 62
|
||||||
Me.gridMyAviso.Size = New System.Drawing.Size(488, 279)
|
Me.gridMyAviso.Size = New System.Drawing.Size(250, 279)
|
||||||
Me.gridMyAviso.TabIndex = 0
|
Me.gridMyAviso.TabIndex = 0
|
||||||
'
|
'
|
||||||
'Panel6
|
'Panel6
|
||||||
@@ -2602,7 +2633,7 @@ Partial Class frmHauptfenster
|
|||||||
Me.Panel6.Dock = System.Windows.Forms.DockStyle.Top
|
Me.Panel6.Dock = System.Windows.Forms.DockStyle.Top
|
||||||
Me.Panel6.Location = New System.Drawing.Point(0, 0)
|
Me.Panel6.Location = New System.Drawing.Point(0, 0)
|
||||||
Me.Panel6.Name = "Panel6"
|
Me.Panel6.Name = "Panel6"
|
||||||
Me.Panel6.Size = New System.Drawing.Size(488, 21)
|
Me.Panel6.Size = New System.Drawing.Size(250, 21)
|
||||||
Me.Panel6.TabIndex = 1
|
Me.Panel6.TabIndex = 1
|
||||||
'
|
'
|
||||||
'cbx_My_Brexit
|
'cbx_My_Brexit
|
||||||
@@ -2610,7 +2641,7 @@ Partial Class frmHauptfenster
|
|||||||
Me.cbx_My_Brexit.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
Me.cbx_My_Brexit.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||||
Me.cbx_My_Brexit.AutoSize = True
|
Me.cbx_My_Brexit.AutoSize = True
|
||||||
Me.cbx_My_Brexit.ForeColor = System.Drawing.Color.White
|
Me.cbx_My_Brexit.ForeColor = System.Drawing.Color.White
|
||||||
Me.cbx_My_Brexit.Location = New System.Drawing.Point(-91, 3)
|
Me.cbx_My_Brexit.Location = New System.Drawing.Point(-329, 3)
|
||||||
Me.cbx_My_Brexit.Name = "cbx_My_Brexit"
|
Me.cbx_My_Brexit.Name = "cbx_My_Brexit"
|
||||||
Me.cbx_My_Brexit.Size = New System.Drawing.Size(65, 17)
|
Me.cbx_My_Brexit.Size = New System.Drawing.Size(65, 17)
|
||||||
Me.cbx_My_Brexit.TabIndex = 28
|
Me.cbx_My_Brexit.TabIndex = 28
|
||||||
@@ -2622,7 +2653,7 @@ Partial Class frmHauptfenster
|
|||||||
'
|
'
|
||||||
Me.btnColor.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
Me.btnColor.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||||
Me.btnColor.BackColor = System.Drawing.Color.White
|
Me.btnColor.BackColor = System.Drawing.Color.White
|
||||||
Me.btnColor.Location = New System.Drawing.Point(397, -1)
|
Me.btnColor.Location = New System.Drawing.Point(159, -1)
|
||||||
Me.btnColor.Name = "btnColor"
|
Me.btnColor.Name = "btnColor"
|
||||||
Me.btnColor.Size = New System.Drawing.Size(36, 23)
|
Me.btnColor.Size = New System.Drawing.Size(36, 23)
|
||||||
Me.btnColor.TabIndex = 27
|
Me.btnColor.TabIndex = 27
|
||||||
@@ -2652,7 +2683,7 @@ Partial Class frmHauptfenster
|
|||||||
Me.cboMy_Grenzstelle.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
Me.cboMy_Grenzstelle.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||||
Me.cboMy_Grenzstelle.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
|
Me.cboMy_Grenzstelle.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
|
||||||
Me.cboMy_Grenzstelle.FormattingEnabled = True
|
Me.cboMy_Grenzstelle.FormattingEnabled = True
|
||||||
Me.cboMy_Grenzstelle.Location = New System.Drawing.Point(113, 1)
|
Me.cboMy_Grenzstelle.Location = New System.Drawing.Point(-125, 1)
|
||||||
Me.cboMy_Grenzstelle.Name = "cboMy_Grenzstelle"
|
Me.cboMy_Grenzstelle.Name = "cboMy_Grenzstelle"
|
||||||
Me.cboMy_Grenzstelle.Size = New System.Drawing.Size(64, 21)
|
Me.cboMy_Grenzstelle.Size = New System.Drawing.Size(64, 21)
|
||||||
Me.cboMy_Grenzstelle.TabIndex = 26
|
Me.cboMy_Grenzstelle.TabIndex = 26
|
||||||
@@ -2662,7 +2693,7 @@ Partial Class frmHauptfenster
|
|||||||
Me.lblMySnd_Grenzstelle.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
Me.lblMySnd_Grenzstelle.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||||
Me.lblMySnd_Grenzstelle.AutoSize = True
|
Me.lblMySnd_Grenzstelle.AutoSize = True
|
||||||
Me.lblMySnd_Grenzstelle.ForeColor = System.Drawing.Color.White
|
Me.lblMySnd_Grenzstelle.ForeColor = System.Drawing.Color.White
|
||||||
Me.lblMySnd_Grenzstelle.Location = New System.Drawing.Point(45, 4)
|
Me.lblMySnd_Grenzstelle.Location = New System.Drawing.Point(-193, 4)
|
||||||
Me.lblMySnd_Grenzstelle.Name = "lblMySnd_Grenzstelle"
|
Me.lblMySnd_Grenzstelle.Name = "lblMySnd_Grenzstelle"
|
||||||
Me.lblMySnd_Grenzstelle.Size = New System.Drawing.Size(62, 13)
|
Me.lblMySnd_Grenzstelle.Size = New System.Drawing.Size(62, 13)
|
||||||
Me.lblMySnd_Grenzstelle.TabIndex = 25
|
Me.lblMySnd_Grenzstelle.TabIndex = 25
|
||||||
@@ -2673,7 +2704,7 @@ Partial Class frmHauptfenster
|
|||||||
Me.cbx_My_LKW.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
Me.cbx_My_LKW.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||||
Me.cbx_My_LKW.AutoSize = True
|
Me.cbx_My_LKW.AutoSize = True
|
||||||
Me.cbx_My_LKW.ForeColor = System.Drawing.Color.White
|
Me.cbx_My_LKW.ForeColor = System.Drawing.Color.White
|
||||||
Me.cbx_My_LKW.Location = New System.Drawing.Point(-11, 3)
|
Me.cbx_My_LKW.Location = New System.Drawing.Point(-249, 3)
|
||||||
Me.cbx_My_LKW.Name = "cbx_My_LKW"
|
Me.cbx_My_LKW.Name = "cbx_My_LKW"
|
||||||
Me.cbx_My_LKW.Size = New System.Drawing.Size(50, 17)
|
Me.cbx_My_LKW.Size = New System.Drawing.Size(50, 17)
|
||||||
Me.cbx_My_LKW.TabIndex = 24
|
Me.cbx_My_LKW.TabIndex = 24
|
||||||
@@ -2687,7 +2718,7 @@ Partial Class frmHauptfenster
|
|||||||
Me.cboMy_QS.Checked = True
|
Me.cboMy_QS.Checked = True
|
||||||
Me.cboMy_QS.CheckState = System.Windows.Forms.CheckState.Indeterminate
|
Me.cboMy_QS.CheckState = System.Windows.Forms.CheckState.Indeterminate
|
||||||
Me.cboMy_QS.ForeColor = System.Drawing.Color.White
|
Me.cboMy_QS.ForeColor = System.Drawing.Color.White
|
||||||
Me.cboMy_QS.Location = New System.Drawing.Point(445, 3)
|
Me.cboMy_QS.Location = New System.Drawing.Point(207, 3)
|
||||||
Me.cboMy_QS.Name = "cboMy_QS"
|
Me.cboMy_QS.Name = "cboMy_QS"
|
||||||
Me.cboMy_QS.Size = New System.Drawing.Size(15, 14)
|
Me.cboMy_QS.Size = New System.Drawing.Size(15, 14)
|
||||||
Me.cboMy_QS.TabIndex = 23
|
Me.cboMy_QS.TabIndex = 23
|
||||||
@@ -2701,7 +2732,7 @@ Partial Class frmHauptfenster
|
|||||||
Me.cboMy_VB.Checked = True
|
Me.cboMy_VB.Checked = True
|
||||||
Me.cboMy_VB.CheckState = System.Windows.Forms.CheckState.Indeterminate
|
Me.cboMy_VB.CheckState = System.Windows.Forms.CheckState.Indeterminate
|
||||||
Me.cboMy_VB.ForeColor = System.Drawing.Color.White
|
Me.cboMy_VB.ForeColor = System.Drawing.Color.White
|
||||||
Me.cboMy_VB.Location = New System.Drawing.Point(464, 3)
|
Me.cboMy_VB.Location = New System.Drawing.Point(226, 3)
|
||||||
Me.cboMy_VB.Name = "cboMy_VB"
|
Me.cboMy_VB.Name = "cboMy_VB"
|
||||||
Me.cboMy_VB.Size = New System.Drawing.Size(15, 14)
|
Me.cboMy_VB.Size = New System.Drawing.Size(15, 14)
|
||||||
Me.cboMy_VB.TabIndex = 22
|
Me.cboMy_VB.TabIndex = 22
|
||||||
@@ -2719,7 +2750,7 @@ Partial Class frmHauptfenster
|
|||||||
Me.cboMyAvisoAnzeige.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
Me.cboMyAvisoAnzeige.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||||
Me.cboMyAvisoAnzeige.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
|
Me.cboMyAvisoAnzeige.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
|
||||||
Me.cboMyAvisoAnzeige.FormattingEnabled = True
|
Me.cboMyAvisoAnzeige.FormattingEnabled = True
|
||||||
Me.cboMyAvisoAnzeige.Location = New System.Drawing.Point(232, 1)
|
Me.cboMyAvisoAnzeige.Location = New System.Drawing.Point(-6, 1)
|
||||||
Me.cboMyAvisoAnzeige.Name = "cboMyAvisoAnzeige"
|
Me.cboMyAvisoAnzeige.Name = "cboMyAvisoAnzeige"
|
||||||
Me.cboMyAvisoAnzeige.Size = New System.Drawing.Size(127, 21)
|
Me.cboMyAvisoAnzeige.Size = New System.Drawing.Size(127, 21)
|
||||||
Me.cboMyAvisoAnzeige.TabIndex = 21
|
Me.cboMyAvisoAnzeige.TabIndex = 21
|
||||||
@@ -2729,7 +2760,7 @@ Partial Class frmHauptfenster
|
|||||||
Me.lblMySND_Anzeige.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
Me.lblMySND_Anzeige.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||||
Me.lblMySND_Anzeige.AutoSize = True
|
Me.lblMySND_Anzeige.AutoSize = True
|
||||||
Me.lblMySND_Anzeige.ForeColor = System.Drawing.Color.White
|
Me.lblMySND_Anzeige.ForeColor = System.Drawing.Color.White
|
||||||
Me.lblMySND_Anzeige.Location = New System.Drawing.Point(183, 3)
|
Me.lblMySND_Anzeige.Location = New System.Drawing.Point(-55, 3)
|
||||||
Me.lblMySND_Anzeige.Name = "lblMySND_Anzeige"
|
Me.lblMySND_Anzeige.Name = "lblMySND_Anzeige"
|
||||||
Me.lblMySND_Anzeige.Size = New System.Drawing.Size(48, 13)
|
Me.lblMySND_Anzeige.Size = New System.Drawing.Size(48, 13)
|
||||||
Me.lblMySND_Anzeige.TabIndex = 20
|
Me.lblMySND_Anzeige.TabIndex = 20
|
||||||
@@ -2739,7 +2770,7 @@ Partial Class frmHauptfenster
|
|||||||
'
|
'
|
||||||
Me.lblAkte.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
Me.lblAkte.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||||
Me.lblAkte.ForeColor = System.Drawing.Color.White
|
Me.lblAkte.ForeColor = System.Drawing.Color.White
|
||||||
Me.lblAkte.Location = New System.Drawing.Point(761, 6)
|
Me.lblAkte.Location = New System.Drawing.Point(523, 6)
|
||||||
Me.lblAkte.Name = "lblAkte"
|
Me.lblAkte.Name = "lblAkte"
|
||||||
Me.lblAkte.Size = New System.Drawing.Size(207, 19)
|
Me.lblAkte.Size = New System.Drawing.Size(207, 19)
|
||||||
Me.lblAkte.TabIndex = 1
|
Me.lblAkte.TabIndex = 1
|
||||||
@@ -2774,7 +2805,7 @@ Partial Class frmHauptfenster
|
|||||||
Me.tabVorgeschrieben.Location = New System.Drawing.Point(4, 34)
|
Me.tabVorgeschrieben.Location = New System.Drawing.Point(4, 34)
|
||||||
Me.tabVorgeschrieben.Name = "tabVorgeschrieben"
|
Me.tabVorgeschrieben.Name = "tabVorgeschrieben"
|
||||||
Me.tabVorgeschrieben.Padding = New System.Windows.Forms.Padding(3)
|
Me.tabVorgeschrieben.Padding = New System.Windows.Forms.Padding(3)
|
||||||
Me.tabVorgeschrieben.Size = New System.Drawing.Size(385, 0)
|
Me.tabVorgeschrieben.Size = New System.Drawing.Size(121, 0)
|
||||||
Me.tabVorgeschrieben.TabIndex = 3
|
Me.tabVorgeschrieben.TabIndex = 3
|
||||||
Me.tabVorgeschrieben.Text = "3.Vorgeschrieben"
|
Me.tabVorgeschrieben.Text = "3.Vorgeschrieben"
|
||||||
'
|
'
|
||||||
@@ -2785,7 +2816,7 @@ Partial Class frmHauptfenster
|
|||||||
Me.tabFreigegeben.Location = New System.Drawing.Point(4, 34)
|
Me.tabFreigegeben.Location = New System.Drawing.Point(4, 34)
|
||||||
Me.tabFreigegeben.Name = "tabFreigegeben"
|
Me.tabFreigegeben.Name = "tabFreigegeben"
|
||||||
Me.tabFreigegeben.Padding = New System.Windows.Forms.Padding(3)
|
Me.tabFreigegeben.Padding = New System.Windows.Forms.Padding(3)
|
||||||
Me.tabFreigegeben.Size = New System.Drawing.Size(385, 0)
|
Me.tabFreigegeben.Size = New System.Drawing.Size(121, 0)
|
||||||
Me.tabFreigegeben.TabIndex = 5
|
Me.tabFreigegeben.TabIndex = 5
|
||||||
Me.tabFreigegeben.Text = "5. Freigegeben"
|
Me.tabFreigegeben.Text = "5. Freigegeben"
|
||||||
'
|
'
|
||||||
@@ -2796,7 +2827,7 @@ Partial Class frmHauptfenster
|
|||||||
Me.tabNichtEingetroffen.Location = New System.Drawing.Point(4, 34)
|
Me.tabNichtEingetroffen.Location = New System.Drawing.Point(4, 34)
|
||||||
Me.tabNichtEingetroffen.Name = "tabNichtEingetroffen"
|
Me.tabNichtEingetroffen.Name = "tabNichtEingetroffen"
|
||||||
Me.tabNichtEingetroffen.Padding = New System.Windows.Forms.Padding(3)
|
Me.tabNichtEingetroffen.Padding = New System.Windows.Forms.Padding(3)
|
||||||
Me.tabNichtEingetroffen.Size = New System.Drawing.Size(385, 0)
|
Me.tabNichtEingetroffen.Size = New System.Drawing.Size(121, 0)
|
||||||
Me.tabNichtEingetroffen.TabIndex = 6
|
Me.tabNichtEingetroffen.TabIndex = 6
|
||||||
Me.tabNichtEingetroffen.Text = "Nicht eingetroffen"
|
Me.tabNichtEingetroffen.Text = "Nicht eingetroffen"
|
||||||
'
|
'
|
||||||
@@ -2807,7 +2838,7 @@ Partial Class frmHauptfenster
|
|||||||
Me.tabAnkunft.Location = New System.Drawing.Point(4, 34)
|
Me.tabAnkunft.Location = New System.Drawing.Point(4, 34)
|
||||||
Me.tabAnkunft.Name = "tabAnkunft"
|
Me.tabAnkunft.Name = "tabAnkunft"
|
||||||
Me.tabAnkunft.Padding = New System.Windows.Forms.Padding(3)
|
Me.tabAnkunft.Padding = New System.Windows.Forms.Padding(3)
|
||||||
Me.tabAnkunft.Size = New System.Drawing.Size(385, 0)
|
Me.tabAnkunft.Size = New System.Drawing.Size(121, 0)
|
||||||
Me.tabAnkunft.TabIndex = 4
|
Me.tabAnkunft.TabIndex = 4
|
||||||
Me.tabAnkunft.Text = "4. Ankunft"
|
Me.tabAnkunft.Text = "4. Ankunft"
|
||||||
'
|
'
|
||||||
@@ -2818,7 +2849,7 @@ Partial Class frmHauptfenster
|
|||||||
Me.tabVorbereitet.Location = New System.Drawing.Point(4, 34)
|
Me.tabVorbereitet.Location = New System.Drawing.Point(4, 34)
|
||||||
Me.tabVorbereitet.Name = "tabVorbereitet"
|
Me.tabVorbereitet.Name = "tabVorbereitet"
|
||||||
Me.tabVorbereitet.Padding = New System.Windows.Forms.Padding(3)
|
Me.tabVorbereitet.Padding = New System.Windows.Forms.Padding(3)
|
||||||
Me.tabVorbereitet.Size = New System.Drawing.Size(385, 0)
|
Me.tabVorbereitet.Size = New System.Drawing.Size(121, 0)
|
||||||
Me.tabVorbereitet.TabIndex = 2
|
Me.tabVorbereitet.TabIndex = 2
|
||||||
Me.tabVorbereitet.Text = "2.Vorbereitet QS"
|
Me.tabVorbereitet.Text = "2.Vorbereitet QS"
|
||||||
'
|
'
|
||||||
@@ -2827,7 +2858,7 @@ Partial Class frmHauptfenster
|
|||||||
Me.pnlAktOption.Dock = System.Windows.Forms.DockStyle.Top
|
Me.pnlAktOption.Dock = System.Windows.Forms.DockStyle.Top
|
||||||
Me.pnlAktOption.Location = New System.Drawing.Point(0, 0)
|
Me.pnlAktOption.Location = New System.Drawing.Point(0, 0)
|
||||||
Me.pnlAktOption.Name = "pnlAktOption"
|
Me.pnlAktOption.Name = "pnlAktOption"
|
||||||
Me.pnlAktOption.Size = New System.Drawing.Size(815, 5)
|
Me.pnlAktOption.Size = New System.Drawing.Size(496, 5)
|
||||||
Me.pnlAktOption.TabIndex = 1
|
Me.pnlAktOption.TabIndex = 1
|
||||||
'
|
'
|
||||||
'Button8
|
'Button8
|
||||||
@@ -2837,7 +2868,7 @@ Partial Class frmHauptfenster
|
|||||||
Me.Button8.ForeColor = System.Drawing.Color.Black
|
Me.Button8.ForeColor = System.Drawing.Color.Black
|
||||||
Me.Button8.Image = CType(resources.GetObject("Button8.Image"), System.Drawing.Image)
|
Me.Button8.Image = CType(resources.GetObject("Button8.Image"), System.Drawing.Image)
|
||||||
Me.Button8.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
|
Me.Button8.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||||
Me.Button8.Location = New System.Drawing.Point(381, 214)
|
Me.Button8.Location = New System.Drawing.Point(62, 214)
|
||||||
Me.Button8.Name = "Button8"
|
Me.Button8.Name = "Button8"
|
||||||
Me.Button8.Size = New System.Drawing.Size(89, 34)
|
Me.Button8.Size = New System.Drawing.Size(89, 34)
|
||||||
Me.Button8.TabIndex = 3
|
Me.Button8.TabIndex = 3
|
||||||
@@ -2854,7 +2885,7 @@ Partial Class frmHauptfenster
|
|||||||
Me.btnFertig.ForeColor = System.Drawing.Color.Black
|
Me.btnFertig.ForeColor = System.Drawing.Color.Black
|
||||||
Me.btnFertig.Image = CType(resources.GetObject("btnFertig.Image"), System.Drawing.Image)
|
Me.btnFertig.Image = CType(resources.GetObject("btnFertig.Image"), System.Drawing.Image)
|
||||||
Me.btnFertig.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
|
Me.btnFertig.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||||
Me.btnFertig.Location = New System.Drawing.Point(485, 214)
|
Me.btnFertig.Location = New System.Drawing.Point(166, 214)
|
||||||
Me.btnFertig.Name = "btnFertig"
|
Me.btnFertig.Name = "btnFertig"
|
||||||
Me.btnFertig.Size = New System.Drawing.Size(102, 34)
|
Me.btnFertig.Size = New System.Drawing.Size(102, 34)
|
||||||
Me.btnFertig.TabIndex = 0
|
Me.btnFertig.TabIndex = 0
|
||||||
@@ -2871,9 +2902,9 @@ Partial Class frmHauptfenster
|
|||||||
Me.tabAlle.Location = New System.Drawing.Point(4, 34)
|
Me.tabAlle.Location = New System.Drawing.Point(4, 34)
|
||||||
Me.tabAlle.Name = "tabAlle"
|
Me.tabAlle.Name = "tabAlle"
|
||||||
Me.tabAlle.Padding = New System.Windows.Forms.Padding(3)
|
Me.tabAlle.Padding = New System.Windows.Forms.Padding(3)
|
||||||
Me.tabAlle.Size = New System.Drawing.Size(385, 0)
|
Me.tabAlle.Size = New System.Drawing.Size(121, 0)
|
||||||
Me.tabAlle.TabIndex = 0
|
Me.tabAlle.TabIndex = 0
|
||||||
Me.tabAlle.Text = "Alle"
|
Me.tabAlle.Text = "Alle LKW"
|
||||||
'
|
'
|
||||||
'tabErfasst
|
'tabErfasst
|
||||||
'
|
'
|
||||||
@@ -2882,7 +2913,7 @@ Partial Class frmHauptfenster
|
|||||||
Me.tabErfasst.Location = New System.Drawing.Point(4, 34)
|
Me.tabErfasst.Location = New System.Drawing.Point(4, 34)
|
||||||
Me.tabErfasst.Name = "tabErfasst"
|
Me.tabErfasst.Name = "tabErfasst"
|
||||||
Me.tabErfasst.Padding = New System.Windows.Forms.Padding(3)
|
Me.tabErfasst.Padding = New System.Windows.Forms.Padding(3)
|
||||||
Me.tabErfasst.Size = New System.Drawing.Size(385, 0)
|
Me.tabErfasst.Size = New System.Drawing.Size(121, 0)
|
||||||
Me.tabErfasst.TabIndex = 1
|
Me.tabErfasst.TabIndex = 1
|
||||||
Me.tabErfasst.Text = "1. Erfasst"
|
Me.tabErfasst.Text = "1. Erfasst"
|
||||||
'
|
'
|
||||||
@@ -2905,14 +2936,14 @@ Partial Class frmHauptfenster
|
|||||||
Me.tbcntrAviso.Name = "tbcntrAviso"
|
Me.tbcntrAviso.Name = "tbcntrAviso"
|
||||||
Me.tbcntrAviso.Padding = New System.Drawing.Point(12, 3)
|
Me.tbcntrAviso.Padding = New System.Drawing.Point(12, 3)
|
||||||
Me.tbcntrAviso.SelectedIndex = 0
|
Me.tbcntrAviso.SelectedIndex = 0
|
||||||
Me.tbcntrAviso.Size = New System.Drawing.Size(393, 32)
|
Me.tbcntrAviso.Size = New System.Drawing.Size(129, 37)
|
||||||
Me.tbcntrAviso.TabIndex = 10
|
Me.tbcntrAviso.TabIndex = 10
|
||||||
'
|
'
|
||||||
'tabVERIMEX
|
'tabVERIMEX
|
||||||
'
|
'
|
||||||
Me.tabVERIMEX.Location = New System.Drawing.Point(4, 34)
|
Me.tabVERIMEX.Location = New System.Drawing.Point(4, 34)
|
||||||
Me.tabVERIMEX.Name = "tabVERIMEX"
|
Me.tabVERIMEX.Name = "tabVERIMEX"
|
||||||
Me.tabVERIMEX.Size = New System.Drawing.Size(385, 0)
|
Me.tabVERIMEX.Size = New System.Drawing.Size(121, 0)
|
||||||
Me.tabVERIMEX.TabIndex = 7
|
Me.tabVERIMEX.TabIndex = 7
|
||||||
Me.tabVERIMEX.Text = "VERIMEX"
|
Me.tabVERIMEX.Text = "VERIMEX"
|
||||||
Me.tabVERIMEX.UseVisualStyleBackColor = True
|
Me.tabVERIMEX.UseVisualStyleBackColor = True
|
||||||
@@ -2921,7 +2952,7 @@ Partial Class frmHauptfenster
|
|||||||
'
|
'
|
||||||
Me.tabINDONESIEN.Location = New System.Drawing.Point(4, 34)
|
Me.tabINDONESIEN.Location = New System.Drawing.Point(4, 34)
|
||||||
Me.tabINDONESIEN.Name = "tabINDONESIEN"
|
Me.tabINDONESIEN.Name = "tabINDONESIEN"
|
||||||
Me.tabINDONESIEN.Size = New System.Drawing.Size(385, 0)
|
Me.tabINDONESIEN.Size = New System.Drawing.Size(121, 0)
|
||||||
Me.tabINDONESIEN.TabIndex = 8
|
Me.tabINDONESIEN.TabIndex = 8
|
||||||
Me.tabINDONESIEN.Text = "INDONESIEN"
|
Me.tabINDONESIEN.Text = "INDONESIEN"
|
||||||
Me.tabINDONESIEN.UseVisualStyleBackColor = True
|
Me.tabINDONESIEN.UseVisualStyleBackColor = True
|
||||||
@@ -2931,21 +2962,21 @@ Partial Class frmHauptfenster
|
|||||||
Me.SplitContainer1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
Me.SplitContainer1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||||
Me.SplitContainer1.Dock = System.Windows.Forms.DockStyle.Fill
|
Me.SplitContainer1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||||
Me.SplitContainer1.IsSplitterFixed = True
|
Me.SplitContainer1.IsSplitterFixed = True
|
||||||
Me.SplitContainer1.Location = New System.Drawing.Point(0, 77)
|
Me.SplitContainer1.Location = New System.Drawing.Point(252, 83)
|
||||||
Me.SplitContainer1.Name = "SplitContainer1"
|
Me.SplitContainer1.Name = "SplitContainer1"
|
||||||
'
|
'
|
||||||
'SplitContainer1.Panel1
|
'SplitContainer1.Panel1
|
||||||
'
|
'
|
||||||
Me.SplitContainer1.Panel1.Controls.Add(Me.pnlDetailsLinks)
|
Me.SplitContainer1.Panel1.Controls.Add(Me.pnlDetailsLinks)
|
||||||
Me.SplitContainer1.Panel1MinSize = 724
|
Me.SplitContainer1.Panel1MinSize = 0
|
||||||
'
|
'
|
||||||
'SplitContainer1.Panel2
|
'SplitContainer1.Panel2
|
||||||
'
|
'
|
||||||
Me.SplitContainer1.Panel2.Controls.Add(Me.btnSmall)
|
Me.SplitContainer1.Panel2.Controls.Add(Me.btnSmall)
|
||||||
Me.SplitContainer1.Panel2.Controls.Add(Me.pnlDetailsRechts)
|
Me.SplitContainer1.Panel2.Controls.Add(Me.pnlDetailsRechts)
|
||||||
Me.SplitContainer1.Panel2MinSize = 300
|
Me.SplitContainer1.Panel2MinSize = 200
|
||||||
Me.SplitContainer1.Size = New System.Drawing.Size(1372, 600)
|
Me.SplitContainer1.Size = New System.Drawing.Size(1050, 611)
|
||||||
Me.SplitContainer1.SplitterDistance = 819
|
Me.SplitContainer1.SplitterDistance = 500
|
||||||
Me.SplitContainer1.SplitterWidth = 1
|
Me.SplitContainer1.SplitterWidth = 1
|
||||||
Me.SplitContainer1.TabIndex = 7
|
Me.SplitContainer1.TabIndex = 7
|
||||||
'
|
'
|
||||||
@@ -2958,7 +2989,7 @@ Partial Class frmHauptfenster
|
|||||||
Me.pnlDetailsLinks.Location = New System.Drawing.Point(0, 0)
|
Me.pnlDetailsLinks.Location = New System.Drawing.Point(0, 0)
|
||||||
Me.pnlDetailsLinks.MinimumSize = New System.Drawing.Size(324, 564)
|
Me.pnlDetailsLinks.MinimumSize = New System.Drawing.Size(324, 564)
|
||||||
Me.pnlDetailsLinks.Name = "pnlDetailsLinks"
|
Me.pnlDetailsLinks.Name = "pnlDetailsLinks"
|
||||||
Me.pnlDetailsLinks.Size = New System.Drawing.Size(817, 598)
|
Me.pnlDetailsLinks.Size = New System.Drawing.Size(498, 609)
|
||||||
Me.pnlDetailsLinks.TabIndex = 0
|
Me.pnlDetailsLinks.TabIndex = 0
|
||||||
'
|
'
|
||||||
'splitMain
|
'splitMain
|
||||||
@@ -2982,8 +3013,8 @@ Partial Class frmHauptfenster
|
|||||||
'
|
'
|
||||||
Me.splitMain.Panel2.Controls.Add(Me.SplitContainer2)
|
Me.splitMain.Panel2.Controls.Add(Me.SplitContainer2)
|
||||||
Me.splitMain.Panel2.Controls.Add(Me.pnlAktOption)
|
Me.splitMain.Panel2.Controls.Add(Me.pnlAktOption)
|
||||||
Me.splitMain.Size = New System.Drawing.Size(815, 596)
|
Me.splitMain.Size = New System.Drawing.Size(496, 607)
|
||||||
Me.splitMain.SplitterDistance = 287
|
Me.splitMain.SplitterDistance = 298
|
||||||
Me.splitMain.TabIndex = 0
|
Me.splitMain.TabIndex = 0
|
||||||
'
|
'
|
||||||
'gridAviso
|
'gridAviso
|
||||||
@@ -3036,13 +3067,15 @@ Partial Class frmHauptfenster
|
|||||||
Me.gridAviso.RowTemplate.ReadOnly = True
|
Me.gridAviso.RowTemplate.ReadOnly = True
|
||||||
Me.gridAviso.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
|
Me.gridAviso.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
|
||||||
Me.gridAviso.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
|
Me.gridAviso.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
|
||||||
Me.gridAviso.Size = New System.Drawing.Size(815, 39)
|
Me.gridAviso.Size = New System.Drawing.Size(496, 50)
|
||||||
Me.gridAviso.TabIndex = 1
|
Me.gridAviso.TabIndex = 1
|
||||||
Me.gridAviso.TabStop = False
|
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))
|
||||||
|
Me.Panel1.Controls.Add(Me.CheckBox1)
|
||||||
|
Me.Panel1.Controls.Add(Me.TabControl1)
|
||||||
Me.Panel1.Controls.Add(Me.txtBestimmungszollstelle)
|
Me.Panel1.Controls.Add(Me.txtBestimmungszollstelle)
|
||||||
Me.Panel1.Controls.Add(Me.Label10)
|
Me.Panel1.Controls.Add(Me.Label10)
|
||||||
Me.Panel1.Controls.Add(Me.cboImEx)
|
Me.Panel1.Controls.Add(Me.cboImEx)
|
||||||
@@ -3070,9 +3103,72 @@ Partial Class frmHauptfenster
|
|||||||
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
|
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
|
||||||
Me.Panel1.Location = New System.Drawing.Point(0, 0)
|
Me.Panel1.Location = New System.Drawing.Point(0, 0)
|
||||||
Me.Panel1.Name = "Panel1"
|
Me.Panel1.Name = "Panel1"
|
||||||
Me.Panel1.Size = New System.Drawing.Size(815, 248)
|
Me.Panel1.Size = New System.Drawing.Size(496, 248)
|
||||||
Me.Panel1.TabIndex = 2
|
Me.Panel1.TabIndex = 2
|
||||||
'
|
'
|
||||||
|
'CheckBox1
|
||||||
|
'
|
||||||
|
Me.CheckBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||||
|
Me.CheckBox1.AutoSize = True
|
||||||
|
Me.CheckBox1.Checked = True
|
||||||
|
Me.CheckBox1.CheckState = System.Windows.Forms.CheckState.Checked
|
||||||
|
Me.CheckBox1.ForeColor = System.Drawing.Color.White
|
||||||
|
Me.CheckBox1.Location = New System.Drawing.Point(-210, 55)
|
||||||
|
Me.CheckBox1.Name = "CheckBox1"
|
||||||
|
Me.CheckBox1.Size = New System.Drawing.Size(50, 17)
|
||||||
|
Me.CheckBox1.TabIndex = 28
|
||||||
|
Me.CheckBox1.Text = "LKW"
|
||||||
|
Me.CheckBox1.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
'TabControl1
|
||||||
|
'
|
||||||
|
Me.TabControl1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
|
||||||
|
Me.TabControl1.Controls.Add(Me.tbSndAlle)
|
||||||
|
Me.TabControl1.Controls.Add(Me.tbSndOffen)
|
||||||
|
Me.TabControl1.Controls.Add(Me.tbSndFreigegeben)
|
||||||
|
Me.TabControl1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
|
Me.TabControl1.ImeMode = System.Windows.Forms.ImeMode.NoControl
|
||||||
|
Me.TabControl1.ItemSize = New System.Drawing.Size(60, 30)
|
||||||
|
Me.TabControl1.Location = New System.Drawing.Point(492, 217)
|
||||||
|
Me.TabControl1.Name = "TabControl1"
|
||||||
|
Me.TabControl1.Padding = New System.Drawing.Point(12, 3)
|
||||||
|
Me.TabControl1.SelectedIndex = 0
|
||||||
|
Me.TabControl1.Size = New System.Drawing.Size(129, 11)
|
||||||
|
Me.TabControl1.TabIndex = 27
|
||||||
|
Me.TabControl1.Visible = False
|
||||||
|
'
|
||||||
|
'tbSndAlle
|
||||||
|
'
|
||||||
|
Me.tbSndAlle.BackColor = System.Drawing.SystemColors.ActiveBorder
|
||||||
|
Me.tbSndAlle.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||||
|
Me.tbSndAlle.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
|
Me.tbSndAlle.Location = New System.Drawing.Point(4, 34)
|
||||||
|
Me.tbSndAlle.Name = "tbSndAlle"
|
||||||
|
Me.tbSndAlle.Padding = New System.Windows.Forms.Padding(3)
|
||||||
|
Me.tbSndAlle.Size = New System.Drawing.Size(121, 0)
|
||||||
|
Me.tbSndAlle.TabIndex = 0
|
||||||
|
Me.tbSndAlle.Text = "Alle Sendungen"
|
||||||
|
'
|
||||||
|
'tbSndOffen
|
||||||
|
'
|
||||||
|
Me.tbSndOffen.BackColor = System.Drawing.SystemColors.ActiveBorder
|
||||||
|
Me.tbSndOffen.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||||
|
Me.tbSndOffen.Location = New System.Drawing.Point(4, 34)
|
||||||
|
Me.tbSndOffen.Name = "tbSndOffen"
|
||||||
|
Me.tbSndOffen.Padding = New System.Windows.Forms.Padding(3)
|
||||||
|
Me.tbSndOffen.Size = New System.Drawing.Size(121, 0)
|
||||||
|
Me.tbSndOffen.TabIndex = 1
|
||||||
|
Me.tbSndOffen.Text = "Offen"
|
||||||
|
'
|
||||||
|
'tbSndFreigegeben
|
||||||
|
'
|
||||||
|
Me.tbSndFreigegeben.Location = New System.Drawing.Point(4, 34)
|
||||||
|
Me.tbSndFreigegeben.Name = "tbSndFreigegeben"
|
||||||
|
Me.tbSndFreigegeben.Size = New System.Drawing.Size(121, 0)
|
||||||
|
Me.tbSndFreigegeben.TabIndex = 2
|
||||||
|
Me.tbSndFreigegeben.Text = "Freigegeben"
|
||||||
|
Me.tbSndFreigegeben.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
'txtBestimmungszollstelle
|
'txtBestimmungszollstelle
|
||||||
'
|
'
|
||||||
Me.txtBestimmungszollstelle._allowFreitext = False
|
Me.txtBestimmungszollstelle._allowFreitext = False
|
||||||
@@ -3202,7 +3298,7 @@ Partial Class frmHauptfenster
|
|||||||
Me.lblEintraege.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
Me.lblEintraege.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||||
Me.lblEintraege.BackColor = System.Drawing.Color.Transparent
|
Me.lblEintraege.BackColor = System.Drawing.Color.Transparent
|
||||||
Me.lblEintraege.ForeColor = System.Drawing.Color.White
|
Me.lblEintraege.ForeColor = System.Drawing.Color.White
|
||||||
Me.lblEintraege.Location = New System.Drawing.Point(585, 56)
|
Me.lblEintraege.Location = New System.Drawing.Point(266, 56)
|
||||||
Me.lblEintraege.Name = "lblEintraege"
|
Me.lblEintraege.Name = "lblEintraege"
|
||||||
Me.lblEintraege.Size = New System.Drawing.Size(169, 15)
|
Me.lblEintraege.Size = New System.Drawing.Size(169, 15)
|
||||||
Me.lblEintraege.TabIndex = 14
|
Me.lblEintraege.TabIndex = 14
|
||||||
@@ -3250,7 +3346,7 @@ Partial Class frmHauptfenster
|
|||||||
Me.pnlTime.Controls.Add(Me.Label5)
|
Me.pnlTime.Controls.Add(Me.Label5)
|
||||||
Me.pnlTime.Location = New System.Drawing.Point(446, 0)
|
Me.pnlTime.Location = New System.Drawing.Point(446, 0)
|
||||||
Me.pnlTime.Name = "pnlTime"
|
Me.pnlTime.Name = "pnlTime"
|
||||||
Me.pnlTime.Size = New System.Drawing.Size(437, 57)
|
Me.pnlTime.Size = New System.Drawing.Size(174, 57)
|
||||||
Me.pnlTime.TabIndex = 12
|
Me.pnlTime.TabIndex = 12
|
||||||
'
|
'
|
||||||
'MyComboBox1
|
'MyComboBox1
|
||||||
@@ -3297,7 +3393,7 @@ Partial Class frmHauptfenster
|
|||||||
Me.pnlSearch.Controls.Add(Me.cbxAlle)
|
Me.pnlSearch.Controls.Add(Me.cbxAlle)
|
||||||
Me.pnlSearch.Location = New System.Drawing.Point(-2, 79)
|
Me.pnlSearch.Location = New System.Drawing.Point(-2, 79)
|
||||||
Me.pnlSearch.Name = "pnlSearch"
|
Me.pnlSearch.Name = "pnlSearch"
|
||||||
Me.pnlSearch.Size = New System.Drawing.Size(723, 135)
|
Me.pnlSearch.Size = New System.Drawing.Size(823, 135)
|
||||||
Me.pnlSearch.TabIndex = 16
|
Me.pnlSearch.TabIndex = 16
|
||||||
Me.pnlSearch.Visible = False
|
Me.pnlSearch.Visible = False
|
||||||
'
|
'
|
||||||
@@ -3758,12 +3854,12 @@ Partial Class frmHauptfenster
|
|||||||
'
|
'
|
||||||
'Panel3
|
'Panel3
|
||||||
'
|
'
|
||||||
Me.Panel3.Controls.Add(Me.Panel4)
|
|
||||||
Me.Panel3.Controls.Add(Me.MenuStrip1)
|
Me.Panel3.Controls.Add(Me.MenuStrip1)
|
||||||
|
Me.Panel3.Controls.Add(Me.Panel4)
|
||||||
Me.Panel3.Dock = System.Windows.Forms.DockStyle.Top
|
Me.Panel3.Dock = System.Windows.Forms.DockStyle.Top
|
||||||
Me.Panel3.Location = New System.Drawing.Point(0, 0)
|
Me.Panel3.Location = New System.Drawing.Point(0, 0)
|
||||||
Me.Panel3.Name = "Panel3"
|
Me.Panel3.Name = "Panel3"
|
||||||
Me.Panel3.Size = New System.Drawing.Size(1372, 25)
|
Me.Panel3.Size = New System.Drawing.Size(1302, 20)
|
||||||
Me.Panel3.TabIndex = 87
|
Me.Panel3.TabIndex = 87
|
||||||
'
|
'
|
||||||
'Panel4
|
'Panel4
|
||||||
@@ -3772,13 +3868,14 @@ Partial Class frmHauptfenster
|
|||||||
Me.Panel4.Controls.Add(Me.btnClose)
|
Me.Panel4.Controls.Add(Me.btnClose)
|
||||||
Me.Panel4.Controls.Add(Me.btnMinimieren)
|
Me.Panel4.Controls.Add(Me.btnMinimieren)
|
||||||
Me.Panel4.Dock = System.Windows.Forms.DockStyle.Right
|
Me.Panel4.Dock = System.Windows.Forms.DockStyle.Right
|
||||||
Me.Panel4.Location = New System.Drawing.Point(1202, 0)
|
Me.Panel4.Location = New System.Drawing.Point(1132, 0)
|
||||||
Me.Panel4.Name = "Panel4"
|
Me.Panel4.Name = "Panel4"
|
||||||
Me.Panel4.Size = New System.Drawing.Size(170, 25)
|
Me.Panel4.Size = New System.Drawing.Size(170, 20)
|
||||||
Me.Panel4.TabIndex = 4
|
Me.Panel4.TabIndex = 4
|
||||||
'
|
'
|
||||||
'cntVerag
|
'cntVerag
|
||||||
'
|
'
|
||||||
|
Me.cntVerag.ImageScalingSize = New System.Drawing.Size(20, 20)
|
||||||
Me.cntVerag.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ZertifikateToolStripMenuItem, Me.HomepageToolStripMenuItem})
|
Me.cntVerag.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ZertifikateToolStripMenuItem, Me.HomepageToolStripMenuItem})
|
||||||
Me.cntVerag.Name = "cntVerag"
|
Me.cntVerag.Name = "cntVerag"
|
||||||
Me.cntVerag.Size = New System.Drawing.Size(134, 48)
|
Me.cntVerag.Size = New System.Drawing.Size(134, 48)
|
||||||
@@ -3806,8 +3903,44 @@ Partial Class frmHauptfenster
|
|||||||
Me.UsrCntlTestsystem1.Size = New System.Drawing.Size(152, 28)
|
Me.UsrCntlTestsystem1.Size = New System.Drawing.Size(152, 28)
|
||||||
Me.UsrCntlTestsystem1.TabIndex = 8
|
Me.UsrCntlTestsystem1.TabIndex = 8
|
||||||
'
|
'
|
||||||
|
'pnlLeft
|
||||||
|
'
|
||||||
|
Me.pnlLeft.Controls.Add(Me.UsrCntlBenachrichtigungen2)
|
||||||
|
Me.pnlLeft.Controls.Add(Me.Panel5)
|
||||||
|
Me.pnlLeft.Controls.Add(Me.Panel7)
|
||||||
|
Me.pnlLeft.Dock = System.Windows.Forms.DockStyle.Left
|
||||||
|
Me.pnlLeft.Location = New System.Drawing.Point(0, 83)
|
||||||
|
Me.pnlLeft.Name = "pnlLeft"
|
||||||
|
Me.pnlLeft.Size = New System.Drawing.Size(252, 611)
|
||||||
|
Me.pnlLeft.TabIndex = 88
|
||||||
|
Me.pnlLeft.Visible = False
|
||||||
|
'
|
||||||
|
'UsrCntlBenachrichtigungen2
|
||||||
'TVEditorNewToolStripMenuItem
|
'TVEditorNewToolStripMenuItem
|
||||||
'
|
'
|
||||||
|
Me.UsrCntlBenachrichtigungen2.Dock = System.Windows.Forms.DockStyle.Fill
|
||||||
|
Me.UsrCntlBenachrichtigungen2.Location = New System.Drawing.Point(0, 51)
|
||||||
|
Me.UsrCntlBenachrichtigungen2.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
|
||||||
|
Me.UsrCntlBenachrichtigungen2.Name = "UsrCntlBenachrichtigungen2"
|
||||||
|
Me.UsrCntlBenachrichtigungen2.Size = New System.Drawing.Size(252, 243)
|
||||||
|
Me.UsrCntlBenachrichtigungen2.TabIndex = 1
|
||||||
|
'
|
||||||
|
'Panel5
|
||||||
|
'
|
||||||
|
Me.Panel5.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||||
|
Me.Panel5.Location = New System.Drawing.Point(0, 294)
|
||||||
|
Me.Panel5.Name = "Panel5"
|
||||||
|
Me.Panel5.Size = New System.Drawing.Size(252, 317)
|
||||||
|
Me.Panel5.TabIndex = 3
|
||||||
|
'
|
||||||
|
'Panel7
|
||||||
|
'
|
||||||
|
Me.Panel7.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||||
|
Me.Panel7.Dock = System.Windows.Forms.DockStyle.Top
|
||||||
|
Me.Panel7.Location = New System.Drawing.Point(0, 0)
|
||||||
|
Me.Panel7.Name = "Panel7"
|
||||||
|
Me.Panel7.Size = New System.Drawing.Size(252, 51)
|
||||||
|
Me.Panel7.TabIndex = 4
|
||||||
Me.TVEditorNewToolStripMenuItem.Name = "TVEditorNewToolStripMenuItem"
|
Me.TVEditorNewToolStripMenuItem.Name = "TVEditorNewToolStripMenuItem"
|
||||||
Me.TVEditorNewToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
|
Me.TVEditorNewToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
|
||||||
Me.TVEditorNewToolStripMenuItem.Text = "TVEditorNew"
|
Me.TVEditorNewToolStripMenuItem.Text = "TVEditorNew"
|
||||||
@@ -3816,11 +3949,12 @@ Partial Class frmHauptfenster
|
|||||||
'
|
'
|
||||||
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.ClientSize = New System.Drawing.Size(1372, 677)
|
Me.ClientSize = New System.Drawing.Size(1302, 694)
|
||||||
Me.Controls.Add(Me.pnlOptionen)
|
Me.Controls.Add(Me.pnlOptionen)
|
||||||
Me.Controls.Add(Me.Label9)
|
Me.Controls.Add(Me.Label9)
|
||||||
Me.Controls.Add(Me.UsrCntlTestsystem1)
|
Me.Controls.Add(Me.UsrCntlTestsystem1)
|
||||||
Me.Controls.Add(Me.SplitContainer1)
|
Me.Controls.Add(Me.SplitContainer1)
|
||||||
|
Me.Controls.Add(Me.pnlLeft)
|
||||||
Me.Controls.Add(Me.Top)
|
Me.Controls.Add(Me.Top)
|
||||||
Me.Controls.Add(Me.Panel3)
|
Me.Controls.Add(Me.Panel3)
|
||||||
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
|
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
|
||||||
@@ -3841,12 +3975,12 @@ Partial Class frmHauptfenster
|
|||||||
CType(Me.SplitContainer2, System.ComponentModel.ISupportInitialize).EndInit()
|
CType(Me.SplitContainer2, System.ComponentModel.ISupportInitialize).EndInit()
|
||||||
Me.SplitContainer2.ResumeLayout(False)
|
Me.SplitContainer2.ResumeLayout(False)
|
||||||
Me.pnlLinks.ResumeLayout(False)
|
Me.pnlLinks.ResumeLayout(False)
|
||||||
CType(Me.picAVISOMessenger, System.ComponentModel.ISupportInitialize).EndInit()
|
|
||||||
CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
|
|
||||||
Me.Panel2.ResumeLayout(False)
|
Me.Panel2.ResumeLayout(False)
|
||||||
Me.Panel2.PerformLayout()
|
Me.Panel2.PerformLayout()
|
||||||
Me.pnlLinksOben.ResumeLayout(False)
|
Me.pnlLinksOben.ResumeLayout(False)
|
||||||
Me.cntxtAtilla.ResumeLayout(False)
|
Me.cntxtAtilla.ResumeLayout(False)
|
||||||
|
CType(Me.picAVISOMessenger, System.ComponentModel.ISupportInitialize).EndInit()
|
||||||
|
CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
|
||||||
Me.SplitContainer3.Panel1.ResumeLayout(False)
|
Me.SplitContainer3.Panel1.ResumeLayout(False)
|
||||||
Me.SplitContainer3.Panel2.ResumeLayout(False)
|
Me.SplitContainer3.Panel2.ResumeLayout(False)
|
||||||
CType(Me.SplitContainer3, System.ComponentModel.ISupportInitialize).EndInit()
|
CType(Me.SplitContainer3, System.ComponentModel.ISupportInitialize).EndInit()
|
||||||
@@ -3870,6 +4004,7 @@ Partial Class frmHauptfenster
|
|||||||
CType(Me.gridAviso, System.ComponentModel.ISupportInitialize).EndInit()
|
CType(Me.gridAviso, System.ComponentModel.ISupportInitialize).EndInit()
|
||||||
Me.Panel1.ResumeLayout(False)
|
Me.Panel1.ResumeLayout(False)
|
||||||
Me.Panel1.PerformLayout()
|
Me.Panel1.PerformLayout()
|
||||||
|
Me.TabControl1.ResumeLayout(False)
|
||||||
Me.pnlTime.ResumeLayout(False)
|
Me.pnlTime.ResumeLayout(False)
|
||||||
Me.pnlTime.PerformLayout()
|
Me.pnlTime.PerformLayout()
|
||||||
Me.pnlSearch.ResumeLayout(False)
|
Me.pnlSearch.ResumeLayout(False)
|
||||||
@@ -3881,6 +4016,7 @@ Partial Class frmHauptfenster
|
|||||||
Me.Panel3.PerformLayout()
|
Me.Panel3.PerformLayout()
|
||||||
Me.Panel4.ResumeLayout(False)
|
Me.Panel4.ResumeLayout(False)
|
||||||
Me.cntVerag.ResumeLayout(False)
|
Me.cntVerag.ResumeLayout(False)
|
||||||
|
Me.pnlLeft.ResumeLayout(False)
|
||||||
Me.ResumeLayout(False)
|
Me.ResumeLayout(False)
|
||||||
Me.PerformLayout()
|
Me.PerformLayout()
|
||||||
|
|
||||||
@@ -4133,7 +4269,7 @@ Partial Class frmHauptfenster
|
|||||||
Friend WithEvents ToolStripMenuItem6 As ToolStripMenuItem
|
Friend WithEvents ToolStripMenuItem6 As ToolStripMenuItem
|
||||||
Friend WithEvents btnMAVerzeichnis As Button
|
Friend WithEvents btnMAVerzeichnis As Button
|
||||||
Friend WithEvents Label22 As Label
|
Friend WithEvents Label22 As Label
|
||||||
Friend WithEvents Button12 As Button
|
Friend WithEvents btnE_Aviso As Button
|
||||||
Friend WithEvents FRONTOFFICEToolStripMenuItem As ToolStripMenuItem
|
Friend WithEvents FRONTOFFICEToolStripMenuItem As ToolStripMenuItem
|
||||||
Friend WithEvents VERIMEXToolStripMenuItem As ToolStripMenuItem
|
Friend WithEvents VERIMEXToolStripMenuItem As ToolStripMenuItem
|
||||||
Friend WithEvents StandortWechselnToolStripMenuItem As ToolStripMenuItem
|
Friend WithEvents StandortWechselnToolStripMenuItem As ToolStripMenuItem
|
||||||
@@ -4252,5 +4388,15 @@ Partial Class frmHauptfenster
|
|||||||
Friend WithEvents SpireLizenzPrüfenToolStripMenuItem As ToolStripMenuItem
|
Friend WithEvents SpireLizenzPrüfenToolStripMenuItem As ToolStripMenuItem
|
||||||
Friend WithEvents DEAmbarToolStripMenuItem As ToolStripMenuItem
|
Friend WithEvents DEAmbarToolStripMenuItem As ToolStripMenuItem
|
||||||
Friend WithEvents Button1 As Button
|
Friend WithEvents Button1 As Button
|
||||||
|
Friend WithEvents pnlLeft As Panel
|
||||||
|
Friend WithEvents UsrCntlBenachrichtigungen2 As usrCntlBenachrichtigungen
|
||||||
|
Friend WithEvents Panel5 As Panel
|
||||||
|
Friend WithEvents Panel7 As Panel
|
||||||
|
Friend WithEvents Button7 As Button
|
||||||
|
Friend WithEvents TabControl1 As TabControl
|
||||||
|
Friend WithEvents tbSndAlle As TabPage
|
||||||
|
Friend WithEvents tbSndOffen As TabPage
|
||||||
|
Friend WithEvents tbSndFreigegeben As TabPage
|
||||||
|
Friend WithEvents CheckBox1 As CheckBox
|
||||||
Friend WithEvents TVEditorNewToolStripMenuItem As ToolStripMenuItem
|
Friend WithEvents TVEditorNewToolStripMenuItem As ToolStripMenuItem
|
||||||
End Class
|
End Class
|
||||||
|
|||||||
@@ -195,6 +195,14 @@
|
|||||||
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAABdSURBVEhL7c0xDsAgEANB/v+AfNcUyRWWVhEF0JyL
|
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAABdSURBVEhL7c0xDsAgEANB/v+AfNcUyRWWVhEF0JyL
|
||||||
oUDW7ZB0FX6e9D7PMv2gvUmQUKjQ3iRIKFRob3oF6cB2CW7XK7gKD31obxIkFCq0NwkSChXam0bBm/Dz
|
oUDW7ZB0FX6e9D7PMv2gvUmQUKjQ3iRIKFRob3oF6cB2CW7XK7gKD31obxIkFCq0NwkSChXam0bBm/Dz
|
||||||
HI0JXRTSkcElwuUAAAAASUVORK5CYII=
|
HI0JXRTSkcElwuUAAAAASUVORK5CYII=
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="Button7.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
|
||||||
|
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAABdSURBVEhL7c0xDsAgEANB/v+AfNcUyRWWVhEF0JyL
|
||||||
|
oUDW7ZB0FX6e9D7PMv2gvUmQUKjQ3iRIKFRob3oF6cB2CW7XK7gKD31obxIkFCq0NwkSChXam0bBm/Dz
|
||||||
|
HI0JXRTSkcElwuUAAAAASUVORK5CYII=
|
||||||
</value>
|
</value>
|
||||||
</data>
|
</data>
|
||||||
<metadata name="TimerAkte.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
<metadata name="TimerAkte.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||||
|
|||||||
@@ -10,6 +10,8 @@ Imports System.Drawing.Drawing2D
|
|||||||
Imports SDL
|
Imports SDL
|
||||||
Imports Microsoft.Office.Interop
|
Imports Microsoft.Office.Interop
|
||||||
Imports Spire.Pdf.Texts
|
Imports Spire.Pdf.Texts
|
||||||
|
Imports System.Net
|
||||||
|
Imports System.Text
|
||||||
|
|
||||||
|
|
||||||
'Imports UID
|
'Imports UID
|
||||||
@@ -164,6 +166,7 @@ Public Class frmHauptfenster
|
|||||||
|
|
||||||
VERAGSQL = New VERAG_PROG_ALLGEMEIN.SQL
|
VERAGSQL = New VERAG_PROG_ALLGEMEIN.SQL
|
||||||
|
|
||||||
|
|
||||||
EnableDoubleBuffered(gridAviso)
|
EnableDoubleBuffered(gridAviso)
|
||||||
EnableDoubleBuffered(gridMyAviso)
|
EnableDoubleBuffered(gridMyAviso)
|
||||||
'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||||
@@ -372,7 +375,7 @@ Public Class frmHauptfenster
|
|||||||
|
|
||||||
End If
|
End If
|
||||||
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("eAVISO", "AVISO") Then
|
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("eAVISO", "AVISO") Then
|
||||||
Button12.Visible = True
|
btnE_Aviso.Visible = True
|
||||||
Label22.Visible = True
|
Label22.Visible = True
|
||||||
initEAviso()
|
initEAviso()
|
||||||
End If
|
End If
|
||||||
@@ -609,8 +612,8 @@ Public Class frmHauptfenster
|
|||||||
Dim a As MsgBoxResult = MsgBox("Für " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & " wurde heute noch keine Zeit erfasst" & vbNewLine & Now.ToString() & " als Startzeit erfassen?", vbYesNo)
|
Dim a As MsgBoxResult = MsgBox("Für " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & " wurde heute noch keine Zeit erfasst" & vbNewLine & Now.ToString() & " als Startzeit erfassen?", vbYesNo)
|
||||||
If a = vbYes Then
|
If a = vbYes Then
|
||||||
|
|
||||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_nname.ToLower = "celan" Then 'aktuell hardcoded, wenn Zeit ist dynamisch (per SQL-tbl)
|
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasMehrereFirmen Then
|
||||||
Dim f As New frmZEButtons("in")
|
Dim f As New frmZEButtons("in", VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasFirmen)
|
||||||
f.ShowDialog()
|
f.ShowDialog()
|
||||||
f.BringToFront()
|
f.BringToFront()
|
||||||
Else
|
Else
|
||||||
@@ -656,7 +659,7 @@ Public Class frmHauptfenster
|
|||||||
Dim bfont = New Font(gridAviso.Font.FontFamily, gridAviso.Font.Size, FontStyle.Bold)
|
Dim bfont = New Font(gridAviso.Font.FontFamily, gridAviso.Font.Size, FontStyle.Bold)
|
||||||
With gridAviso
|
With gridAviso
|
||||||
|
|
||||||
.Columns("AvisoID").Visible = False 'AvisoID nicht anzeigen
|
' .Columns("AvisoID").Visible = False 'AvisoID nicht anzeigen
|
||||||
|
|
||||||
If Fullscreen Then
|
If Fullscreen Then
|
||||||
.Columns("Datum").Visible = True 'Mitarb. nicht anzeigen
|
.Columns("Datum").Visible = True 'Mitarb. nicht anzeigen
|
||||||
@@ -679,6 +682,9 @@ Public Class frmHauptfenster
|
|||||||
.Columns("Status").Width = 25
|
.Columns("Status").Width = 25
|
||||||
.Columns("Status").HeaderText = "St."
|
.Columns("Status").HeaderText = "St."
|
||||||
|
|
||||||
|
.Columns("AvisoID").Width = 60
|
||||||
|
.Columns("AvisoID").HeaderText = "LKW-Id"
|
||||||
|
|
||||||
.Columns("LetzterMitarbeiter").Width = 135
|
.Columns("LetzterMitarbeiter").Width = 135
|
||||||
.Columns("LetzterMitarbeiter").HeaderText = "akt. Mitarb"
|
.Columns("LetzterMitarbeiter").HeaderText = "akt. Mitarb"
|
||||||
|
|
||||||
@@ -760,6 +766,17 @@ Public Class frmHauptfenster
|
|||||||
.Columns("LKW_fertig").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
|
.Columns("LKW_fertig").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
|
||||||
.Columns("LKW_fertig").DefaultCellStyle.Font = bfont
|
.Columns("LKW_fertig").DefaultCellStyle.Font = bfont
|
||||||
|
|
||||||
|
If cboGrenzstelle._value = "NEU" Then
|
||||||
|
.Columns("VerwahrungStatus").Width = 55
|
||||||
|
.Columns("VerwahrungStatus").HeaderText = "Kontrolle"
|
||||||
|
.Columns("VerwahrungStatus").DefaultCellStyle.ForeColor = Color.White
|
||||||
|
.Columns("VerwahrungStatus").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
|
||||||
|
.Columns("VerwahrungStatus").DefaultCellStyle.Font = bfont
|
||||||
|
.Columns("VerwahrungStatus").Visible = True
|
||||||
|
Else
|
||||||
|
.Columns("VerwahrungStatus").Visible = False
|
||||||
|
End If
|
||||||
|
|
||||||
.Columns("Info").Visible = False
|
.Columns("Info").Visible = False
|
||||||
.Columns("Info").MinimumWidth = 200
|
.Columns("Info").MinimumWidth = 200
|
||||||
.Columns("Info").HeaderText = "Info (Einträge bis zum Status ERFASST)"
|
.Columns("Info").HeaderText = "Info (Einträge bis zum Status ERFASST)"
|
||||||
@@ -810,6 +827,13 @@ Public Class frmHauptfenster
|
|||||||
'Else
|
'Else
|
||||||
'r.Cells("LKW_fertig").Style.BackColor = Color.White
|
'r.Cells("LKW_fertig").Style.BackColor = Color.White
|
||||||
End If
|
End If
|
||||||
|
If r.Cells("VerwahrungStatus").Value = "OK" Then
|
||||||
|
r.Cells("VerwahrungStatus").Style.ForeColor = Color.White
|
||||||
|
r.Cells("VerwahrungStatus").Style.BackColor = Color.Green
|
||||||
|
'Else
|
||||||
|
'r.Cells("LKW_fertig").Style.BackColor = Color.White
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
Next
|
Next
|
||||||
End With
|
End With
|
||||||
@@ -886,127 +910,222 @@ Public Class frmHauptfenster
|
|||||||
|
|
||||||
Dim datumseinschr = ""
|
Dim datumseinschr = ""
|
||||||
Dim top = "TOP 1000 "
|
Dim top = "TOP 1000 "
|
||||||
'Bei ANKUNFT nicht nach Datum einschränken
|
|
||||||
If tbcntrAviso.SelectedTab Is tabAnkunft Or tbcntrAviso.SelectedTab Is tabErfasst Or tbcntrAviso.SelectedTab Is tabVorbereitet Or tbcntrAviso.SelectedTab Is tabVorgeschrieben Then
|
|
||||||
pnlTime.Visible = False
|
|
||||||
Else
|
|
||||||
pnlTime.Visible = True
|
|
||||||
Select Case MyComboBox1._value
|
|
||||||
Case UStatus_none
|
|
||||||
top = " TOP 1000 "
|
|
||||||
Case UStatus_AVEingang : datumseinschr &= " AND AvisoEingang >= " & SQLDatum(dtpVon.Value) & " AND AvisoEingang < " & SQLDatum(dtpBis.Value.AddDays(1))
|
|
||||||
Case Status_Erfasst : datumseinschr &= " AND Datum >= " & SQLDatum(dtpVon.Value) & " AND Datum < " & SQLDatum(dtpBis.Value.AddDays(1))
|
|
||||||
Case Status_Vorgeschrieben : datumseinschr &= " AND Vorgeschrieben >= " & SQLDatum(dtpVon.Value) & " AND Vorgeschrieben < " & SQLDatum(dtpBis.Value.AddDays(1))
|
|
||||||
Case Status_Vorbereitet : datumseinschr &= " AND Vorbereitet >= " & SQLDatum(dtpVon.Value) & " AND Vorbereitet < " & SQLDatum(dtpBis.Value.AddDays(1))
|
|
||||||
Case Status_Ankunft : datumseinschr &= " AND Ankunft >= " & SQLDatum(dtpVon.Value) & " AND Ankunft < " & SQLDatum(dtpBis.Value.AddDays(1))
|
|
||||||
Case Status_Freigegeben : datumseinschr &= " AND Freigabe >= " & SQLDatum(dtpVon.Value) & " AND Freigabe < " & SQLDatum(dtpBis.Value.AddDays(1))
|
|
||||||
End Select
|
|
||||||
End If
|
|
||||||
|
|
||||||
If pnlSearch.Visible Then
|
Dim hSQL As String = ""
|
||||||
top = " TOP 1000 "
|
If CheckBox1.Checked Then
|
||||||
End If
|
|
||||||
|
|
||||||
|
'----------------------------------------------------------------------------------------------------------------------------------
|
||||||
|
'--- LKW ---
|
||||||
|
'----------------------------------------------------------------------------------------------------------------------------------
|
||||||
|
|
||||||
Dim hSQL As String = "SELECT " & top & " AvisoID, Status, LKW_Nr, Auftraggeber, Frächter,VoraussichtlichesEintreffen, AvisoEingang, Ankunft, Dauer, Grenzstelle,letzterMitarbeiter,CASE WHEN [ZOLLDigitalEingereicht] = 1 THEN 'DE' ELSE CASE WHEN [LKW_fertig] = 1 THEN 'OK' ELSE '' END END AS [LKW_fertig], Datum, Vorbereitet, Vorgeschrieben, Freigabe, "
|
'Bei ANKUNFT nicht nach Datum einschränken
|
||||||
hSQL &= " Telefonisch, Info,Handling,AvisoTVHinweis,DATEDIFF(DAY,getdate(),[VoraussichtlichesEintreffen]) TageBisEintreffen,isnull(Transportmittelart,'')Transportmittelart"
|
If tbcntrAviso.SelectedTab Is tabAnkunft Or tbcntrAviso.SelectedTab Is tabErfasst Or tbcntrAviso.SelectedTab Is tabVorbereitet Or tbcntrAviso.SelectedTab Is tabVorgeschrieben Then
|
||||||
hSQL &= " FROM Aviso "
|
pnlTime.Visible = False
|
||||||
hSQL &= " WHERE 1=1 "
|
Else
|
||||||
|
pnlTime.Visible = True
|
||||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER <> "" And cbxCluster.Checked Then
|
Select Case MyComboBox1._value
|
||||||
hSQL &= " AND ( FIRMA='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR CLUSTER='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' ) "
|
Case UStatus_none
|
||||||
Else
|
top = " TOP 1000 "
|
||||||
hSQL &= " AND FIRMA='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' "
|
Case UStatus_AVEingang : datumseinschr &= " AND AvisoEingang >= " & SQLDatum(dtpVon.Value) & " AND AvisoEingang < " & SQLDatum(dtpBis.Value.AddDays(1))
|
||||||
End If
|
Case Status_Erfasst : datumseinschr &= " AND Datum >= " & SQLDatum(dtpVon.Value) & " AND Datum < " & SQLDatum(dtpBis.Value.AddDays(1))
|
||||||
If pnlSearch.Visible Then
|
Case Status_Vorgeschrieben : datumseinschr &= " AND Vorgeschrieben >= " & SQLDatum(dtpVon.Value) & " AND Vorgeschrieben < " & SQLDatum(dtpBis.Value.AddDays(1))
|
||||||
Dim srchkrit = False
|
Case Status_Vorbereitet : datumseinschr &= " AND Vorbereitet >= " & SQLDatum(dtpVon.Value) & " AND Vorbereitet < " & SQLDatum(dtpBis.Value.AddDays(1))
|
||||||
Dim hSQLSnd = ""
|
Case Status_Ankunft : datumseinschr &= " AND Ankunft >= " & SQLDatum(dtpVon.Value) & " AND Ankunft < " & SQLDatum(dtpBis.Value.AddDays(1))
|
||||||
hSQLSnd &= " AND ( SELECT COUNT(*) FROM tblSendungen where tblSnd_AvisoId=AvisoId "
|
Case Status_Freigegeben : datumseinschr &= " AND Freigabe >= " & SQLDatum(dtpVon.Value) & " AND Freigabe < " & SQLDatum(dtpBis.Value.AddDays(1))
|
||||||
If txtEmpfänger.Text <> "" Then hSQLSnd &= " AND tblSnd_Empfaenger LIKE '" & txtEmpfänger.Text.Replace("*", "%") & "%' " : srchkrit = True
|
End Select
|
||||||
If txtAbsender.Text <> "" Then hSQLSnd &= " AND tblSnd_Absender LIKE '" & txtAbsender.Text.Replace("*", "%") & "%' " : srchkrit = True
|
|
||||||
If txtAuftraggeber.Text <> "" Then hSQLSnd &= " AND tblSnd_Auftraggeber LIKE '" & txtAuftraggeber.Text.Replace("*", "%") & "%' " : srchkrit = True
|
|
||||||
If txtKdAuftragsnr.Text <> "" Then hSQLSnd &= " AND (tblSnd_KdAuftragsNr LIKE '" & txtKdAuftragsnr.Text.Replace("*", "%") & "%' OR tblSnd_KdAuftragsNrAvisierer LIKE '" & txtKdAuftragsnr.Text.Replace("*", "%") & "%' OR tblSnd_KdAuftragsNrEmpfaenger LIKE '" & txtKdAuftragsnr.Text.Replace("*", "%") & "%' OR tblSnd_KdAuftragsNrFrachtfuehrer LIKE '" & txtKdAuftragsnr.Text.Replace("*", "%") & "%') " : srchkrit = True
|
|
||||||
If cboFiliale._value <> "" Then hSQLSnd &= " AND FilialenNr ='" & cboFiliale._value & "'" : srchkrit = True
|
|
||||||
If txtAbfertigungsnummer.Text <> "" Then hSQLSnd &= " AND AbfertigungsNr LIKE '" & txtAbfertigungsnummer.Text.Replace("*", "%") & "' " : srchkrit = True
|
|
||||||
If txtDyRef.Text <> "" Then hSQLSnd &= " AND tblSnd_DakosyRef LIKE '" & txtDyRef.Text.Replace("*", "%") & "' " : srchkrit = True
|
|
||||||
hSQLSnd &= " ) > 0 "
|
|
||||||
If srchkrit = True Then hSQL &= hSQLSnd
|
|
||||||
If txtlkwId.Text <> "" Then hSQL &= " AND AvisoID LIKE '" & txtlkwId.Text.Replace("*", "%") & "' "
|
|
||||||
|
|
||||||
If cbxAlle.Checked = False Then
|
|
||||||
Dim statWhere = ""
|
|
||||||
If cbxErfasst.Checked Then statWhere &= Status_Erfasst & ","
|
|
||||||
If cbxVorb.Checked Then statWhere &= Status_Vorbereitet & ","
|
|
||||||
If cbxVorg.Checked Then statWhere &= Status_Vorgeschrieben & ","
|
|
||||||
If cbxAnkunft.Checked Then statWhere &= Status_Ankunft & ","
|
|
||||||
If cbxFreigabe.Checked Then statWhere &= Status_Freigegeben & ","
|
|
||||||
If cbxNE.Checked Then statWhere &= Status_NichtEingetroffen & ","
|
|
||||||
If statWhere.EndsWith(",") Then statWhere = statWhere.Substring(0, statWhere.Length - 1)
|
|
||||||
If statWhere <> "" Then hSQL &= " AND Status IN ( " & statWhere & " ) " Else hSQL &= " AND 1<>1 "
|
|
||||||
End If
|
End If
|
||||||
End If
|
|
||||||
|
|
||||||
hSQL &= datumseinschr
|
If pnlSearch.Visible Then
|
||||||
|
top = " TOP 1000 "
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
If cboGrenzstelle._value = "ALLE_WO" Then
|
hSQL = "SELECT " & top & " Status, AvisoID, LKW_Nr, Auftraggeber, Frächter,VoraussichtlichesEintreffen, AvisoEingang, Ankunft, Dauer, Grenzstelle,letzterMitarbeiter,CASE WHEN [VerwahrungStatus] = 1 THEN 'OK' ELSE '' END AS [VerwahrungStatus],CASE WHEN [ZOLLDigitalEingereicht] = 1 THEN 'DE' WHEN [LKW_fertig] = 1 THEN 'OK' ELSE '' END AS [LKW_fertig], Datum, Vorbereitet, Vorgeschrieben, Freigabe, "
|
||||||
hSQL += " AND Grenzstelle IN (SELECT [grz_Grenzstelle] FROM [tblGrenzstelle] where (grz_Warenort=1 AND (grz_Firma ='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' )) ) "
|
hSQL &= " Telefonisch, Info,Handling,AvisoTVHinweis,DATEDIFF(DAY,getdate(),[VoraussichtlichesEintreffen]) TageBisEintreffen,isnull(Transportmittelart,'')Transportmittelart"
|
||||||
|
hSQL &= " FROM Aviso "
|
||||||
|
hSQL &= " WHERE 1=1 "
|
||||||
|
|
||||||
|
If VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER <> "" And cbxCluster.Checked Then
|
||||||
|
hSQL &= " AND ( FIRMA='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR CLUSTER='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' ) "
|
||||||
|
Else
|
||||||
|
hSQL &= " AND FIRMA='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' "
|
||||||
|
End If
|
||||||
|
If pnlSearch.Visible Then
|
||||||
|
Dim srchkrit = False
|
||||||
|
Dim hSQLSnd = ""
|
||||||
|
hSQLSnd &= " AND ( SELECT COUNT(*) FROM tblSendungen where tblSnd_AvisoId=AvisoId "
|
||||||
|
If txtEmpfänger.Text <> "" Then hSQLSnd &= " AND tblSnd_Empfaenger LIKE '" & txtEmpfänger.Text.Replace("*", "%") & "%' " : srchkrit = True
|
||||||
|
If txtAbsender.Text <> "" Then hSQLSnd &= " AND tblSnd_Absender LIKE '" & txtAbsender.Text.Replace("*", "%") & "%' " : srchkrit = True
|
||||||
|
If txtAuftraggeber.Text <> "" Then hSQLSnd &= " AND tblSnd_Auftraggeber LIKE '" & txtAuftraggeber.Text.Replace("*", "%") & "%' " : srchkrit = True
|
||||||
|
If txtKdAuftragsnr.Text <> "" Then hSQLSnd &= " AND (tblSnd_KdAuftragsNr LIKE '" & txtKdAuftragsnr.Text.Replace("*", "%") & "%' OR tblSnd_KdAuftragsNrAvisierer LIKE '" & txtKdAuftragsnr.Text.Replace("*", "%") & "%' OR tblSnd_KdAuftragsNrEmpfaenger LIKE '" & txtKdAuftragsnr.Text.Replace("*", "%") & "%' OR tblSnd_KdAuftragsNrFrachtfuehrer LIKE '" & txtKdAuftragsnr.Text.Replace("*", "%") & "%') " : srchkrit = True
|
||||||
|
If cboFiliale._value <> "" Then hSQLSnd &= " AND FilialenNr ='" & cboFiliale._value & "'" : srchkrit = True
|
||||||
|
If txtAbfertigungsnummer.Text <> "" Then hSQLSnd &= " AND AbfertigungsNr LIKE '" & txtAbfertigungsnummer.Text.Replace("*", "%") & "' " : srchkrit = True
|
||||||
|
If txtDyRef.Text <> "" Then hSQLSnd &= " AND tblSnd_DakosyRef LIKE '" & txtDyRef.Text.Replace("*", "%") & "' " : srchkrit = True
|
||||||
|
hSQLSnd &= " ) > 0 "
|
||||||
|
If srchkrit = True Then hSQL &= hSQLSnd
|
||||||
|
If txtlkwId.Text <> "" Then hSQL &= " AND AvisoID LIKE '" & txtlkwId.Text.Replace("*", "%") & "' "
|
||||||
|
|
||||||
|
If cbxAlle.Checked = False Then
|
||||||
|
Dim statWhere = ""
|
||||||
|
If cbxErfasst.Checked Then statWhere &= Status_Erfasst & ","
|
||||||
|
If cbxVorb.Checked Then statWhere &= Status_Vorbereitet & ","
|
||||||
|
If cbxVorg.Checked Then statWhere &= Status_Vorgeschrieben & ","
|
||||||
|
If cbxAnkunft.Checked Then statWhere &= Status_Ankunft & ","
|
||||||
|
If cbxFreigabe.Checked Then statWhere &= Status_Freigegeben & ","
|
||||||
|
If cbxNE.Checked Then statWhere &= Status_NichtEingetroffen & ","
|
||||||
|
If statWhere.EndsWith(",") Then statWhere = statWhere.Substring(0, statWhere.Length - 1)
|
||||||
|
If statWhere <> "" Then hSQL &= " AND Status IN ( " & statWhere & " ) " Else hSQL &= " AND 1<>1 "
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
hSQL &= datumseinschr
|
||||||
|
|
||||||
|
|
||||||
|
If cboGrenzstelle._value = "ALLE_WO" Then
|
||||||
|
hSQL += " AND Grenzstelle IN (SELECT [grz_Grenzstelle] FROM [tblGrenzstelle] where (grz_Warenort=1 AND (grz_Firma ='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' )) ) "
|
||||||
|
|
||||||
|
Else
|
||||||
|
' If SucheStandort <> "" Then hSQL += " AND Grenzstelle = '" & SucheStandort & "'"
|
||||||
|
If cboGrenzstelle._value <> "" Then hSQL += " AND Grenzstelle = '" & cboGrenzstelle._value & "'"
|
||||||
|
' Bestimmungs.ZST
|
||||||
|
If cboGrenzstelle._value = "???" And txtBestimmungszollstelle._value <> "" Then
|
||||||
|
hSQL += " AND Zollstelle = '" & txtBestimmungszollstelle._value & "'"
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
If cboImEx._value <> "" Then
|
||||||
|
Select Case cboImEx._value
|
||||||
|
Case "IMPORT" : hSQL += " AND (ImEx = '" & cboImEx._value & "' OR ImEx = '' )"
|
||||||
|
Case "EXPORT" : hSQL += " AND ImEx = '" & cboImEx._value & "'"
|
||||||
|
End Select
|
||||||
|
|
||||||
|
End If 'Then hSQL += " AND ImEx = '" & cboImEx._value & "'"
|
||||||
|
If cboTeams.Text <> "" Then hSQL += " AND TeamId = '" & cboTeams._value & "'"
|
||||||
|
|
||||||
|
'je nach Auswahl SQL anpassen
|
||||||
|
If tbcntrAviso.SelectedTab Is tabAlle Then
|
||||||
|
'alle
|
||||||
|
'Falls Freigabe/NE bei "ALLE" eingeschränkt werden sollte::: 'hSQL += " AND (Status NOT IN (1,2) OR (Status=1 AND Freigabe >= " & SQLDatum(dtpVon.Value) & " AND Freigabe < " & SQLDatum(dtpBis.Value.AddDays(1)) & ") OR (Status=2 AND [Datum] >= " & SQLDatum(dtpVon.Value) & " AND [Datum] < " & SQLDatum(dtpBis.Value.AddDays(1)) & "))"
|
||||||
|
|
||||||
|
ElseIf tbcntrAviso.SelectedTab Is tabErfasst Then 'Erfasst
|
||||||
|
hSQL += " AND Status = 0"
|
||||||
|
ElseIf tbcntrAviso.SelectedTab Is tabVorbereitet Then 'Vorbereitet
|
||||||
|
hSQL += " AND Status = 4"
|
||||||
|
ElseIf tbcntrAviso.SelectedTab Is tabVorgeschrieben Then 'Vorgeschrieben
|
||||||
|
hSQL += " AND Status = 5"
|
||||||
|
ElseIf tbcntrAviso.SelectedTab Is tabAnkunft Then 'Ankunft
|
||||||
|
hSQL += " AND Status = 3"
|
||||||
|
ElseIf tbcntrAviso.SelectedTab Is tabFreigegeben Then 'Freigegeben
|
||||||
|
hSQL += " AND Status = 1"
|
||||||
|
ElseIf tbcntrAviso.SelectedTab Is tabVERIMEX Then 'Nicht Eingetroffen
|
||||||
|
hSQL += " AND Status = " & VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_VERIMEX
|
||||||
|
ElseIf tbcntrAviso.SelectedTab Is tabINDONESIEN Then 'Nicht Eingetroffen
|
||||||
|
hSQL += " AND Status = " & VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_INDONESIEN
|
||||||
|
ElseIf tbcntrAviso.SelectedTab Is tabNichtEingetroffen Then 'Nicht Eingetroffen
|
||||||
|
hSQL += " AND Status = 2"
|
||||||
|
End If
|
||||||
|
|
||||||
|
Dim search = txtSuche.Text.Trim
|
||||||
|
If search <> "" Then
|
||||||
|
hSQL += " AND (LKW_Nr LIKE '%" & search & "%' OR letzterMitarbeiter LIKE '%" & search & "%' OR Auftraggeber LIKE '%" & search & "%' OR Frächter LIKE '%" & search & "%' OR DakosyRef LIKE '%" & search & "%' )"
|
||||||
|
|
||||||
|
'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" And search.Length = 8 Then 'AbfertigungsNr Suche für ATILLA, length, damit nicht unnötig der Verweis zu tblSendungen hergestellt wird --> performance
|
||||||
|
' hSQL += " AND (LKW_Nr LIKE '%" & search & "%' OR letzterMitarbeiter LIKE '%" & search & "%' OR Auftraggeber LIKE '%" & search & "%' OR Frächter LIKE '%" & search & "%' OR DakosyRef LIKE '%" & search & "%' OR (SELECT count(*) FROM tblSendungen WHERE AbfertigungsNr LIKE '%" & search & "%' AND FilialenNr=4801 AND tblSnd_AvisoID=AvisoId)>0 ) "
|
||||||
|
'Else
|
||||||
|
' hSQL += " AND (LKW_Nr LIKE '%" & search & "%' OR letzterMitarbeiter LIKE '%" & search & "%' OR Auftraggeber LIKE '%" & search & "%' OR Frächter LIKE '%" & search & "%' OR DakosyRef LIKE '%" & search & "%' )"
|
||||||
|
'End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
hSQL += " ORDER BY Ankunft ASC, AvisoEingang ASC, Datum ASC"
|
||||||
|
|
||||||
|
|
||||||
Else
|
Else
|
||||||
' If SucheStandort <> "" Then hSQL += " AND Grenzstelle = '" & SucheStandort & "'"
|
|
||||||
If cboGrenzstelle._value <> "" Then hSQL += " AND Grenzstelle = '" & cboGrenzstelle._value & "'"
|
|
||||||
' Bestimmungs.ZST
|
'----------------------------------------------------------------------------------------------------------------------------------
|
||||||
If cboGrenzstelle._value = "???" And txtBestimmungszollstelle._value <> "" Then
|
'--- Sendung ---
|
||||||
hSQL += " AND Zollstelle = '" & txtBestimmungszollstelle._value & "'"
|
'----------------------------------------------------------------------------------------------------------------------------------
|
||||||
|
Dim inBearbeitungSQL = " tblSendungen.LetzterMitarbeiterId=@maId " ' 1<>1 " 'DEFAULT = "Benutzer"
|
||||||
|
If cboMyAvisoAnzeige._value <> "" Then
|
||||||
|
If cboMyAvisoAnzeige._value = "ALLE" Then
|
||||||
|
' inBearbeitungSQL = " 1=1 " 'ALLE
|
||||||
|
inBearbeitungSQL = " ( (tblSendungen.[tblSnd_TeamId] IN (SELECT [team_id] FROM [ADMIN].[dbo].[tblTeams] WHERE [team_firma]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "')) OR (Aviso.[TeamId] IN (SELECT [team_id] FROM [ADMIN].[dbo].[tblTeams] WHERE [team_firma]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' AND tblSendungen.[tblSnd_TeamId] is null)) OR [tblSendungen].tblSnd_firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR tblSendungen.LetzterMitarbeiterId=@maId) "
|
||||||
|
ElseIf cboMyAvisoAnzeige._value = "T1" Then
|
||||||
|
inBearbeitungSQL = " tblSnd_Abfertigungsart_ID=5 "
|
||||||
|
'NUR VERAG/IMEX:
|
||||||
|
inBearbeitungSQL &= " AND FilialenNr IN (SELECT FilialenNr FROM " & VERAG_PROG_ALLGEMEIN.cAllgemein.FMZOLL_SERVER & ".VERAG.dbo.Filialen WHERE Filialen.FilialenNr=tblSendungen.FilialenNr and Filialen.Firma IN ('VERAG','IMEX')) "
|
||||||
|
ElseIf cboMyAvisoAnzeige._value <> "Benutzer" And IsNumeric(cboMyAvisoAnzeige._value) Then
|
||||||
|
If cboMyAvisoAnzeige._value = "27" Then ' TEAM SALZBURG
|
||||||
|
inBearbeitungSQL = " ((Aviso.[TeamId]= " & cboMyAvisoAnzeige._value & " AND tblSendungen.[tblSnd_TeamId] is null) OR tblSendungen.[tblSnd_TeamId]= " & cboMyAvisoAnzeige._value & " OR tblSendungen.LetzterMitarbeiterId=@maId
|
||||||
|
OR Grenzstelle IN('SBG') OR (tblSendungen.FilialenNr IN('5701') AND tblSnd_Abfertigungsart_ID IN(1,38,39,46,66)) ) "
|
||||||
|
Else
|
||||||
|
inBearbeitungSQL = " ((Aviso.[TeamId]= " & cboMyAvisoAnzeige._value & " AND tblSendungen.[tblSnd_TeamId] is null) OR tblSendungen.[tblSnd_TeamId]= " & cboMyAvisoAnzeige._value & " OR tblSendungen.LetzterMitarbeiterId=@maId) "
|
||||||
|
|
||||||
|
End If
|
||||||
|
End If
|
||||||
End If
|
End If
|
||||||
End If
|
|
||||||
|
|
||||||
|
hSQL = " SELECT AvisoID, CASE WHEN [LKW_fertig] = 1 THEN 'OK' ELSE '' END AS [LKW_fertig], CASE WHEN [VerwahrungStatus] = 1 THEN 'OK' ELSE '' END AS [VerwahrungStatus],[Status],tblSendungen.LetzterMitarbeiterId,tblSendungen.LetzterMitarbeiter, LKW_Nr, VoraussichtlichesEintreffen,Dauer, Datum, AvisoEingang, Ankunft, Grenzstelle, Freigabe, Aviso.LetzterMitarbeiterId AS maId,AvisoTVHinweis " &
|
||||||
|
" ,tblSnd_Empfaenger,AbfertigungsNr,tblSnd_Abfertigungsart_ID,tblSnd_Vorgeschrieben,tblSnd_Vorbereitet,tblSnd_Status,tblSnd_SendungID,tblSnd_Fremdspedition,tblSnd_FremdspeditionText " &
|
||||||
|
" FROM Aviso INNER JOIN tblSendungen ON AvisoID=tblSnd_AvisoID " &
|
||||||
|
" WHERE ( Status IN (0, 3, 4, 5) OR ( Status = 1 AND [Abgeschlossen] = 0 )) " &
|
||||||
|
hSQLFirma & " AND ( " & inBearbeitungSQL & ") "
|
||||||
|
|
||||||
If cboImEx._value <> "" Then
|
Select Case cboMy_VB.CheckState
|
||||||
Select Case cboImEx._value
|
Case CheckState.Checked : hSQL &= " AND tblSnd_Vorgeschrieben is not null "
|
||||||
Case "IMPORT" : hSQL += " AND (ImEx = '" & cboImEx._value & "' OR ImEx = '' )"
|
Case CheckState.Unchecked : hSQL &= " AND tblSnd_Vorgeschrieben is null "
|
||||||
Case "EXPORT" : hSQL += " AND ImEx = '" & cboImEx._value & "'"
|
' Case CheckState.Indeterminate : hSQL &= " AND tblSnd_Vorbereitet is not null "
|
||||||
End Select
|
End Select
|
||||||
|
Select Case cboMy_QS.CheckState
|
||||||
|
Case CheckState.Checked : hSQL &= " AND tblSnd_Vorbereitet is not null "
|
||||||
|
Case CheckState.Unchecked : hSQL &= " AND tblSnd_Vorbereitet is null "
|
||||||
|
' Case CheckState.Indeterminate : hSQL &= " AND tblSnd_Vorbereitet is not null "
|
||||||
|
End Select
|
||||||
|
If cboMy_Grenzstelle._value = "ALLE_WO" Then
|
||||||
|
hSQL += " AND Grenzstelle IN (SELECT [grz_Grenzstelle] FROM [tblGrenzstelle] where (grz_Warenort=1 AND (grz_Firma ='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' )) ) "
|
||||||
|
|
||||||
End If 'Then hSQL += " AND ImEx = '" & cboImEx._value & "'"
|
Else
|
||||||
If cboTeams.Text <> "" Then hSQL += " AND TeamId = '" & cboTeams._value & "'"
|
|
||||||
|
|
||||||
'je nach Auswahl SQL anpassen
|
If cboMy_Grenzstelle._value.Replace("ALLE_BACK", "") <> "" Then hSQL &= " AND Grenzstelle = '" & cboMy_Grenzstelle._value & "'"
|
||||||
If tbcntrAviso.SelectedTab Is tabAlle Then
|
If cboMy_Grenzstelle._value = "ALLE_BACK" Then hSQL &= " AND FilialenNr NOT IN ('7001','7002','7003') "
|
||||||
'alle
|
|
||||||
'Falls Freigabe/NE bei "ALLE" eingeschränkt werden sollte::: 'hSQL += " AND (Status NOT IN (1,2) OR (Status=1 AND Freigabe >= " & SQLDatum(dtpVon.Value) & " AND Freigabe < " & SQLDatum(dtpBis.Value.AddDays(1)) & ") OR (Status=2 AND [Datum] >= " & SQLDatum(dtpVon.Value) & " AND [Datum] < " & SQLDatum(dtpBis.Value.AddDays(1)) & "))"
|
|
||||||
|
|
||||||
ElseIf tbcntrAviso.SelectedTab Is tabErfasst Then 'Erfasst
|
End If
|
||||||
hSQL += " AND Status = 0"
|
|
||||||
ElseIf tbcntrAviso.SelectedTab Is tabVorbereitet Then 'Vorbereitet
|
|
||||||
hSQL += " AND Status = 4"
|
|
||||||
ElseIf tbcntrAviso.SelectedTab Is tabVorgeschrieben Then 'Vorgeschrieben
|
|
||||||
hSQL += " AND Status = 5"
|
|
||||||
ElseIf tbcntrAviso.SelectedTab Is tabAnkunft Then 'Ankunft
|
|
||||||
hSQL += " AND Status = 3"
|
|
||||||
ElseIf tbcntrAviso.SelectedTab Is tabFreigegeben Then 'Freigegeben
|
|
||||||
hSQL += " AND Status = 1"
|
|
||||||
ElseIf tbcntrAviso.SelectedTab Is tabVERIMEX Then 'Nicht Eingetroffen
|
|
||||||
hSQL += " AND Status = " & VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_VERIMEX
|
|
||||||
ElseIf tbcntrAviso.SelectedTab Is tabINDONESIEN Then 'Nicht Eingetroffen
|
|
||||||
hSQL += " AND Status = " & VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_INDONESIEN
|
|
||||||
ElseIf tbcntrAviso.SelectedTab Is tabNichtEingetroffen Then 'Nicht Eingetroffen
|
|
||||||
hSQL += " AND Status = 2"
|
|
||||||
End If
|
|
||||||
|
|
||||||
Dim search = txtSuche.Text.Trim
|
If cbx_My_Brexit.Visible AndAlso Not cbx_My_Brexit.Checked Then hSQL &= " AND FilialenNr NOT IN ('7001','7002','7003') "
|
||||||
If search <> "" Then
|
|
||||||
hSQL += " AND (LKW_Nr LIKE '%" & search & "%' OR letzterMitarbeiter LIKE '%" & search & "%' OR Auftraggeber LIKE '%" & search & "%' OR Frächter LIKE '%" & search & "%' OR DakosyRef LIKE '%" & search & "%' )"
|
|
||||||
|
|
||||||
'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" And search.Length = 8 Then 'AbfertigungsNr Suche für ATILLA, length, damit nicht unnötig der Verweis zu tblSendungen hergestellt wird --> performance
|
'Farbe
|
||||||
' hSQL += " AND (LKW_Nr LIKE '%" & search & "%' OR letzterMitarbeiter LIKE '%" & search & "%' OR Auftraggeber LIKE '%" & search & "%' OR Frächter LIKE '%" & search & "%' OR DakosyRef LIKE '%" & search & "%' OR (SELECT count(*) FROM tblSendungen WHERE AbfertigungsNr LIKE '%" & search & "%' AND FilialenNr=4801 AND tblSnd_AvisoID=AvisoId)>0 ) "
|
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("AVISO_MeineSND_Farbe") Then
|
||||||
'Else
|
Select Case btnColor.BackColor
|
||||||
' hSQL += " AND (LKW_Nr LIKE '%" & search & "%' OR letzterMitarbeiter LIKE '%" & search & "%' OR Auftraggeber LIKE '%" & search & "%' OR Frächter LIKE '%" & search & "%' OR DakosyRef LIKE '%" & search & "%' )"
|
Case Color.Red
|
||||||
|
hSQL &= " AND (Status = 3 ) "
|
||||||
|
Case Color.Orange
|
||||||
|
' hSQL &= " AND ( (Status IN (0, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE) <= cast(GETDATE() AS DATE) ) ) "
|
||||||
|
hSQL &= " AND ( (Status IN (0, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE) <= cast(DATEADD(DAY, " & getDaysVorschreiben(1) & ",GETDATE()) AS DATE) ) ) "
|
||||||
|
Case Color.Yellow
|
||||||
|
hSQL &= " AND ( (Status IN (0, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE) BETWEEN cast(DATEADD(DAY," & getDaysVorschreiben(2) & ",GETDATE()) AS DATE) AND cast(DATEADD(DAY," & getDaysVorschreiben(3) & ",GETDATE()) AS DATE) ) ) "
|
||||||
|
End Select
|
||||||
|
End If
|
||||||
|
''Farbe
|
||||||
|
'If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("AVISO_MeineSND_Farbe") Then
|
||||||
|
' Select Case btnColor.BackColor
|
||||||
|
' Case Color.Red
|
||||||
|
' hSQL &= " AND (Status = 3 OR (Status IN (0, 3, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE)<= cast(GETDATE() AS DATE) ) or VoraussichtlichesEintreffen is null) "
|
||||||
|
' Case Color.Orange
|
||||||
|
' hSQL &= " AND ( (Status IN (0, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE) = cast(DATEADD(DAY, 1,GETDATE()) AS DATE) ) ) "
|
||||||
|
' Case Color.Yellow
|
||||||
|
' hSQL &= " AND ( (Status IN (0, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE) BETWEEN cast(DATEADD(DAY, 2,GETDATE()) AS DATE) AND cast(DATEADD(DAY, 3,GETDATE()) AS DATE) ) ) "
|
||||||
|
' End Select
|
||||||
'End If
|
'End If
|
||||||
|
|
||||||
|
'hSQL &= " AND (Grenzstelle ='???' OR Status NOT IN (1)) " ' "Freigabe" nur bei Fremde Grenze anzeigen!
|
||||||
|
' Funktioniert nciht, wg. WO
|
||||||
|
|
||||||
|
hSQL &= " ORDER BY case " & " when [Status] =3 then 0 " & " when [Status] =1 then 5 " & " else 1 " & " END, VoraussichtlichesEintreffen, Grenzstelle,Ankunft " & If(cbx_My_LKW.Checked, "", ",tblSnd_SendungID")
|
||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
hSQL += " ORDER BY Ankunft ASC, AvisoEingang ASC, Datum ASC"
|
|
||||||
' MsgBox(hSQL)
|
' MsgBox(hSQL)
|
||||||
'If hSort = "" Then
|
'If hSort = "" Then
|
||||||
'hSQL += " ORDER BY Ankunft DESC, AvisoEingang DESC, Datum DESC"
|
'hSQL += " ORDER BY Ankunft DESC, AvisoEingang DESC, Datum DESC"
|
||||||
@@ -1026,10 +1145,14 @@ Public Class frmHauptfenster
|
|||||||
'AVISOBinding.initBinding(hSQL, "Aviso")
|
'AVISOBinding.initBinding(hSQL, "Aviso")
|
||||||
'gridAviso.DataSource = AVISOBinding.bindingSource
|
'gridAviso.DataSource = AVISOBinding.bindingSource
|
||||||
|
|
||||||
' MsgBox(hSQL)
|
'MsgBox(DirectCast(gridAviso.DataSource, DataTable).Rows.Count)
|
||||||
'Grid neu designen
|
'Grid neu designen
|
||||||
|
|
||||||
gridAviso_SpaltenFestlegen()
|
|
||||||
|
If CheckBox1.Checked Then
|
||||||
|
gridAviso_SpaltenFestlegen()
|
||||||
|
End If
|
||||||
|
|
||||||
'Tabelle Kommt/Geht bereinigen
|
'Tabelle Kommt/Geht bereinigen
|
||||||
If gridAviso.RowCount = 0 Then
|
If gridAviso.RowCount = 0 Then
|
||||||
gridAviso.DataSource = Nothing
|
gridAviso.DataSource = Nothing
|
||||||
@@ -1258,7 +1381,7 @@ Public Class frmHauptfenster
|
|||||||
'----------------------------------------------------------------------------------------------------------------------------------
|
'----------------------------------------------------------------------------------------------------------------------------------
|
||||||
'--- LKW ---
|
'--- LKW ---
|
||||||
'----------------------------------------------------------------------------------------------------------------------------------
|
'----------------------------------------------------------------------------------------------------------------------------------
|
||||||
sqlStr = " SELECT AvisoID, CASE WHEN [LKW_fertig] = 1 THEN 'OK' ELSE '' END AS [LKW_fertig], [Status],CASE WHEN LetzterMitarbeiterId=@maId then '0' ELSE '1' END as [statVorb], LKW_Nr, Dauer, Datum, AvisoEingang, Ankunft, Grenzstelle, Freigabe,LetzterMitarbeiterId AS maId, LetzterMitarbeiterId ,/* CASE WHEN LetzterMitarbeiterId=@maId then '0' ELSE '1' END as Vorbereitung,*/LetzterMitarbeiter,AvisoTVHinweis " &
|
sqlStr = " SELECT AvisoID, CASE WHEN [LKW_fertig] = 1 THEN 'OK' ELSE '' END AS [LKW_fertig], CASE WHEN [VerwahrungStatus] = 1 THEN 'OK' ELSE '' END AS [VerwahrungStatus],[Status],CASE WHEN LetzterMitarbeiterId=@maId then '0' ELSE '1' END as [statVorb], LKW_Nr, Dauer, Datum, AvisoEingang, Ankunft, Grenzstelle, Freigabe,LetzterMitarbeiterId AS maId, LetzterMitarbeiterId ,/* CASE WHEN LetzterMitarbeiterId=@maId then '0' ELSE '1' END as Vorbereitung,*/LetzterMitarbeiter,AvisoTVHinweis " &
|
||||||
" FROM Aviso " &
|
" FROM Aviso " &
|
||||||
" WHERE ( Status IN (0, 3, 4, 5,6,7) OR ( Status = 1 AND [Abgeschlossen] = 0 )) " &
|
" WHERE ( Status IN (0, 3, 4, 5,6,7) OR ( Status = 1 AND [Abgeschlossen] = 0 )) " &
|
||||||
sqlStrFirma & " AND (LetzterMitarbeiterId=@maId) "
|
sqlStrFirma & " AND (LetzterMitarbeiterId=@maId) "
|
||||||
@@ -1310,7 +1433,7 @@ Public Class frmHauptfenster
|
|||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
|
|
||||||
sqlStr = " SELECT AvisoID, CASE WHEN [LKW_fertig] = 1 THEN 'OK' ELSE '' END AS [LKW_fertig], [Status],tblSendungen.LetzterMitarbeiterId,tblSendungen.LetzterMitarbeiter, LKW_Nr, VoraussichtlichesEintreffen,Dauer, Datum, AvisoEingang, Ankunft, Grenzstelle, Freigabe, Aviso.LetzterMitarbeiterId AS maId,AvisoTVHinweis " &
|
sqlStr = " SELECT AvisoID, CASE WHEN [LKW_fertig] = 1 THEN 'OK' ELSE '' END AS [LKW_fertig],CASE WHEN [VerwahrungStatus] = 1 THEN 'OK' ELSE '' END AS [VerwahrungStatus], [Status],tblSendungen.LetzterMitarbeiterId,tblSendungen.LetzterMitarbeiter, LKW_Nr, VoraussichtlichesEintreffen,Dauer, Datum, AvisoEingang, Ankunft, Grenzstelle, Freigabe, Aviso.LetzterMitarbeiterId AS maId,AvisoTVHinweis " &
|
||||||
" ,tblSnd_Empfaenger,AbfertigungsNr,tblSnd_Abfertigungsart_ID,tblSnd_Vorgeschrieben,tblSnd_Vorbereitet,tblSnd_Status,tblSnd_SendungID,tblSnd_Fremdspedition,tblSnd_FremdspeditionText " &
|
" ,tblSnd_Empfaenger,AbfertigungsNr,tblSnd_Abfertigungsart_ID,tblSnd_Vorgeschrieben,tblSnd_Vorbereitet,tblSnd_Status,tblSnd_SendungID,tblSnd_Fremdspedition,tblSnd_FremdspeditionText " &
|
||||||
" FROM Aviso INNER JOIN tblSendungen ON AvisoID=tblSnd_AvisoID " &
|
" FROM Aviso INNER JOIN tblSendungen ON AvisoID=tblSnd_AvisoID " &
|
||||||
" WHERE ( Status IN (0, 3, 4, 5) OR ( Status = 1 AND [Abgeschlossen] = 0 )) " &
|
" WHERE ( Status IN (0, 3, 4, 5) OR ( Status = 1 AND [Abgeschlossen] = 0 )) " &
|
||||||
@@ -1481,7 +1604,16 @@ Public Class frmHauptfenster
|
|||||||
.Columns("LKW_fertig").HeaderText = "OK"
|
.Columns("LKW_fertig").HeaderText = "OK"
|
||||||
.Columns("LKW_fertig").DefaultCellStyle.ForeColor = Color.White
|
.Columns("LKW_fertig").DefaultCellStyle.ForeColor = Color.White
|
||||||
.Columns("LKW_fertig").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
|
.Columns("LKW_fertig").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
|
||||||
'.Columns("LKW_fertig").DefaultCellStyle.Font = bfont
|
|
||||||
|
If cboGrenzstelle._value = "NEU" Then
|
||||||
|
.Columns("VerwahrungStatus").Width = 55
|
||||||
|
.Columns("VerwahrungStatus").HeaderText = "Kontrolle"
|
||||||
|
.Columns("VerwahrungStatus").DefaultCellStyle.ForeColor = Color.White
|
||||||
|
.Columns("VerwahrungStatus").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
|
||||||
|
.Columns("VerwahrungStatus").Visible = True
|
||||||
|
Else
|
||||||
|
.Columns("VerwahrungStatus").Visible = False
|
||||||
|
End If
|
||||||
|
|
||||||
If gridMyAviso.RowCount = 0 Then gridMyAviso.Columns.Clear() : Exit Sub
|
If gridMyAviso.RowCount = 0 Then gridMyAviso.Columns.Clear() : Exit Sub
|
||||||
|
|
||||||
@@ -1611,6 +1743,7 @@ Public Class frmHauptfenster
|
|||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
If r.Cells("VerwahrungStatus").Value = "OK" Then r.Cells("LKW_fertig").Style.BackColor = Color.Green
|
||||||
If r.Cells("LKW_fertig").Value = "OK" Then r.Cells("LKW_fertig").Style.BackColor = Color.FromArgb(0, 54, 128)
|
If r.Cells("LKW_fertig").Value = "OK" Then r.Cells("LKW_fertig").Style.BackColor = Color.FromArgb(0, 54, 128)
|
||||||
If r.Cells("LKW_fertig").Value = "DE" Then r.Cells("LKW_fertig").Style.BackColor = Color.Green
|
If r.Cells("LKW_fertig").Value = "DE" Then r.Cells("LKW_fertig").Style.BackColor = Color.Green
|
||||||
If r.Cells("Dauer").Value > 120 Then r.Cells("DauerText").Style.ForeColor = Color.Red
|
If r.Cells("Dauer").Value > 120 Then r.Cells("DauerText").Style.ForeColor = Color.Red
|
||||||
@@ -1691,7 +1824,7 @@ Public Class frmHauptfenster
|
|||||||
' MsgBox(ex.Message)
|
' MsgBox(ex.Message)
|
||||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||||
End Try
|
End Try
|
||||||
' Grid_aktiv = True
|
' Grid_aktiv = True
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
@@ -2840,6 +2973,9 @@ Public Class frmHauptfenster
|
|||||||
|
|
||||||
|
|
||||||
tbcntrAviso.Width = Panel1.Width
|
tbcntrAviso.Width = Panel1.Width
|
||||||
|
|
||||||
|
TabControl1.Location = New Point(tbcntrAviso.Location.X + getTbControlWidth(tbcntrAviso) + 80, TabControl1.Location.Y)
|
||||||
|
TabControl1.SelectedIndex = -1
|
||||||
VERAG_PROG_ALLGEMEIN.cAllgemein._TRANSLATE(Me)
|
VERAG_PROG_ALLGEMEIN.cAllgemein._TRANSLATE(Me)
|
||||||
|
|
||||||
BürgschaftenExcelToolStripMenuItem.Visible = False
|
BürgschaftenExcelToolStripMenuItem.Visible = False
|
||||||
@@ -2857,8 +2993,20 @@ Public Class frmHauptfenster
|
|||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
|
Private Function getTbControlWidth(tbcntr) As Integer
|
||||||
|
Dim totalWidth As Integer = 0
|
||||||
|
|
||||||
|
' Durchlaufe alle TabPages und summiere die Breite der Tabs
|
||||||
|
For i As Integer = 0 To tbcntr.TabCount - 1
|
||||||
|
totalWidth += tbcntr.GetTabRect(i).Width
|
||||||
|
Next
|
||||||
|
|
||||||
|
Return totalWidth
|
||||||
|
End Function
|
||||||
|
|
||||||
WithEvents timerStart As New Timer
|
WithEvents timerStart As New Timer
|
||||||
|
|
||||||
Private Sub timerStart_Tick(sender As Object, e As EventArgs) Handles timerStart.Tick
|
Private Sub timerStart_Tick(sender As Object, e As EventArgs) Handles timerStart.Tick
|
||||||
@@ -2921,8 +3069,8 @@ Public Class frmHauptfenster
|
|||||||
' If SplitContainer1.Panel2.Width > 700 And (SplitContainer1.Width - 760) > 0 Then
|
' If SplitContainer1.Panel2.Width > 700 And (SplitContainer1.Width - 760) > 0 Then
|
||||||
' SplitContainer1.SplitterDistance = SplitContainer1.Width - 760
|
' SplitContainer1.SplitterDistance = SplitContainer1.Width - 760
|
||||||
' End If
|
' End If
|
||||||
If SplitContainer1.Panel2.Width > 700 And (SplitContainer1.Width - 630) > 0 Then
|
If SplitContainer1.Panel2.Width > 700 And (SplitContainer1.Width - 660) > 0 Then
|
||||||
SplitContainer1.SplitterDistance = SplitContainer1.Width - 630
|
SplitContainer1.SplitterDistance = SplitContainer1.Width - 660
|
||||||
End If
|
End If
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
@@ -3437,7 +3585,7 @@ Public Class frmHauptfenster
|
|||||||
Public Sub showHideDetails()
|
Public Sub showHideDetails()
|
||||||
If sd <> SplitContainer1.SplitterDistance Or SplitContainer1.Panel2.Size.Width = 15 Then
|
If sd <> SplitContainer1.SplitterDistance Or SplitContainer1.Panel2.Size.Width = 15 Then
|
||||||
SplitContainer1.SplitterDistance = sd
|
SplitContainer1.SplitterDistance = sd
|
||||||
SplitContainer1.Panel2MinSize = 300
|
SplitContainer1.Panel2MinSize = 600 '300
|
||||||
Fullscreen = False
|
Fullscreen = False
|
||||||
Else
|
Else
|
||||||
SplitContainer1.Panel2MinSize = 15
|
SplitContainer1.Panel2MinSize = 15
|
||||||
@@ -3631,7 +3779,7 @@ Public Class frmHauptfenster
|
|||||||
Grid_aktiv = True
|
Grid_aktiv = True
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub Button4_Click_1(sender As Object, e As EventArgs) Handles Button4.Click
|
Private Sub Button4_Click_1(sender As Object, e As EventArgs) Handles Button4.Click, CheckBox1.CheckedChanged
|
||||||
Aviso_anzeigen("")
|
Aviso_anzeigen("")
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
@@ -4245,7 +4393,7 @@ Public Class frmHauptfenster
|
|||||||
Me.Cursor = Cursors.Default
|
Me.Cursor = Cursors.Default
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click, Label22.Click
|
Private Sub Button12_Click(sender As Object, e As EventArgs) Handles btnE_Aviso.Click, Label22.Click
|
||||||
Me.Cursor = Cursors.WaitCursor
|
Me.Cursor = Cursors.WaitCursor
|
||||||
Dim f As New frm_eAVISO
|
Dim f As New frm_eAVISO
|
||||||
f.Show()
|
f.Show()
|
||||||
@@ -4803,8 +4951,87 @@ Public Class frmHauptfenster
|
|||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
|
Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
|
||||||
|
Dim resp = GetDataFromSharePoint("https://dpdhl.sharepoint.com/sites/FRTTR-Verag", "TruckList", "al@verag.ag", "Muellerskuh1!")
|
||||||
|
MsgBox(resp)
|
||||||
|
'saveLukowaPDFsFromTherefore()
|
||||||
|
End Sub
|
||||||
|
|
||||||
saveLukowaPDFsFromTherefore()
|
|
||||||
|
|
||||||
|
Public Function GetDataFromSharePoint(siteUrl As String, listName As String, username As String, password As String) As String
|
||||||
|
'' SharePoint-URL und Liste konfigurieren
|
||||||
|
'Dim requestUrl As String = siteUrl & "/_api/web/lists/getbytitle('" & listName & "')/items"
|
||||||
|
|
||||||
|
'' Authentifizierung: Benutzername und Passwort als Basis64
|
||||||
|
'Dim credentials As String = Convert.ToBase64String(Encoding.ASCII.GetBytes(username & ":" & password))
|
||||||
|
|
||||||
|
'' HTTP-Anfrage vorbereiten
|
||||||
|
'Dim request As HttpWebRequest = CType(WebRequest.Create(requestUrl), HttpWebRequest)
|
||||||
|
'request.Method = "GET"
|
||||||
|
'request.Accept = "application/json;odata=verbose"
|
||||||
|
'request.Headers("Authorization") = "Basic " & credentials
|
||||||
|
|
||||||
|
'Try
|
||||||
|
' ' Antwort von SharePoint erhalten
|
||||||
|
' Using response As HttpWebResponse = CType(request.GetResponse(), HttpWebResponse)
|
||||||
|
' Using reader As New StreamReader(response.GetResponseStream())
|
||||||
|
' Dim jsonResponse As String = reader.ReadToEnd()
|
||||||
|
' Return jsonResponse
|
||||||
|
' End Using
|
||||||
|
' End Using
|
||||||
|
'Catch ex As WebException
|
||||||
|
' ' Fehlerbehandlung
|
||||||
|
' Return "Fehler: " & ex.Message
|
||||||
|
'End Try
|
||||||
|
' 1. Zugriffstoken abrufen
|
||||||
|
|
||||||
|
|
||||||
|
'-------------------------------------
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
' Dim authority As String = $"https://login.microsoftonline.com/{tenantId}"
|
||||||
|
' Dim scopes As String() = {"https://graph.microsoft.com/.default"}
|
||||||
|
|
||||||
|
' ' Authentifizierung mit dem vertraulichen Client
|
||||||
|
' Dim app As IConfidentialClientApplication = ConfidentialClientApplicationBuilder.Create(clientId).
|
||||||
|
' WithClientSecret(clientSecret).
|
||||||
|
' WithAuthority(New Uri(authority)).
|
||||||
|
' Build()
|
||||||
|
|
||||||
|
' ' Token abrufen
|
||||||
|
' Dim authResult = Await app.AcquireTokenForClient(scopes).ExecuteAsync()
|
||||||
|
|
||||||
|
'' 2. Zugriff auf SharePoint
|
||||||
|
'Dim requestUrl As String = $"{siteUrl}/_api/web/lists/getbytitle('{listName}')/items"
|
||||||
|
' Using client As New HttpClient()
|
||||||
|
' client.DefaultRequestHeaders.Authorization = New AuthenticationHeaderValue("Bearer", authResult.AccessToken)
|
||||||
|
' client.DefaultRequestHeaders.Accept.Add(New MediaTypeWithQualityHeaderValue("application/json"))
|
||||||
|
|
||||||
|
' ' GET-Anfrage an SharePoint senden
|
||||||
|
' Dim response As HttpResponseMessage = Await client.GetAsync(requestUrl)
|
||||||
|
|
||||||
|
' ' Antwort prüfen und zurückgeben
|
||||||
|
' If response.IsSuccessStatusCode Then
|
||||||
|
' Dim jsonResponse As String = Await response.Content.ReadAsStringAsync()
|
||||||
|
' Return jsonResponse
|
||||||
|
' Else
|
||||||
|
' Return $"Fehler: {response.StatusCode} - {response.ReasonPhrase}"
|
||||||
|
' End If
|
||||||
|
' End Using
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Private Sub Button7_Click_1(sender As Object, e As EventArgs) Handles Button7.Click
|
||||||
|
|
||||||
|
|
||||||
|
Dim f As New frmSendungsdetailsNEU
|
||||||
|
|
||||||
|
Dim NEW_SND As New VERAG_PROG_ALLGEMEIN.cSendungen(AvisoId, f.SENDUNG_LIST.Count + 1, filiale_tmp, Nothing, 0, 0) 'Neue Sendung erstellen
|
||||||
|
NEW_SND.SAVE(False) 'Insert neue Sendung
|
||||||
|
f.SENDUNG_LIST.Add(NEW_SND)
|
||||||
|
|
||||||
|
f.UNBOUND = True
|
||||||
|
f.Show()
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub TVEditorNewToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TVEditorNewToolStripMenuItem.Click
|
Private Sub TVEditorNewToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TVEditorNewToolStripMenuItem.Click
|
||||||
@@ -4891,6 +5118,24 @@ Public Class AvisoStatusFunctions
|
|||||||
Next
|
Next
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
|
Public Function printQR_CODE(aviso As VERAG_PROG_ALLGEMEIN.cAviso) As Boolean
|
||||||
|
If aviso Is Nothing Then Return False
|
||||||
|
|
||||||
|
Select Case aviso.Grenzstelle
|
||||||
|
Case "NEU", "DTB", "NKN"
|
||||||
|
Dim rpt As New rptQRSendung_VerwahrungApp(aviso, Nothing)
|
||||||
|
Dim printer = VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_BON
|
||||||
|
If printer = "" Then printer = SDL.cProgramFunctions.getDruckernameBySearch("BON", True)
|
||||||
|
If printer = "" Then printer = SDL.cProgramFunctions.getDruckernameBySearch("INFO", True)
|
||||||
|
|
||||||
|
'If printer = "" Then
|
||||||
|
SDL.cProgramFunctions.printRpt(rpt, printer, True)
|
||||||
|
Return True
|
||||||
|
' End If
|
||||||
|
End Select
|
||||||
|
|
||||||
|
Return False
|
||||||
|
End Function
|
||||||
Public Function setAnkunft(AvisoID) As Boolean
|
Public Function setAnkunft(AvisoID) As Boolean
|
||||||
|
|
||||||
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
|
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
|
||||||
@@ -4961,7 +5206,7 @@ Public Class AvisoStatusFunctions
|
|||||||
'Fahrer Handy-Nr.
|
'Fahrer Handy-Nr.
|
||||||
Dim frmAnkunftSetzen As New frmAnkunftSetzen(Aviso)
|
Dim frmAnkunftSetzen As New frmAnkunftSetzen(Aviso)
|
||||||
If frmAnkunftSetzen.ShowDialog() = DialogResult.Cancel Then
|
If frmAnkunftSetzen.ShowDialog() = DialogResult.Cancel Then
|
||||||
Return -1 'Abbrechen
|
Return False 'Abbrechen
|
||||||
End If
|
End If
|
||||||
'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" Then
|
'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" Then
|
||||||
' If Aviso.Grenzstelle.Replace("???", "") <> "" Then
|
' If Aviso.Grenzstelle.Replace("???", "") <> "" Then
|
||||||
@@ -4996,6 +5241,8 @@ Public Class AvisoStatusFunctions
|
|||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
'Verwahrungs-Ticket Drucken, wenn parameter
|
||||||
|
printQR_CODE(Aviso)
|
||||||
'Ticket Drucken, wenn parameter
|
'Ticket Drucken, wenn parameter
|
||||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("TICKET_ANKUNFT") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("TICKET_ANKUNFT", "AVISO") Then
|
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("TICKET_ANKUNFT") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("TICKET_ANKUNFT", "AVISO") Then
|
||||||
Dim rpt As New rptQRAviso(Aviso)
|
Dim rpt As New rptQRAviso(Aviso)
|
||||||
|
|||||||
1058
Aviso/frmSendungsdetailsNEU.Designer.vb
generated
1058
Aviso/frmSendungsdetailsNEU.Designer.vb
generated
File diff suppressed because it is too large
Load Diff
@@ -118,103 +118,6 @@
|
|||||||
<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="Button3.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
|
||||||
<value>
|
|
||||||
iVBORw0KGgoAAAANSUhEUgAAADIAAAAyCAYAAAAeP4ixAAAABGdBTUEAALGPC/xhBQAACQpJREFUaEPl
|
|
||||||
mXlMlOkdx612m02brFe7bVNbNY2yXtHEVK1p0672Dw/wRAVFxFbARdAC4qICwkaqgqLoAoIgLvWEVRY8
|
|
||||||
i+B6ACqnLCjHyDFcAzMc43AzM3z7e553GJhlAHWA2WS/ySeQ4Z3n9/2+z/tcL6N+9DIxmfMLMzOLDUPI
|
|
||||||
p5qmR1ZhYXGtMlkjhoro6CRQs9OF1kdQFKQNQ6jY2EcsyGKh9RHU2wbp6uqCSt2FTqUa7Z0qtHYo0dym
|
|
||||||
hKK1E/KWDjQ0dfDrjBYkOPj6oEHeJkSdop1fGxPzwDhBTp++OmCQtw0hlQvNXL2aYJwgAQEX+w3yLiFq
|
|
||||||
Glv5dy5dumOcIH5+kXqDvGuI6gYhSFTUTeME8fUN6xPkfUJUypr5d8+fjzVOEB+fYJ0g7xuivFbBv3/u
|
|
||||||
XIxxgnh6BmqDGBKiTCLnbZw9e8U4QfbvP8GDGBqipLKeB/nyy4vGCeLmdpQHUVMQQ0IUl8t4kMDAC8YJ
|
|
||||||
4ux8WAhCvWFICFFpLQ8SEBAx8kGWLVsW7ujoqWYGVGq1QSEKiyU8iL9/KJYuXZozYcKEX2nKDJ/GjRv3
|
|
||||||
k+XLl8c4ODjA0dGDG1Cq1AaFyC+q4u0cPRqE27dvY8WKFZg8efLvNCUN18SJEz9ctWqV38qVK9sIdGNp
|
|
||||||
uRkSSQ127HDjBtj4MCTEy4IK3s7hw6cREREBV1c3ba1eJE2bNu3PGmtvJ/rCX01NTcHw9z+J3FwRyspq
|
|
||||||
dBCLxbCx+Tc30EFBDAmR+1LM2/H2DoCTk1OfWqWlEnz11WWsX2/OPVGPRWus9q/Fixebs4sLCkpRXi7t
|
|
||||||
lxs3bsDKyokbYAPdkBA5uaW8HU9Pf7BHViqV663ZjYODIwuj0FjWLzMzM7q4FpWVsgHx8vLCWPMbGLPh
|
|
||||||
AUycUvGpVybMj+dgR/BL7I4owL6oIhy8LOIcuV7CYb8fuCSCS2Qhdp3Lh/XpPJj+JxuL3NPw8T8f46fm
|
|
||||||
CbxH5PJmFBZWoKioEsXF1bxXKiqkOvXXrFmDKVOmOGts64p6Y6e9/U5UV9cNiFTaCGdnZ5TJlUPOv5wO
|
|
||||||
oLNTiYyMwgF59CgTNH67yPZowX0vrV69urOwsBQ1NQ0D0tTUir179+JpteqdSSXui5X45rUSVws7EfVK
|
|
||||||
F/sT8dQTRXjx4rWWtIx8BD2JRXhCgs7n5JetO58I7nuJdVdtbeOgKJVKWO89gevF6kG5WqTCsUwlPk99
|
|
||||||
O6yv1yEuLo4mmBItScmZsPjfKRwKi9T5fMuWLZg0aZKrxn6P1q5dC5lMPihSqRSfhaUgKE+tl8Dv1NiW
|
|
||||||
pMLqu++Hv78/8vPFg3LmzFksWrQoUWNf0IwZM36/bt061Ne/6ZfS0mqIRBVITk7GrsQ2eKV16bA7WY1P
|
|
||||||
rhgOm0jKyoRaA5GamgGanKSaCIIoiNmhQz5obGzqQ01NPQ/RzYULF/DZky4tdo+68OG5LnwQNjTYup9E
|
|
||||||
XZ1cp6Y+SkqqaG1Zz8bJz4UUpJkzZ+4KCQnFmzfNOlRWsrm7VktFRS18fX1hdx+cP10CRgUMLQs8HqC1
|
|
||||||
tV2nbn+Ym5uzIBOEFCQKctDFxZ2M10KhaKaZqYX3RHW1TAf2iG33iIDdLWCCHxX2GXrGfF6Hjo6OPrW7
|
|
||||||
kUhktNYokJhIa5cQ5NdCChIF8XRz86AZI4WTlVVEgZqoixtpcDdoaWtrx/pj6RjvRUVpqzVcFBYW6tRl
|
|
||||||
NDYqqBdqcPNmqtbnhg0bWJDfCilIs2bNcnZ13a+9oDc5OSLqIfaoKaBSqTDDS45RtDsZThJozWB3vbm5
|
|
||||||
mY+Hu3ef6/W2ceNGFuQ3QgoSBbHavdsV8fGpA3Lr1jNajER0h+rR1NyKey/kOH5XAatwBeZ61+Nj10Z8
|
|
||||||
sLtTr7keujDWuQnTDtRj2ckGeMe34XJKA8plrfwpKCoqx4MH2Xrr94YF2bRpEwvySyEFafbs2X+xtbXH
|
|
||||||
vXtp70k6UlJyeciCAjG/i2y8SSR1tIjW85/s+RaLJXzqzM0txvPnr/hzrr+9wYmJSWA90k72PxJSkKhH
|
|
||||||
PrKwsEBSUtYPisTEDL2fMyIjo9l+q4Ds/0xIoZGlpSWePPlOLw8fZmLhwoUjjoeHt14/jOPHv8SCBQtu
|
|
||||||
a+z3aPPmzXj27JVe7t17hCVLlow4Bw966fXDcHbei6lTp3pr7PeIbcKyskR6iY6OZdsBLXfu3KHuTRoW
|
|
||||||
etfx8vLW64fB/JLtFYL7XqI/vEhMTMHLl2V9CAuLoLO6pZaMjIxhIyQkRFvH2/sLvX4YVlZWLMgiwX0v
|
|
||||||
zZkzx9zX9yidyqr6EBX1XwQFBSMw8AyuXIlBXl4ezVA5yM5+QXcnG5mZ2WQiC+npWUhLyyQyaFZKp0cg
|
|
||||||
HU+fptGMxnhOG85n9Hw/w+PHT+lwlEpjLwXffptC0y0jmWazPNphy+ik6MLrnT8fyU+H3/dTVFTBgqjJ
|
|
||||||
9h8E99/T1q1btcdJfVy7lsjP10wdHZ200nfwfVFLSzstXm380KVQtPB9Gjuysk1nfb2CdghvNEcAOT/T
|
|
||||||
sAOaRMK2QHWoqqrjbbPzeG1tA297376jfWr3Jjg4FPPmzbtElvueEJkopTgnJ5/ugkwv4eE3eSF2HB3q
|
|
||||||
EGJxLT+fM5WVVSI29r5eDwxra2v2WP1DcN2Ptm3b1hUeHsUXrVevxFoePsymwlJeaLhCsFc/rC0me3t3
|
|
||||||
nfqM+PgE2NrawcTE5CRZ7VnR+9Po0aMX0GofRoetPAqmtrGxQWjoN7yAmr0iHaYQJSUSGgPVvM7Fizdg
|
|
||||||
Y7OdsGFbkdL58+d/PX78eFuy9zdiHDf6rpo+ffbYhITnvMBwh3j9uoq/GGfauNGuksqPJcZwI4YqNDTu
|
|
||||||
Nvs/CNNwhxCJKvnfmezs9rGx0HPeMFRhYXG8YaVSxceHMEY6eKiWljZtMHYgE8K1aMMxGhqEkOxg1hO0
|
|
||||||
581Md1ghcD0PzFRRUYW5cxeGaGwYJjMzi8Vsa20sWVjsZL1i+KNlamrxd9Yj+jh7NpYWrq9x5sw1nDp1
|
|
||||||
GSdORMHPLxJHjoTj8OFQ+PgE0TbjNO2ZTsLd/Tjc3I7BxcUXe/Z8AUfHQ3BwOMhnJ/Zmf/t2F5pW99DW
|
|
||||||
Yxc3382mTfadZOOPghvDxbbK443Ij0WjRv0fxAMdlKK/XzcAAAAASUVORK5CYII=
|
|
||||||
</value>
|
|
||||||
</data>
|
|
||||||
<data name="Button8.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
|
||||||
<value>
|
|
||||||
iVBORw0KGgoAAAANSUhEUgAAAB4AAAAeCAYAAAA7MK6iAAAABGdBTUEAALGPC/xhBQAABoxJREFUSEut
|
|
||||||
l3lM1EcUx0EREAU5mxi1VmPUmvYvQyKi4t0ijabVABZtAItSTWvBWLEgVlJERU0abVCr9QBBMESrHAKK
|
|
||||||
lUus3CLHLrIILJew7MHuciy/b9+MuwRxUUh8yTfz25n3e5+Z+c3x1mQ0s7S0tNq/f/+hn4ODQ/cGBYWy
|
|
||||||
8l1iPsH79oUvcXFZqw8xqgHQP5mYWJAsh8nczt5+rkKnE+qkUoibm8FKphd61TO1tECiV11jIypFInQr
|
|
||||||
FEJAQEAExRjVOHiHvX2YfOlSdeeSJcoOZ2dl2+LFypbPPlc22NuryhwchKKZM5FtZ4cUW1skT5uGRHqO
|
|
||||||
sbHBKWtrrmNTp+LIlCkIIwVZWuL4rl0oefZM6+vrG6rnvGUc/IOd3UnB3R29GzZAvX495GvWoGvjRmjz
|
|
||||||
8qB98gTi1avRdfMm1OVlEIeEIGvWLEiTktCWno6sVasQR8DLBLw4aRJOUcwoPz9kPXoEnU4HT0/Pn/Ss
|
|
||||||
N4yDA+3sooW1a6Fetw4qgshWuqFz+3aoUlJQO3MGZHfuQFNdjRTy7y4oQE1EBARBwEVzc8TSaK8Q+C8C
|
|
||||||
xxD4OPmcCAjAo8ePMTg4iL6+PmHLli0het6QcfD3trbRupUroWBQNzd0LFuOdm9vDHR1QVNeDsnu3dA2
|
|
||||||
NOAB+b84eRIt1CEG7nn5EneXL8dlKytcsLBAjJkZjpHPyZ07kV9UxH0GBgYgl8s13t7eB/VMbhzsN21a
|
|
||||||
tGbZMnSuWIF2KluWLkXL1q3QVFSgatEiFNPUaqXNyKZ6JdWVBAbyoLE0yms02r8JfJ5G/+fEiYiimKfo
|
|
||||||
GxeRX35+PtLS0pCTk4Pa2lp4eXn9qOe+Bn9nYxOtcHVFK/VeSsGbXFzQ6OGB7thYlH88C6ULF0Lx8CEG
|
|
||||||
e3tRvHkzUubOwasHD5BE0xxPukpgNu3nCXyCgaljz8VixMXFISoqCuHh4QgKCsLZs2cFV1fX3UPgrdbW
|
|
||||||
xyULF6By/nxUzJuHUtJ/s2cj18kJ96ZPxz9UJtDorlDwGHMLnCFQ1IQJiKSpPURlKK3sIIpFw8EO0h97
|
|
||||||
9uBlayuePn2Kh9ThB9RJptTUVNaZmiHwBBOTT8xNTL4coS9srK2/vZ+VJdykFcyUZFBi4lCZeP06Lvnu
|
|
||||||
wI2EBCTS7xs3bqCstBQdHR1oampCfX09l0QiQV1dHSoqKpqHwKOZg4PDnEH6mGq1Gj09PW+Lpr7jfjZU
|
|
||||||
7R1QKRRD9Qp6lslkXF20QA3q7OxEVVWVlMV+H3gucQWlUsmDvSWtFi2p6eh8XgW5rNu4zwjV1NS8H+zo
|
|
||||||
6MjBbBQqlcqoOouKUbf/VyjpmxprH6kPBlbWvcBjiqNqazfaPlLjAmtpSjUajXHRZyhxnAFNlwwaWgtG
|
|
||||||
fYaJ9vPYwb20iBjcmNQVz1C04FPI/32Ed/kZNC4wnbc86Ej103EoPR7Nz2TRZi/oqOyl4MZ8DRoXuL+/
|
|
||||||
nx32b4tWsvhrT9CWQ3dGJur9AviNZNRXL5FINHYwO+gZfLhYXdPBMLyKu04jp9802ldX49AUdgR9tK8H
|
|
||||||
8PqC6CcYaxvQvzcuMBsFCzJcVI26Ld58tEw6qlNX16Lj/CWUOXwEkdt6SH/7HY1790Gy3R/tMRf4e+MC
|
|
||||||
s2/I4Aax35JtvlDlF6CntAzytAwoC59AKxJDWy9BP51Yytx8SMMj0BoVje47KehOz8QAbcsxgZ2cnDiY
|
|
||||||
jI+Qi8AM2EBgHW2fQZrKN9pHiLVramrRdS0eA2xNiMXjB2uKStDXTAnexm/4qA31YxHz56tfJHr/JWEA
|
|
||||||
kxPkSclQF5dAGvQLVDl5rIobOxRWU+bSQlkmsxDKycopa2HGbqOMjAz+bDC6qdpYbHrkDKNmAPc1NqHt
|
|
||||||
SCRkV2IhS7j5OoLeWPDpdGcz2N27d+Hs7Izs7GyEhoaigdIlSnORnJyM4uJixMTEsOuxlcWmVznDqA2f
|
|
||||||
asW9TPTSNLPn4ZZHmWgsZSrx8fEIDg7G4cOH4b7BnScBlOQhNzcXWymN8tjgwcvKysp2Cm1Kr76GGLPh
|
|
||||||
Uz2aHT16FIWFhXxkBw4cgL+/PzZt2oTbt28jkFIg1iEfHx94UCrFZoVmaEzbaQ5tH5YIGBXdWsKtW7cE
|
|
||||||
unWE9PR0gRI74cyZM0J1dbUQGRkpUHYpnD59WsjMzBQKCgqEc+fOCXRkvn9xkU0hfWVqarqN5DNS1OZj
|
|
||||||
YWHBS3Nzcx8zMzMf+r/F26ysrHg5efJk3qav20a+7iQLDqZcaTSZ6jXxA4rHBGDyP2IuNJzUb+7ZAAAA
|
|
||||||
AElFTkSuQmCC
|
|
||||||
</value>
|
|
||||||
</data>
|
|
||||||
<data name="Button14.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
|
||||||
<value>
|
|
||||||
iVBORw0KGgoAAAANSUhEUgAAABIAAAASCAYAAABWzo5XAAAABGdBTUEAALGPC/xhBQAAAytJREFUOE+d
|
|
||||||
kmtIU2EYx3df01qiZYX0JfuYBEFF2U2JEgqESCgScYpQZlYalV20mpUVRuk03+k2L7Plpt0sO5ouK7tf
|
|
||||||
zcsSnYlCecl5vLy7uXOezuYpEhOqHzzwwvv8f/CHh/MTHo/H9/PznxUt25+kLiQGr98wkunpWTG+vn4+
|
|
||||||
fD6fy679EZIkJx5CoVAUvDYsVqU1jpdXN43nEv2WHMJC3qlpHG9u73VGRspC/f3ne09sT8Uj4nJ5/OUr
|
|
||||||
N8Yo9C3DOY8HB98NA27HgHtsgM1WwPc7qd6OfiupUun2sbkpeERSqa/05Nky52F9f9+tLsCPBwC7ZZ9G
|
|
||||||
AX8YAfzMAriszTXwtOF997JlK9ew2Ul4ROvWb086eqnKcbEBsLoZsFv2sBdwPSOs6wdc2QO4qNk1ml5q
|
|
||||||
/pKRka1ns5PwiKJk578HJzc1h2TaamN1zobLL6iurNd0i/wRZUwhXLXKRtqS+ZweOWjAnUplEcFmJ+ER
|
|
||||||
7Yw8M7TqwMfWoNQxtC3fUXCkiiqT19Pa1Ic0SqqkmHHd3qF23N2lHG3IzdVMLwoJjZKFx+QNbM1xoORK
|
|
||||||
F1K8pZHeDOhmF6DCFkByI41kWkeBvNT8LSUlY3qRROLts+9o4VCczqa5+opGNb2AmuyATE5AL4YBlZgA
|
|
||||||
pVVTqvonr1tFIrEXm52ER8QcAGfJkuCQs4r7HZpGu/rN0Hj+IEWjURpQu51SVXW71ApFOWRmFn/dvGlL
|
|
||||||
uFjAEXvSv8GKOByBQCRZsWJzXOL+C905xcSn9j6LvmeALLtn/NhXcfNBa3LyxdaiwsrOiuxjddd2Lyzx
|
|
||||||
9ebOnUhO8Ev0kwULAleHhcl00dGHiLi4I0RERAIhEAi9REKh+FxCrMGkDQer6TRk7w0smT+bG8DGpoqm
|
|
||||||
Q8DjiOPXzdR2KIPAZToJuOkEXNmzWDOPlf21yM1MMWdOYqikpA0tZWTHYYyRZcUvKmZqzvknkRufGdyA
|
|
||||||
hA1emrY8t+wEU/MM5MUvNNjGyBnsyt/jI+EGJIZIis3ump/ToOelBiinXcp+/xtMzbmJG7wMhqvHQH7q
|
|
||||||
GthsjMjd738Gj5ASh80mtVrtUpqmOT8ASDXvdskQmQUAAAAASUVORK5CYII=
|
|
||||||
</value>
|
|
||||||
</data>
|
|
||||||
<data name="btnDirektAnfuegen.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
<data name="btnDirektAnfuegen.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
<value>
|
<value>
|
||||||
iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABGdBTUEAALGPC/xhBQAAAIdJREFUOE/V
|
iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABGdBTUEAALGPC/xhBQAAAIdJREFUOE/V
|
||||||
@@ -1628,9 +1531,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">
|
<data name="Button6.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
<value>
|
<value>
|
||||||
iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABGdBTUEAALGPC/xhBQAAAIdJREFUOE/V
|
iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABGdBTUEAALGPC/xhBQAAAIdJREFUOE/V
|
||||||
@@ -1657,6 +1557,103 @@
|
|||||||
<metadata name="clmnUIDL.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
<metadata name="clmnUIDL.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||||
<value>True</value>
|
<value>True</value>
|
||||||
</metadata>
|
</metadata>
|
||||||
|
<data name="Button3.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAADIAAAAyCAYAAAAeP4ixAAAABGdBTUEAALGPC/xhBQAACQpJREFUaEPl
|
||||||
|
mXlMlOkdx612m02brFe7bVNbNY2yXtHEVK1p0672Dw/wRAVFxFbARdAC4qICwkaqgqLoAoIgLvWEVRY8
|
||||||
|
i+B6ACqnLCjHyDFcAzMc43AzM3z7e553GJhlAHWA2WS/ySeQ4Z3n9/2+z/tcL6N+9DIxmfMLMzOLDUPI
|
||||||
|
p5qmR1ZhYXGtMlkjhoro6CRQs9OF1kdQFKQNQ6jY2EcsyGKh9RHU2wbp6uqCSt2FTqUa7Z0qtHYo0dym
|
||||||
|
hKK1E/KWDjQ0dfDrjBYkOPj6oEHeJkSdop1fGxPzwDhBTp++OmCQtw0hlQvNXL2aYJwgAQEX+w3yLiFq
|
||||||
|
Glv5dy5dumOcIH5+kXqDvGuI6gYhSFTUTeME8fUN6xPkfUJUypr5d8+fjzVOEB+fYJ0g7xuivFbBv3/u
|
||||||
|
XIxxgnh6BmqDGBKiTCLnbZw9e8U4QfbvP8GDGBqipLKeB/nyy4vGCeLmdpQHUVMQQ0IUl8t4kMDAC8YJ
|
||||||
|
4ux8WAhCvWFICFFpLQ8SEBAx8kGWLVsW7ujoqWYGVGq1QSEKiyU8iL9/KJYuXZozYcKEX2nKDJ/GjRv3
|
||||||
|
k+XLl8c4ODjA0dGDG1Cq1AaFyC+q4u0cPRqE27dvY8WKFZg8efLvNCUN18SJEz9ctWqV38qVK9sIdGNp
|
||||||
|
uRkSSQ127HDjBtj4MCTEy4IK3s7hw6cREREBV1c3ba1eJE2bNu3PGmtvJ/rCX01NTcHw9z+J3FwRyspq
|
||||||
|
dBCLxbCx+Tc30EFBDAmR+1LM2/H2DoCTk1OfWqWlEnz11WWsX2/OPVGPRWus9q/Fixebs4sLCkpRXi7t
|
||||||
|
lxs3bsDKyokbYAPdkBA5uaW8HU9Pf7BHViqV663ZjYODIwuj0FjWLzMzM7q4FpWVsgHx8vLCWPMbGLPh
|
||||||
|
AUycUvGpVybMj+dgR/BL7I4owL6oIhy8LOIcuV7CYb8fuCSCS2Qhdp3Lh/XpPJj+JxuL3NPw8T8f46fm
|
||||||
|
CbxH5PJmFBZWoKioEsXF1bxXKiqkOvXXrFmDKVOmOGts64p6Y6e9/U5UV9cNiFTaCGdnZ5TJlUPOv5wO
|
||||||
|
oLNTiYyMwgF59CgTNH67yPZowX0vrV69urOwsBQ1NQ0D0tTUir179+JpteqdSSXui5X45rUSVws7EfVK
|
||||||
|
F/sT8dQTRXjx4rWWtIx8BD2JRXhCgs7n5JetO58I7nuJdVdtbeOgKJVKWO89gevF6kG5WqTCsUwlPk99
|
||||||
|
O6yv1yEuLo4mmBItScmZsPjfKRwKi9T5fMuWLZg0aZKrxn6P1q5dC5lMPihSqRSfhaUgKE+tl8Dv1NiW
|
||||||
|
pMLqu++Hv78/8vPFg3LmzFksWrQoUWNf0IwZM36/bt061Ne/6ZfS0mqIRBVITk7GrsQ2eKV16bA7WY1P
|
||||||
|
rhgOm0jKyoRaA5GamgGanKSaCIIoiNmhQz5obGzqQ01NPQ/RzYULF/DZky4tdo+68OG5LnwQNjTYup9E
|
||||||
|
XZ1cp6Y+SkqqaG1Zz8bJz4UUpJkzZ+4KCQnFmzfNOlRWsrm7VktFRS18fX1hdx+cP10CRgUMLQs8HqC1
|
||||||
|
tV2nbn+Ym5uzIBOEFCQKctDFxZ2M10KhaKaZqYX3RHW1TAf2iG33iIDdLWCCHxX2GXrGfF6Hjo6OPrW7
|
||||||
|
kUhktNYokJhIa5cQ5NdCChIF8XRz86AZI4WTlVVEgZqoixtpcDdoaWtrx/pj6RjvRUVpqzVcFBYW6tRl
|
||||||
|
NDYqqBdqcPNmqtbnhg0bWJDfCilIs2bNcnZ13a+9oDc5OSLqIfaoKaBSqTDDS45RtDsZThJozWB3vbm5
|
||||||
|
mY+Hu3ef6/W2ceNGFuQ3QgoSBbHavdsV8fGpA3Lr1jNajER0h+rR1NyKey/kOH5XAatwBeZ61+Nj10Z8
|
||||||
|
sLtTr7keujDWuQnTDtRj2ckGeMe34XJKA8plrfwpKCoqx4MH2Xrr94YF2bRpEwvySyEFafbs2X+xtbXH
|
||||||
|
vXtp70k6UlJyeciCAjG/i2y8SSR1tIjW85/s+RaLJXzqzM0txvPnr/hzrr+9wYmJSWA90k72PxJSkKhH
|
||||||
|
PrKwsEBSUtYPisTEDL2fMyIjo9l+q4Ds/0xIoZGlpSWePPlOLw8fZmLhwoUjjoeHt14/jOPHv8SCBQtu
|
||||||
|
a+z3aPPmzXj27JVe7t17hCVLlow4Bw966fXDcHbei6lTp3pr7PeIbcKyskR6iY6OZdsBLXfu3KHuTRoW
|
||||||
|
etfx8vLW64fB/JLtFYL7XqI/vEhMTMHLl2V9CAuLoLO6pZaMjIxhIyQkRFvH2/sLvX4YVlZWLMgiwX0v
|
||||||
|
zZkzx9zX9yidyqr6EBX1XwQFBSMw8AyuXIlBXl4ezVA5yM5+QXcnG5mZ2WQiC+npWUhLyyQyaFZKp0cg
|
||||||
|
HU+fptGMxnhOG85n9Hw/w+PHT+lwlEpjLwXffptC0y0jmWazPNphy+ik6MLrnT8fyU+H3/dTVFTBgqjJ
|
||||||
|
9h8E99/T1q1btcdJfVy7lsjP10wdHZ200nfwfVFLSzstXm380KVQtPB9Gjuysk1nfb2CdghvNEcAOT/T
|
||||||
|
sAOaRMK2QHWoqqrjbbPzeG1tA297376jfWr3Jjg4FPPmzbtElvueEJkopTgnJ5/ugkwv4eE3eSF2HB3q
|
||||||
|
EGJxLT+fM5WVVSI29r5eDwxra2v2WP1DcN2Ptm3b1hUeHsUXrVevxFoePsymwlJeaLhCsFc/rC0me3t3
|
||||||
|
nfqM+PgE2NrawcTE5CRZ7VnR+9Po0aMX0GofRoetPAqmtrGxQWjoN7yAmr0iHaYQJSUSGgPVvM7Fizdg
|
||||||
|
Y7OdsGFbkdL58+d/PX78eFuy9zdiHDf6rpo+ffbYhITnvMBwh3j9uoq/GGfauNGuksqPJcZwI4YqNDTu
|
||||||
|
Nvs/CNNwhxCJKvnfmezs9rGx0HPeMFRhYXG8YaVSxceHMEY6eKiWljZtMHYgE8K1aMMxGhqEkOxg1hO0
|
||||||
|
581Md1ghcD0PzFRRUYW5cxeGaGwYJjMzi8Vsa20sWVjsZL1i+KNlamrxd9Yj+jh7NpYWrq9x5sw1nDp1
|
||||||
|
GSdORMHPLxJHjoTj8OFQ+PgE0TbjNO2ZTsLd/Tjc3I7BxcUXe/Z8AUfHQ3BwOMhnJ/Zmf/t2F5pW99DW
|
||||||
|
Yxc3382mTfadZOOPghvDxbbK443Ij0WjRv0fxAMdlKK/XzcAAAAASUVORK5CYII=
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="Button8.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAAB4AAAAeCAYAAAA7MK6iAAAABGdBTUEAALGPC/xhBQAABoxJREFUSEut
|
||||||
|
l3lM1EcUx0EREAU5mxi1VmPUmvYvQyKi4t0ijabVABZtAItSTWvBWLEgVlJERU0abVCr9QBBMESrHAKK
|
||||||
|
lUus3CLHLrIILJew7MHuciy/b9+MuwRxUUh8yTfz25n3e5+Z+c3x1mQ0s7S0tNq/f/+hn4ODQ/cGBYWy
|
||||||
|
8l1iPsH79oUvcXFZqw8xqgHQP5mYWJAsh8nczt5+rkKnE+qkUoibm8FKphd61TO1tECiV11jIypFInQr
|
||||||
|
FEJAQEAExRjVOHiHvX2YfOlSdeeSJcoOZ2dl2+LFypbPPlc22NuryhwchKKZM5FtZ4cUW1skT5uGRHqO
|
||||||
|
sbHBKWtrrmNTp+LIlCkIIwVZWuL4rl0oefZM6+vrG6rnvGUc/IOd3UnB3R29GzZAvX495GvWoGvjRmjz
|
||||||
|
8qB98gTi1avRdfMm1OVlEIeEIGvWLEiTktCWno6sVasQR8DLBLw4aRJOUcwoPz9kPXoEnU4HT0/Pn/Ss
|
||||||
|
N4yDA+3sooW1a6Fetw4qgshWuqFz+3aoUlJQO3MGZHfuQFNdjRTy7y4oQE1EBARBwEVzc8TSaK8Q+C8C
|
||||||
|
xxD4OPmcCAjAo8ePMTg4iL6+PmHLli0het6QcfD3trbRupUroWBQNzd0LFuOdm9vDHR1QVNeDsnu3dA2
|
||||||
|
NOAB+b84eRIt1CEG7nn5EneXL8dlKytcsLBAjJkZjpHPyZ07kV9UxH0GBgYgl8s13t7eB/VMbhzsN21a
|
||||||
|
tGbZMnSuWIF2KluWLkXL1q3QVFSgatEiFNPUaqXNyKZ6JdWVBAbyoLE0yms02r8JfJ5G/+fEiYiimKfo
|
||||||
|
GxeRX35+PtLS0pCTk4Pa2lp4eXn9qOe+Bn9nYxOtcHVFK/VeSsGbXFzQ6OGB7thYlH88C6ULF0Lx8CEG
|
||||||
|
e3tRvHkzUubOwasHD5BE0xxPukpgNu3nCXyCgaljz8VixMXFISoqCuHh4QgKCsLZs2cFV1fX3UPgrdbW
|
||||||
|
xyULF6By/nxUzJuHUtJ/s2cj18kJ96ZPxz9UJtDorlDwGHMLnCFQ1IQJiKSpPURlKK3sIIpFw8EO0h97
|
||||||
|
9uBlayuePn2Kh9ThB9RJptTUVNaZmiHwBBOTT8xNTL4coS9srK2/vZ+VJdykFcyUZFBi4lCZeP06Lvnu
|
||||||
|
wI2EBCTS7xs3bqCstBQdHR1oampCfX09l0QiQV1dHSoqKpqHwKOZg4PDnEH6mGq1Gj09PW+Lpr7jfjZU
|
||||||
|
7R1QKRRD9Qp6lslkXF20QA3q7OxEVVWVlMV+H3gucQWlUsmDvSWtFi2p6eh8XgW5rNu4zwjV1NS8H+zo
|
||||||
|
6MjBbBQqlcqoOouKUbf/VyjpmxprH6kPBlbWvcBjiqNqazfaPlLjAmtpSjUajXHRZyhxnAFNlwwaWgtG
|
||||||
|
fYaJ9vPYwb20iBjcmNQVz1C04FPI/32Ed/kZNC4wnbc86Ej103EoPR7Nz2TRZi/oqOyl4MZ8DRoXuL+/
|
||||||
|
nx32b4tWsvhrT9CWQ3dGJur9AviNZNRXL5FINHYwO+gZfLhYXdPBMLyKu04jp9802ldX49AUdgR9tK8H
|
||||||
|
8PqC6CcYaxvQvzcuMBsFCzJcVI26Ld58tEw6qlNX16Lj/CWUOXwEkdt6SH/7HY1790Gy3R/tMRf4e+MC
|
||||||
|
s2/I4Aax35JtvlDlF6CntAzytAwoC59AKxJDWy9BP51Yytx8SMMj0BoVje47KehOz8QAbcsxgZ2cnDiY
|
||||||
|
jI+Qi8AM2EBgHW2fQZrKN9pHiLVramrRdS0eA2xNiMXjB2uKStDXTAnexm/4qA31YxHz56tfJHr/JWEA
|
||||||
|
kxPkSclQF5dAGvQLVDl5rIobOxRWU+bSQlkmsxDKycopa2HGbqOMjAz+bDC6qdpYbHrkDKNmAPc1NqHt
|
||||||
|
SCRkV2IhS7j5OoLeWPDpdGcz2N27d+Hs7Izs7GyEhoaigdIlSnORnJyM4uJixMTEsOuxlcWmVznDqA2f
|
||||||
|
asW9TPTSNLPn4ZZHmWgsZSrx8fEIDg7G4cOH4b7BnScBlOQhNzcXWymN8tjgwcvKysp2Cm1Kr76GGLPh
|
||||||
|
Uz2aHT16FIWFhXxkBw4cgL+/PzZt2oTbt28jkFIg1iEfHx94UCrFZoVmaEzbaQ5tH5YIGBXdWsKtW7cE
|
||||||
|
unWE9PR0gRI74cyZM0J1dbUQGRkpUHYpnD59WsjMzBQKCgqEc+fOCXRkvn9xkU0hfWVqarqN5DNS1OZj
|
||||||
|
YWHBS3Nzcx8zMzMf+r/F26ysrHg5efJk3qav20a+7iQLDqZcaTSZ6jXxA4rHBGDyP2IuNJzUb+7ZAAAA
|
||||||
|
AElFTkSuQmCC
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="Button14.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABIAAAASCAYAAABWzo5XAAAABGdBTUEAALGPC/xhBQAAAytJREFUOE+d
|
||||||
|
kmtIU2EYx3df01qiZYX0JfuYBEFF2U2JEgqESCgScYpQZlYalV20mpUVRuk03+k2L7Plpt0sO5ouK7tf
|
||||||
|
zcsSnYlCecl5vLy7uXOezuYpEhOqHzzwwvv8f/CHh/MTHo/H9/PznxUt25+kLiQGr98wkunpWTG+vn4+
|
||||||
|
fD6fy679EZIkJx5CoVAUvDYsVqU1jpdXN43nEv2WHMJC3qlpHG9u73VGRspC/f3ne09sT8Uj4nJ5/OUr
|
||||||
|
N8Yo9C3DOY8HB98NA27HgHtsgM1WwPc7qd6OfiupUun2sbkpeERSqa/05Nky52F9f9+tLsCPBwC7ZZ9G
|
||||||
|
AX8YAfzMAriszTXwtOF997JlK9ew2Ul4ROvWb086eqnKcbEBsLoZsFv2sBdwPSOs6wdc2QO4qNk1ml5q
|
||||||
|
/pKRka1ns5PwiKJk578HJzc1h2TaamN1zobLL6iurNd0i/wRZUwhXLXKRtqS+ZweOWjAnUplEcFmJ+ER
|
||||||
|
7Yw8M7TqwMfWoNQxtC3fUXCkiiqT19Pa1Ic0SqqkmHHd3qF23N2lHG3IzdVMLwoJjZKFx+QNbM1xoORK
|
||||||
|
F1K8pZHeDOhmF6DCFkByI41kWkeBvNT8LSUlY3qRROLts+9o4VCczqa5+opGNb2AmuyATE5AL4YBlZgA
|
||||||
|
pVVTqvonr1tFIrEXm52ER8QcAGfJkuCQs4r7HZpGu/rN0Hj+IEWjURpQu51SVXW71ApFOWRmFn/dvGlL
|
||||||
|
uFjAEXvSv8GKOByBQCRZsWJzXOL+C905xcSn9j6LvmeALLtn/NhXcfNBa3LyxdaiwsrOiuxjddd2Lyzx
|
||||||
|
9ebOnUhO8Ev0kwULAleHhcl00dGHiLi4I0RERAIhEAi9REKh+FxCrMGkDQer6TRk7w0smT+bG8DGpoqm
|
||||||
|
Q8DjiOPXzdR2KIPAZToJuOkEXNmzWDOPlf21yM1MMWdOYqikpA0tZWTHYYyRZcUvKmZqzvknkRufGdyA
|
||||||
|
hA1emrY8t+wEU/MM5MUvNNjGyBnsyt/jI+EGJIZIis3ump/ToOelBiinXcp+/xtMzbmJG7wMhqvHQH7q
|
||||||
|
GthsjMjd738Gj5ASh80mtVrtUpqmOT8ASDXvdskQmQUAAAAASUVORK5CYII=
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
<metadata name="clmnVK_id.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
<metadata name="clmnVK_id.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||||
<value>True</value>
|
<value>True</value>
|
||||||
</metadata>
|
</metadata>
|
||||||
@@ -2077,9 +2074,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>
|
|
||||||
<metadata name="ctxtWeitereFormulare.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
<metadata name="ctxtWeitereFormulare.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||||
<value>596, 17</value>
|
<value>596, 17</value>
|
||||||
</metadata>
|
</metadata>
|
||||||
|
|||||||
@@ -22,14 +22,15 @@ Public Class frmSendungsdetailsNEU
|
|||||||
Dim PROG As New cProgramFunctions
|
Dim PROG As New cProgramFunctions
|
||||||
Dim AVISO As New cAviso
|
Dim AVISO As New cAviso
|
||||||
' Dim GEAENDERT As Boolean = False
|
' Dim GEAENDERT As Boolean = False
|
||||||
Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
|
Public SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
|
||||||
|
|
||||||
Dim CURRENT_INDEX As Integer = -1
|
Public CURRENT_INDEX As Integer = -1
|
||||||
Dim closeWithoutSave = False
|
Dim closeWithoutSave = False
|
||||||
' Public WithEvents bsSendungen As New cEasyBinding("AVISO") 'fürs Binding
|
' Public WithEvents bsSendungen As New cEasyBinding("AVISO") 'fürs Binding
|
||||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||||
Dim FormularArt = ""
|
Dim FormularArt = ""
|
||||||
Dim loaded = False
|
Dim loaded = False
|
||||||
|
Public UNBOUND = False
|
||||||
Dim kdnrEORI As Integer = -1
|
Dim kdnrEORI As Integer = -1
|
||||||
|
|
||||||
Dim usrcntl_NCTS As usrCntlSND_NCTSGestellungsadresse
|
Dim usrcntl_NCTS As usrCntlSND_NCTSGestellungsadresse
|
||||||
@@ -129,9 +130,12 @@ Public Class frmSendungsdetailsNEU
|
|||||||
txtColli.Focus() 'DAMIT evtl. LEAVE Events ausgelöst werden
|
txtColli.Focus() 'DAMIT evtl. LEAVE Events ausgelöst werden
|
||||||
txtGewicht.Focus() 'DAMIT evtl. LEAVE Events ausgelöst werden
|
txtGewicht.Focus() 'DAMIT evtl. LEAVE Events ausgelöst werden
|
||||||
|
|
||||||
If AVISO.Abgeschlossen Then
|
|
||||||
'MsgBox("Keine Änderung möglich - Akt bereits abgeschlossen.")
|
If AVISO IsNot Nothing Then
|
||||||
Return True
|
If AVISO.Abgeschlossen Then
|
||||||
|
'MsgBox("Keine Änderung möglich - Akt bereits abgeschlossen.")
|
||||||
|
Return True
|
||||||
|
End If
|
||||||
End If
|
End If
|
||||||
|
|
||||||
loadDataInLIST()
|
loadDataInLIST()
|
||||||
@@ -384,15 +388,17 @@ Public Class frmSendungsdetailsNEU
|
|||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Sub initGrenzstelle()
|
Sub initGrenzstelle()
|
||||||
|
If AVISO IsNot Nothing Then
|
||||||
|
|
||||||
lblGrenze.Text = ""
|
lblGrenze.Text = ""
|
||||||
If AVISO.Grenzstelle.Replace("???", "").Replace("WO_FREMD", "") = "" Then
|
If AVISO.Grenzstelle.Replace("???", "").Replace("WO_FREMD", "") = "" Then
|
||||||
'lblGrenze.Text = SQL.getValueTxtBySql("Select basncd_dstnr +' - ' + [basncd_name] FROM basncd WHERE basncd_dstnr='" & If(AVISO.Zollstelle, "") & "' ", "ATLAS")
|
'lblGrenze.Text = SQL.getValueTxtBySql("Select basncd_dstnr +' - ' + [basncd_name] FROM basncd WHERE basncd_dstnr='" & If(AVISO.Zollstelle, "") & "' ", "ATLAS")
|
||||||
lblGrenze.Text = SQL.getValueTxtBySql("SELECT Code +' - ' + [Description] FROM tbl_DY_ZollDE_C0141_Zollstellen WHERE Code='" & If(AVISO.Zollstelle, "") & "' AND ((StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()))", "FMZOLL")
|
lblGrenze.Text = SQL.getValueTxtBySql("SELECT Code +' - ' + [Description] FROM tbl_DY_ZollDE_C0141_Zollstellen WHERE Code='" & If(AVISO.Zollstelle, "") & "' AND ((StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()))", "FMZOLL")
|
||||||
Else
|
Else
|
||||||
Dim GRZ As New VERAG_PROG_ALLGEMEIN.cGrenzstelle(AVISO.Grenzstelle)
|
Dim GRZ As New VERAG_PROG_ALLGEMEIN.cGrenzstelle(AVISO.Grenzstelle)
|
||||||
If GRZ IsNot Nothing AndAlso GRZ.hasEntry Then
|
If GRZ IsNot Nothing AndAlso GRZ.hasEntry Then
|
||||||
lblGrenze.Text = AVISO.Grenzstelle & vbNewLine & If(GRZ.grz_ZollamtDST, "") & " " & If(GRZ.grz_ZollamtBezeichnung, "")
|
lblGrenze.Text = AVISO.Grenzstelle & vbNewLine & If(GRZ.grz_ZollamtDST, "") & " " & If(GRZ.grz_ZollamtBezeichnung, "")
|
||||||
|
End If
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
End Sub
|
End Sub
|
||||||
@@ -400,6 +406,12 @@ 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
|
||||||
VERAG_PROG_ALLGEMEIN.cAllgemein._TRANSLATE(Me)
|
VERAG_PROG_ALLGEMEIN.cAllgemein._TRANSLATE(Me)
|
||||||
Button23.Visible = True
|
Button23.Visible = True
|
||||||
|
btnWWberechnen.Visible = False
|
||||||
|
|
||||||
|
If UNBOUND Then
|
||||||
|
FlowLayoutPanel.Visible = False
|
||||||
|
End If
|
||||||
|
|
||||||
Try
|
Try
|
||||||
|
|
||||||
Panel5.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor
|
Panel5.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor
|
||||||
@@ -415,8 +427,10 @@ Public Class frmSendungsdetailsNEU
|
|||||||
|
|
||||||
initVorpapiere()
|
initVorpapiere()
|
||||||
|
|
||||||
If AVISO.Abgeschlossen Then
|
If AVISO IsNot Nothing Then
|
||||||
Label8.Visible = True
|
If AVISO.Abgeschlossen Then
|
||||||
|
Label8.Visible = True
|
||||||
|
End If
|
||||||
End If
|
End If
|
||||||
lblZollsysErr.Text = ""
|
lblZollsysErr.Text = ""
|
||||||
LinkLabel1.TabStop = False
|
LinkLabel1.TabStop = False
|
||||||
@@ -526,21 +540,25 @@ Public Class frmSendungsdetailsNEU
|
|||||||
it.Tag = r("grz_Grenzstelle").ToString
|
it.Tag = r("grz_Grenzstelle").ToString
|
||||||
ContextMenuStrip3.Items.Add(it)
|
ContextMenuStrip3.Items.Add(it)
|
||||||
AddHandler it.Click, Sub()
|
AddHandler it.Click, Sub()
|
||||||
If it.Tag.ToString = "???" Then
|
If AVISO IsNot Nothing Then
|
||||||
SAVE_ME()
|
|
||||||
AVISO.Grenzstelle = "???"
|
If it.Tag.ToString = "???" Then
|
||||||
AvisoStatusFunctions.ummeldenAVISO(AVISO, it.Tag.ToString)
|
SAVE_ME()
|
||||||
cGlobal.Aktive_ID = AvisoId
|
AVISO.Grenzstelle = "???"
|
||||||
Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
|
AvisoStatusFunctions.ummeldenAVISO(AVISO, it.Tag.ToString)
|
||||||
Dim f As New frmEintragAviso
|
cGlobal.Aktive_ID = AvisoId
|
||||||
f.ShowDialog(frmGrayOut)
|
Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
|
||||||
frmGrayOut.Close()
|
Dim f As New frmEintragAviso
|
||||||
AVISO = AvisoDAL.LesenAviso(AvisoId, "")
|
f.ShowDialog(frmGrayOut)
|
||||||
Else
|
frmGrayOut.Close()
|
||||||
SAVE_ME()
|
AVISO = AvisoDAL.LesenAviso(AvisoId, "")
|
||||||
AvisoStatusFunctions.ummeldenAVISO(AVISO, it.Tag.ToString)
|
Else
|
||||||
|
SAVE_ME()
|
||||||
|
AvisoStatusFunctions.ummeldenAVISO(AVISO, it.Tag.ToString)
|
||||||
|
End If
|
||||||
|
Me.initDataBinding()
|
||||||
|
|
||||||
End If
|
End If
|
||||||
Me.initDataBinding()
|
|
||||||
End Sub
|
End Sub
|
||||||
Next
|
Next
|
||||||
End If
|
End If
|
||||||
@@ -979,7 +997,7 @@ Public Class frmSendungsdetailsNEU
|
|||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Sub initButtons()
|
Sub initButtons()
|
||||||
|
If UNBOUND Then Exit Sub
|
||||||
' FlowLayoutPanel.Visible = False
|
' FlowLayoutPanel.Visible = False
|
||||||
' Me.SuspendLayout()
|
' Me.SuspendLayout()
|
||||||
FlowLayoutPanel.SuspendLayout()
|
FlowLayoutPanel.SuspendLayout()
|
||||||
@@ -1456,7 +1474,8 @@ Public Class frmSendungsdetailsNEU
|
|||||||
usrcntl_AUSFUHR.reset()
|
usrcntl_AUSFUHR.reset()
|
||||||
usrcntl_FISKAL.reset()
|
usrcntl_FISKAL.reset()
|
||||||
usrcntl_ATA = New usrCntlSND_Handling(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID)
|
usrcntl_ATA = New usrCntlSND_Handling(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID)
|
||||||
usrcntl_ATB = New usrCntlSND_ATBGestellung(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID)
|
'usrcntl_ATB = New usrCntlSND_ATBGestellung(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID)
|
||||||
|
usrcntl_ATB = New usrCntlSND_ATBGestellung(AVISO, SENDUNG_LIST(CURRENT_INDEX))
|
||||||
|
|
||||||
AddHandler usrcntl_ATA.HandlingWerte, Sub(colli, gewicht, anzahlSendungen)
|
AddHandler usrcntl_ATA.HandlingWerte, Sub(colli, gewicht, anzahlSendungen)
|
||||||
txtColli.Text = colli
|
txtColli.Text = colli
|
||||||
@@ -1531,6 +1550,9 @@ Public Class frmSendungsdetailsNEU
|
|||||||
End If
|
End If
|
||||||
|
|
||||||
pnlT1.Controls.Add(usrcntl_ATB)
|
pnlT1.Controls.Add(usrcntl_ATB)
|
||||||
|
|
||||||
|
btnWWberechnen.Visible = True
|
||||||
|
|
||||||
End Select
|
End Select
|
||||||
|
|
||||||
cboAbfertigungsart_SelectedIndexChanged(cboAbfertigungsart, New EventArgs)
|
cboAbfertigungsart_SelectedIndexChanged(cboAbfertigungsart, New EventArgs)
|
||||||
@@ -1616,20 +1638,26 @@ Public Class frmSendungsdetailsNEU
|
|||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Sub initVorpapiere()
|
Sub initVorpapiere()
|
||||||
|
|
||||||
cboVorpapier.Items.Clear()
|
cboVorpapier.Items.Clear()
|
||||||
cboVorpapier2.Items.Clear()
|
cboVorpapier2.Items.Clear()
|
||||||
cboVorpapier3.Items.Clear()
|
cboVorpapier3.Items.Clear()
|
||||||
|
If AVISO IsNot Nothing Then
|
||||||
|
|
||||||
AVISO.LOAD_Vorpapiere()
|
|
||||||
|
|
||||||
cboVorpapier.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
AVISO.LOAD_Vorpapiere()
|
||||||
cboVorpapier2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
|
||||||
cboVorpapier3.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
cboVorpapier.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||||
For Each VP In AVISO.VORPAPIERE
|
cboVorpapier2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||||
cboVorpapier.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(VP.vp_Nr, VP.vp_Nr))
|
cboVorpapier3.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||||
cboVorpapier2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(VP.vp_Nr, VP.vp_Nr))
|
For Each VP In AVISO.VORPAPIERE
|
||||||
cboVorpapier3.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(VP.vp_Nr, VP.vp_Nr))
|
cboVorpapier.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(VP.vp_Nr, VP.vp_Nr))
|
||||||
Next
|
cboVorpapier2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(VP.vp_Nr, VP.vp_Nr))
|
||||||
|
cboVorpapier3.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(VP.vp_Nr, VP.vp_Nr))
|
||||||
|
Next
|
||||||
|
Else
|
||||||
|
|
||||||
|
End If
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Sub setVorpapiere()
|
Sub setVorpapiere()
|
||||||
@@ -1643,33 +1671,36 @@ Public Class frmSendungsdetailsNEU
|
|||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Sub initFraechterAvisererFromAkt()
|
Sub initFraechterAvisererFromAkt()
|
||||||
|
If AVISO IsNot Nothing Then
|
||||||
|
|
||||||
'Übergangsphase Aviso/Sendung
|
'Übergangsphase Aviso/Sendung
|
||||||
If txtAvisierer.Text = "" And txtAvisierer.Enabled Then 'And (VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(cboFiliale._value) = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX") Then
|
If txtAvisierer.Text = "" And txtAvisierer.Enabled Then 'And (VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(cboFiliale._value) = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX") Then
|
||||||
If AVISO.Auftraggeber_KdNr > -1 Then
|
If AVISO.Auftraggeber_KdNr > -1 Then
|
||||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromKdNr(AVISO.Auftraggeber_KdNr) = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(cboFiliale._value) Then
|
If VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromKdNr(AVISO.Auftraggeber_KdNr) = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(cboFiliale._value) Then
|
||||||
txtAvisierer.KdNr = AVISO.Auftraggeber_KdNr
|
txtAvisierer.KdNr = AVISO.Auftraggeber_KdNr
|
||||||
|
End If
|
||||||
|
Else
|
||||||
|
txtAvisierer.KdNr_value = -1
|
||||||
|
txtAvisiererKdNr.Text = ""
|
||||||
|
txtAvisierer.Text = AVISO.Auftraggeber
|
||||||
End If
|
End If
|
||||||
Else
|
|
||||||
txtAvisierer.KdNr_value = -1
|
|
||||||
txtAvisiererKdNr.Text = ""
|
|
||||||
txtAvisierer.Text = AVISO.Auftraggeber
|
|
||||||
End If
|
End If
|
||||||
End If
|
|
||||||
|
|
||||||
|
|
||||||
'Übergangsphase Aviso/Sendung
|
'Übergangsphase Aviso/Sendung
|
||||||
If txtFrachtfuehrer.Text = "" And txtFrachtfuehrer.Enabled Then 'And (VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(cboFiliale._value) = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX") Then
|
If txtFrachtfuehrer.Text = "" And txtFrachtfuehrer.Enabled Then 'And (VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(cboFiliale._value) = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX") Then
|
||||||
If AVISO.Frächter_KdNr > -1 Then
|
If AVISO.Frächter_KdNr > -1 Then
|
||||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromKdNr(AVISO.Frächter_KdNr) = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(cboFiliale._value) Then
|
If VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromKdNr(AVISO.Frächter_KdNr) = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(cboFiliale._value) Then
|
||||||
txtFrachtfuehrer.KdNr = AVISO.Frächter_KdNr
|
txtFrachtfuehrer.KdNr = AVISO.Frächter_KdNr
|
||||||
|
End If
|
||||||
|
Else
|
||||||
|
|
||||||
|
txtFrachtfuehrer.KdNr_value = -1
|
||||||
|
txtFrachtfuehrerKdNr.Text = ""
|
||||||
|
txtFrachtfuehrer.Text = AVISO.Frächter
|
||||||
End If
|
End If
|
||||||
Else
|
|
||||||
|
|
||||||
txtFrachtfuehrer.KdNr_value = -1
|
|
||||||
txtFrachtfuehrerKdNr.Text = ""
|
|
||||||
txtFrachtfuehrer.Text = AVISO.Frächter
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
End If
|
End If
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
@@ -2194,6 +2225,8 @@ Public Class frmSendungsdetailsNEU
|
|||||||
'cbxSpedBuch.Checked = (posnr.Filiale > 0 And posnr.Abfertigungsnummer > 0 And posnr.UnterNr >= 0) ' Wenn Sped Eintrag gelöscht-> - 1, dann ist der Eintrag nicht mehr vorhanden
|
'cbxSpedBuch.Checked = (posnr.Filiale > 0 And posnr.Abfertigungsnummer > 0 And posnr.UnterNr >= 0) ' Wenn Sped Eintrag gelöscht-> - 1, dann ist der Eintrag nicht mehr vorhanden
|
||||||
Dim vorhanden = ADMIN.getValueTxtBySql("SELECT COUNT(*) FROM [Speditionsbuch] WHERE [FilialenNr]='" & cboFiliale._value & "' AND AbfertigungsNr='" & txtAbfertigungsnummer.Text & "'", "FMZOLL") ' AND UnterNr='" & txtUnterNr.Text & "'
|
Dim vorhanden = ADMIN.getValueTxtBySql("SELECT COUNT(*) FROM [Speditionsbuch] WHERE [FilialenNr]='" & cboFiliale._value & "' AND AbfertigungsNr='" & txtAbfertigungsnummer.Text & "'", "FMZOLL") ' AND UnterNr='" & txtUnterNr.Text & "'
|
||||||
cbxSpedBuch.Checked = (vorhanden > 0)
|
cbxSpedBuch.Checked = (vorhanden > 0)
|
||||||
|
|
||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
lblAbfNrExists.Visible = checkDoppelAbfNr()
|
lblAbfNrExists.Visible = checkDoppelAbfNr()
|
||||||
@@ -2347,23 +2380,33 @@ Public Class frmSendungsdetailsNEU
|
|||||||
|
|
||||||
Private Sub cboAbfertigungsart_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboAbfertigungsart.SelectedIndexChanged
|
Private Sub cboAbfertigungsart_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboAbfertigungsart.SelectedIndexChanged
|
||||||
btnLeihgeld.Enabled = False
|
btnLeihgeld.Enabled = False
|
||||||
lblAnzahl.Visible = (cboAbfertigungsart._value = "23")
|
lblAnzahl.Visible = False
|
||||||
txtAnzahl.Visible = (cboAbfertigungsart._value = "23")
|
txtAnzahl.Visible = False
|
||||||
|
|
||||||
|
btnAufschub_Atr.Visible = True
|
||||||
|
btnAufschub_Empf.Visible = True
|
||||||
|
btnAufschub_VERAG.Visible = True
|
||||||
|
|
||||||
|
Select Case cboAbfertigungsart._value
|
||||||
|
Case "23", "67", "68"
|
||||||
|
lblAnzahl.Visible = True
|
||||||
|
txtAnzahl.Visible = True
|
||||||
|
|
||||||
|
btnAufschub_Atr.Visible = False
|
||||||
|
btnAufschub_Empf.Visible = False
|
||||||
|
btnAufschub_VERAG.Visible = False
|
||||||
|
SENDUNG_LIST(CURRENT_INDEX).tblSnd_aufschub = ""
|
||||||
|
txtDyRef.Visible = False
|
||||||
|
picDy.Visible = False
|
||||||
|
txtDyRef.Text = ""
|
||||||
|
End Select
|
||||||
'grpAufschub.Visible = (cboAbfertigungsart._value <> "23")
|
'grpAufschub.Visible = (cboAbfertigungsart._value <> "23")
|
||||||
|
|
||||||
btnAufschub_Atr.Visible = (cboAbfertigungsart._value <> "23")
|
|
||||||
btnAufschub_Empf.Visible = (cboAbfertigungsart._value <> "23")
|
|
||||||
btnAufschub_VERAG.Visible = (cboAbfertigungsart._value <> "23")
|
|
||||||
|
|
||||||
setContextMenuGVMSControl()
|
setContextMenuGVMSControl()
|
||||||
|
|
||||||
If cboAbfertigungsart._value = "23" Then
|
If cboAbfertigungsart._value = "9" Then
|
||||||
SENDUNG_LIST(CURRENT_INDEX).tblSnd_aufschub = ""
|
|
||||||
|
|
||||||
txtDyRef.Visible = False
|
|
||||||
picDy.Visible = False
|
|
||||||
txtDyRef.Text = ""
|
|
||||||
ElseIf cboAbfertigungsart._value = "9" Then
|
|
||||||
btnLeihgeld.Enabled = True
|
btnLeihgeld.Enabled = True
|
||||||
Else
|
Else
|
||||||
txtDyRef.Visible = (SENDUNG_LIST(CURRENT_INDEX).FilialenNr = "5601") 'UNISPED
|
txtDyRef.Visible = (SENDUNG_LIST(CURRENT_INDEX).FilialenNr = "5601") 'UNISPED
|
||||||
@@ -2462,13 +2505,18 @@ Public Class frmSendungsdetailsNEU
|
|||||||
With dgvBelege
|
With dgvBelege
|
||||||
.Columns.Clear()
|
.Columns.Clear()
|
||||||
If .RowCount > 0 Then .Rows.Clear()
|
If .RowCount > 0 Then .Rows.Clear()
|
||||||
|
Dim AvisoID = -1
|
||||||
|
If AVISO IsNot Nothing Then
|
||||||
|
AvisoID = AVISO.AvisoID
|
||||||
|
End If
|
||||||
|
|
||||||
If (txtAbfertigungsnummer.Text.Trim <> "" AndAlso IsNumeric(txtAbfertigungsnummer.Text) AndAlso txtAbfertigungsnummer.Text > 0) And (cboFiliale._value.Trim <> "" AndAlso IsNumeric(cboFiliale._value) AndAlso cboFiliale._value > 0) Then
|
If (txtAbfertigungsnummer.Text.Trim <> "" AndAlso IsNumeric(txtAbfertigungsnummer.Text) AndAlso txtAbfertigungsnummer.Text > 0) And (cboFiliale._value.Trim <> "" AndAlso IsNumeric(cboFiliale._value) AndAlso cboFiliale._value > 0) Then
|
||||||
' .DataSource = SQL.loadDgvBySql("SELECT rksv_BelegId, rksv_umsatz ,BelegNr,BelegDat,Benutzer,[Name],LKW_Beleg FROM [tblEABelegnummer] INNER JOIN Personal ON ID=Benutzer where ((FilialenNr='" & cboFiliale._value & "' and AbfertigungsNr='" & txtAbfertigungsnummer.Text & "') OR (LKW_id='" & AVISO.AvisoID & "' AND LKW_Beleg=1) OR (SELECT Count(*) FROM [tblEABelegnummer] where AbfertigungsNr='" & txtAbfertigungsnummer.Text & "' and FilialenNr='" & cboFiliale._value & "' )>0) and storniert=0 and gebuchtstorno=0 order by rksv_BelegId", "FMZOLL")
|
' .DataSource = SQL.loadDgvBySql("SELECT rksv_BelegId, rksv_umsatz ,BelegNr,BelegDat,Benutzer,[Name],LKW_Beleg FROM [tblEABelegnummer] INNER JOIN Personal ON ID=Benutzer where ((FilialenNr='" & cboFiliale._value & "' and AbfertigungsNr='" & txtAbfertigungsnummer.Text & "') OR (LKW_id='" & AVISO.AvisoID & "' AND LKW_Beleg=1) OR (SELECT Count(*) FROM [tblEABelegnummer] where AbfertigungsNr='" & txtAbfertigungsnummer.Text & "' and FilialenNr='" & cboFiliale._value & "' )>0) and storniert=0 and gebuchtstorno=0 order by rksv_BelegId", "FMZOLL")
|
||||||
.DataSource = SQL.loadDgvBySql(" SELECT rksv_BelegId, rksv_umsatz ,b.BelegNr,b.BelegDat,b.Benutzer,[Name],LKW_Beleg FROM [tblEABelegnummer] as b " &
|
.DataSource = SQL.loadDgvBySql(" SELECT rksv_BelegId, rksv_umsatz ,b.BelegNr,b.BelegDat,b.Benutzer,[Name],LKW_Beleg FROM [tblEABelegnummer] as b " &
|
||||||
" INNER JOIN Personal ON ID=Benutzer " &
|
" INNER JOIN Personal ON ID=Benutzer " &
|
||||||
" INNER JOIN [tblEABelegposition] as pos ON pos.[Mandant]=b.[Mandant] AND pos.[Niederlassung]=b.[Niederlassung] AND pos.[Benutzer]=b.[Benutzer] AND pos.[BelegDat]=b.[BelegDat] AND pos.[BelegNr]=b.[BelegNr] " &
|
" INNER JOIN [tblEABelegposition] as pos ON pos.[Mandant]=b.[Mandant] AND pos.[Niederlassung]=b.[Niederlassung] AND pos.[Benutzer]=b.[Benutzer] AND pos.[BelegDat]=b.[BelegDat] AND pos.[BelegNr]=b.[BelegNr] " &
|
||||||
" where " &
|
" where " &
|
||||||
" ((b.FilialenNr='" & cboFiliale._value & "' and b.AbfertigungsNr='" & txtAbfertigungsnummer.Text & "') OR (LKW_id='" & AVISO.AvisoID & "' AND LKW_Beleg=1) OR " &
|
" ((b.FilialenNr='" & cboFiliale._value & "' and b.AbfertigungsNr='" & txtAbfertigungsnummer.Text & "') OR (LKW_id='" & AvisoID & "' AND LKW_Beleg=1) OR " &
|
||||||
" ( pos.AbfertigungsNr='" & txtAbfertigungsnummer.Text & "' and pos.FilialenNr='" & cboFiliale._value & "' ) ) and storniert=0 and gebuchtstorno=0 " &
|
" ( pos.AbfertigungsNr='" & txtAbfertigungsnummer.Text & "' and pos.FilialenNr='" & cboFiliale._value & "' ) ) and storniert=0 and gebuchtstorno=0 " &
|
||||||
" group by rksv_BelegId, rksv_umsatz ,b.BelegNr,b.BelegDat,b.Benutzer,[Name],LKW_Beleg " &
|
" group by rksv_BelegId, rksv_umsatz ,b.BelegNr,b.BelegDat,b.Benutzer,[Name],LKW_Beleg " &
|
||||||
" order by rksv_BelegId", "FMZOLL")
|
" order by rksv_BelegId", "FMZOLL")
|
||||||
@@ -3066,7 +3114,7 @@ Public Class frmSendungsdetailsNEU
|
|||||||
If cbxFremdspedition.Checked Then
|
If cbxFremdspedition.Checked Then
|
||||||
sperren = True
|
sperren = True
|
||||||
ElseIf cboAbfertigungsart._value = "44" Then
|
ElseIf cboAbfertigungsart._value = "44" Then
|
||||||
sperren = False
|
sperren = False
|
||||||
Else
|
Else
|
||||||
If cboFiliale._value <> "" Then
|
If cboFiliale._value <> "" Then
|
||||||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||||
@@ -4152,7 +4200,7 @@ Public Class frmSendungsdetailsNEU
|
|||||||
|
|
||||||
|
|
||||||
|
|
||||||
Dim docPath = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(dgvAnhang.SelectedRows(0).Cells("anh_docId").Value)
|
Dim docPath = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(dgvAnhang.SelectedRows(0).Cells("anh_docId").Value)
|
||||||
If Not File.Exists(docPath) Then
|
If Not File.Exists(docPath) Then
|
||||||
MsgBox("Die Datei existiert nicht!")
|
MsgBox("Die Datei existiert nicht!")
|
||||||
Else
|
Else
|
||||||
@@ -6988,9 +7036,9 @@ Public Class frmSendungsdetailsNEU
|
|||||||
|
|
||||||
|
|
||||||
If lblGrenze.Text <> "" Then
|
If lblGrenze.Text <> "" Then
|
||||||
TextHTML = TextHTML.Replace("%VAR-GRENZE%", lblGrenze.Text & "<br>")
|
TextHTML = TextHTML.Replace("%VAR-GRENZE%", lblGrenze.Text & "<br>")
|
||||||
Mail.Subject = Mail.Subject.Replace("%VAR-GRENZE%", lblGrenze.Text.Replace(vbCrLf, " "))
|
Mail.Subject = Mail.Subject.Replace("%VAR-GRENZE%", lblGrenze.Text.Replace(vbCrLf, " "))
|
||||||
End If
|
End If
|
||||||
|
|
||||||
If SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger IsNot Nothing Then
|
If SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger IsNot Nothing Then
|
||||||
Mail.Subject = Mail.Subject.Replace("%Empfaenger%", SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger)
|
Mail.Subject = Mail.Subject.Replace("%Empfaenger%", SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger)
|
||||||
@@ -7027,11 +7075,11 @@ Public Class frmSendungsdetailsNEU
|
|||||||
Mail.Subject = Mail.Subject.Replace("%AbfertigungsNr%", "")
|
Mail.Subject = Mail.Subject.Replace("%AbfertigungsNr%", "")
|
||||||
Mail.Subject = Mail.Subject.Replace("%Absender%", "")
|
Mail.Subject = Mail.Subject.Replace("%Absender%", "")
|
||||||
Mail.Subject = Mail.Subject.Replace("%Gewicht%", "")
|
Mail.Subject = Mail.Subject.Replace("%Gewicht%", "")
|
||||||
Mail.Subject = Mail.Subject.Replace("%ImEx%", "")
|
Mail.Subject = Mail.Subject.Replace("%ImEx%", "")
|
||||||
Mail.Subject = Mail.Subject.Replace("%Zollstelle%", "")
|
Mail.Subject = Mail.Subject.Replace("%Zollstelle%", "")
|
||||||
|
|
||||||
|
|
||||||
TextHTML = TextHTML.Replace("%LKW%", "")
|
TextHTML = TextHTML.Replace("%LKW%", "")
|
||||||
TextHTML = TextHTML.Replace("%LKWKennzeichen%", "")
|
TextHTML = TextHTML.Replace("%LKWKennzeichen%", "")
|
||||||
TextHTML = TextHTML.Replace("%Empfaenger%", "")
|
TextHTML = TextHTML.Replace("%Empfaenger%", "")
|
||||||
TextHTML = TextHTML.Replace("%VAR-GRENZE%", "")
|
TextHTML = TextHTML.Replace("%VAR-GRENZE%", "")
|
||||||
@@ -7040,10 +7088,10 @@ Public Class frmSendungsdetailsNEU
|
|||||||
TextHTML = TextHTML.Replace("%AbfertigungsNr%", "")
|
TextHTML = TextHTML.Replace("%AbfertigungsNr%", "")
|
||||||
TextHTML = TextHTML.Replace("%Absender%", "")
|
TextHTML = TextHTML.Replace("%Absender%", "")
|
||||||
TextHTML = TextHTML.Replace("%Gewicht%", "")
|
TextHTML = TextHTML.Replace("%Gewicht%", "")
|
||||||
TextHTML = TextHTML.Replace("%ImEx%", "")
|
TextHTML = TextHTML.Replace("%ImEx%", "")
|
||||||
TextHTML = TextHTML.Replace("%Zollstelle%", "")
|
TextHTML = TextHTML.Replace("%Zollstelle%", "")
|
||||||
|
|
||||||
For Each anh As DataGridViewRow In dgvAnhang.SelectedRows
|
For Each anh As DataGridViewRow In dgvAnhang.SelectedRows
|
||||||
Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(anh.Cells("anh_docId").Value), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
|
Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(anh.Cells("anh_docId").Value), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
|
||||||
Next
|
Next
|
||||||
|
|
||||||
@@ -7322,4 +7370,66 @@ Public Class frmSendungsdetailsNEU
|
|||||||
Panel22.BackColor = Color.FromArgb(255, 255, 192)
|
Panel22.BackColor = Color.FromArgb(255, 255, 192)
|
||||||
End If
|
End If
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
|
Private Sub btnWWberechnen_Click(sender As Object, e As EventArgs) Handles btnWWberechnen.Click
|
||||||
|
Dim calcWarenwerte As Double = 0
|
||||||
|
Dim vorpT1 = usrcntl_ATB.txtATBT1.Text
|
||||||
|
Try
|
||||||
|
|
||||||
|
If SENDUNG_LIST(CURRENT_INDEX).tblSnd_WarenwertWaehrung = "" Then
|
||||||
|
txtWarenwertWaehrung.SET_VALUE("EUR")
|
||||||
|
SAVE_ME()
|
||||||
|
End If
|
||||||
|
|
||||||
|
If vorpT1 = "" Then
|
||||||
|
MsgBox("Vorpapier/T1 muss eingetragen werden!")
|
||||||
|
usrcntl_ATB.txtATBT1.Focus()
|
||||||
|
Exit Sub
|
||||||
|
End If
|
||||||
|
|
||||||
|
If SENDUNG_LIST(CURRENT_INDEX).tblSnd_WarenwertWaehrung <> "EUR" Then
|
||||||
|
MsgBox("Warenwert darf nur in EUR angegeben werden")
|
||||||
|
Exit Sub
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
For Each s As cSendungen In SENDUNG_LIST
|
||||||
|
'nur Betrag EUR
|
||||||
|
If s.tblSnd_Vorpapier = vorp Then
|
||||||
|
If s.tblSnd_WarenwertWaehrung = "EUR" AndAlso s.tblSnd_Warenwert > 0 AndAlso s.FilialenNr = SENDUNG_LIST(CURRENT_INDEX).FilialenNr Then
|
||||||
|
calcWarenwerte += s.tblSnd_Warenwert
|
||||||
|
Else
|
||||||
|
MsgBox("Bei Sendung " & s.AbfertigungsNr & " ist der Warenwert nicht in EUR angegeben!")
|
||||||
|
Exit Sub
|
||||||
|
End If
|
||||||
|
|
||||||
|
End If
|
||||||
|
|
||||||
|
Next
|
||||||
|
|
||||||
|
If SENDUNG_LIST(CURRENT_INDEX).tblSnd_Warenwert Is Nothing Then
|
||||||
|
SENDUNG_LIST(CURRENT_INDEX).tblSnd_Warenwert = Math.Round(calcWarenwerte, 2)
|
||||||
|
SAVE_ME()
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
If IsNumeric(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Warenwert) AndAlso Math.Round(calcWarenwerte, 2) <> Math.Round(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Warenwert, 2) Then
|
||||||
|
MsgBox("Warenwert für Gestellung stimmt nicht überein!" & vbNewLine & "Berechnerter Warenwert: " & Math.Round(calcWarenwerte, 2) & vbNewLine & "Eingetragener Warenwert: " & Math.Round(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Warenwert, 2), MsgBoxStyle.Critical)
|
||||||
|
|
||||||
|
Else
|
||||||
|
|
||||||
|
txtWarenwert.Text = Math.Round(calcWarenwerte, 2)
|
||||||
|
If txtWarenwertWaehrung._value = "" Then
|
||||||
|
txtWarenwertWaehrung._value = "EUR"
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
Catch ex As Exception
|
||||||
|
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||||
|
End Try
|
||||||
|
|
||||||
|
End Sub
|
||||||
End Class
|
End Class
|
||||||
|
|||||||
58
Aviso/usrCntlSND_ATBGestellung.Designer.vb
generated
58
Aviso/usrCntlSND_ATBGestellung.Designer.vb
generated
@@ -23,18 +23,22 @@ Partial Class usrCntlSND_ATBGestellung
|
|||||||
<System.Diagnostics.DebuggerStepThrough()>
|
<System.Diagnostics.DebuggerStepThrough()>
|
||||||
Private Sub InitializeComponent()
|
Private Sub InitializeComponent()
|
||||||
Me.pnlT1 = New System.Windows.Forms.Panel()
|
Me.pnlT1 = New System.Windows.Forms.Panel()
|
||||||
|
Me.btnGesSicherheit = New System.Windows.Forms.Button()
|
||||||
|
Me.Button1 = New System.Windows.Forms.Button()
|
||||||
|
Me.cbxATBFakturieren = New System.Windows.Forms.CheckBox()
|
||||||
Me.txtATBNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
Me.txtATBNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||||
Me.txtATBT1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
Me.txtATBT1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||||
Me.Label4 = New System.Windows.Forms.Label()
|
Me.Label4 = New System.Windows.Forms.Label()
|
||||||
Me.Label3 = New System.Windows.Forms.Label()
|
Me.Label3 = New System.Windows.Forms.Label()
|
||||||
Me.txtT1VerzollungsadresseBestimmungszollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox()
|
Me.txtT1VerzollungsadresseBestimmungszollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox()
|
||||||
Me.Label33 = New System.Windows.Forms.Label()
|
Me.Label33 = New System.Windows.Forms.Label()
|
||||||
Me.cbxATBFakturieren = New System.Windows.Forms.CheckBox()
|
|
||||||
Me.pnlT1.SuspendLayout()
|
Me.pnlT1.SuspendLayout()
|
||||||
Me.SuspendLayout()
|
Me.SuspendLayout()
|
||||||
'
|
'
|
||||||
'pnlT1
|
'pnlT1
|
||||||
'
|
'
|
||||||
|
Me.pnlT1.Controls.Add(Me.btnGesSicherheit)
|
||||||
|
Me.pnlT1.Controls.Add(Me.Button1)
|
||||||
Me.pnlT1.Controls.Add(Me.cbxATBFakturieren)
|
Me.pnlT1.Controls.Add(Me.cbxATBFakturieren)
|
||||||
Me.pnlT1.Controls.Add(Me.txtATBNr)
|
Me.pnlT1.Controls.Add(Me.txtATBNr)
|
||||||
Me.pnlT1.Controls.Add(Me.txtATBT1)
|
Me.pnlT1.Controls.Add(Me.txtATBT1)
|
||||||
@@ -47,6 +51,39 @@ Partial Class usrCntlSND_ATBGestellung
|
|||||||
Me.pnlT1.Size = New System.Drawing.Size(549, 101)
|
Me.pnlT1.Size = New System.Drawing.Size(549, 101)
|
||||||
Me.pnlT1.TabIndex = 0
|
Me.pnlT1.TabIndex = 0
|
||||||
'
|
'
|
||||||
|
'btnGesSicherheit
|
||||||
|
'
|
||||||
|
Me.btnGesSicherheit.Location = New System.Drawing.Point(417, 3)
|
||||||
|
Me.btnGesSicherheit.Name = "btnGesSicherheit"
|
||||||
|
Me.btnGesSicherheit.Size = New System.Drawing.Size(113, 49)
|
||||||
|
Me.btnGesSicherheit.TabIndex = 25
|
||||||
|
Me.btnGesSicherheit.Text = "Gesamtsicherheit (Verwahrung)"
|
||||||
|
Me.btnGesSicherheit.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
'Button1
|
||||||
|
'
|
||||||
|
Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||||
|
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||||
|
Me.Button1.Location = New System.Drawing.Point(397, 56)
|
||||||
|
Me.Button1.Name = "Button1"
|
||||||
|
Me.Button1.Size = New System.Drawing.Size(149, 35)
|
||||||
|
Me.Button1.TabIndex = 25
|
||||||
|
Me.Button1.Text = "Ankunftsanzeige senden >>"
|
||||||
|
Me.Button1.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
'cbxATBFakturieren
|
||||||
|
'
|
||||||
|
Me.cbxATBFakturieren.AutoSize = True
|
||||||
|
Me.cbxATBFakturieren.Checked = True
|
||||||
|
Me.cbxATBFakturieren.CheckState = System.Windows.Forms.CheckState.Indeterminate
|
||||||
|
Me.cbxATBFakturieren.Location = New System.Drawing.Point(121, 80)
|
||||||
|
Me.cbxATBFakturieren.Name = "cbxATBFakturieren"
|
||||||
|
Me.cbxATBFakturieren.Size = New System.Drawing.Size(153, 17)
|
||||||
|
Me.cbxATBFakturieren.TabIndex = 24
|
||||||
|
Me.cbxATBFakturieren.Text = "ATB-Gestellung fakturieren"
|
||||||
|
Me.cbxATBFakturieren.ThreeState = True
|
||||||
|
Me.cbxATBFakturieren.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
'txtATBNr
|
'txtATBNr
|
||||||
'
|
'
|
||||||
Me.txtATBNr._DateTimeOnly = False
|
Me.txtATBNr._DateTimeOnly = False
|
||||||
@@ -148,26 +185,11 @@ Partial Class usrCntlSND_ATBGestellung
|
|||||||
Me.Label33.TabIndex = 3
|
Me.Label33.TabIndex = 3
|
||||||
Me.Label33.Text = "Vorpapier / T1:"
|
Me.Label33.Text = "Vorpapier / T1:"
|
||||||
'
|
'
|
||||||
'cbxATBFakturieren
|
|
||||||
'
|
|
||||||
Me.cbxATBFakturieren.AutoSize = True
|
|
||||||
Me.cbxATBFakturieren.Checked = True
|
|
||||||
Me.cbxATBFakturieren.CheckState = System.Windows.Forms.CheckState.Indeterminate
|
|
||||||
Me.cbxATBFakturieren.Location = New System.Drawing.Point(121, 80)
|
|
||||||
Me.cbxATBFakturieren.Name = "cbxATBFakturieren"
|
|
||||||
Me.cbxATBFakturieren.Size = New System.Drawing.Size(153, 17)
|
|
||||||
Me.cbxATBFakturieren.TabIndex = 24
|
|
||||||
Me.cbxATBFakturieren.Text = "ATB-Gestellung fakturieren"
|
|
||||||
Me.cbxATBFakturieren.ThreeState = True
|
|
||||||
Me.cbxATBFakturieren.UseVisualStyleBackColor = True
|
|
||||||
'
|
|
||||||
'usrCntlSND_ATBGestellung
|
'usrCntlSND_ATBGestellung
|
||||||
'
|
'
|
||||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
|
||||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
|
||||||
Me.Controls.Add(Me.pnlT1)
|
Me.Controls.Add(Me.pnlT1)
|
||||||
Me.Name = "usrCntlSND_ATBGestellung"
|
Me.Name = "usrCntlSND_ATBGestellung"
|
||||||
Me.Size = New System.Drawing.Size(549, 94)
|
Me.Size = New System.Drawing.Size(553, 106)
|
||||||
Me.pnlT1.ResumeLayout(False)
|
Me.pnlT1.ResumeLayout(False)
|
||||||
Me.pnlT1.PerformLayout()
|
Me.pnlT1.PerformLayout()
|
||||||
Me.ResumeLayout(False)
|
Me.ResumeLayout(False)
|
||||||
@@ -181,4 +203,6 @@ Partial Class usrCntlSND_ATBGestellung
|
|||||||
Friend WithEvents Label4 As Label
|
Friend WithEvents Label4 As Label
|
||||||
Friend WithEvents txtATBNr As VERAG_PROG_ALLGEMEIN.MyTextBox
|
Friend WithEvents txtATBNr As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||||
Friend WithEvents cbxATBFakturieren As CheckBox
|
Friend WithEvents cbxATBFakturieren As CheckBox
|
||||||
|
Friend WithEvents btnGesSicherheit As Button
|
||||||
|
Friend WithEvents Button1 As Button
|
||||||
End Class
|
End Class
|
||||||
|
|||||||
@@ -1,17 +1,248 @@
|
|||||||
Public Class usrCntlSND_ATBGestellung
|
Imports DAKOSY_Worker
|
||||||
|
Imports SDL
|
||||||
|
|
||||||
|
Imports VERAG_PROG_ALLGEMEIN
|
||||||
|
|
||||||
|
|
||||||
|
Public Class usrCntlSND_ATBGestellung
|
||||||
|
|
||||||
|
Dim _SendungsId As Object
|
||||||
|
Public firmaId As Integer
|
||||||
|
|
||||||
'Public NCTS_GA As VERAG_PROG_ALLGEMEIN.cNCTSGestellungsadressen
|
'Public NCTS_GA As VERAG_PROG_ALLGEMEIN.cNCTSGestellungsadressen
|
||||||
|
|
||||||
|
Dim AVISO As VERAG_PROG_ALLGEMEIN.cAviso = Nothing
|
||||||
|
Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = Nothing
|
||||||
|
|
||||||
|
Sub New(AVISO, SND)
|
||||||
|
|
||||||
Sub New(SendungsId)
|
|
||||||
|
|
||||||
' Dieser Aufruf ist für den Designer erforderlich.
|
' Dieser Aufruf ist für den Designer erforderlich.
|
||||||
InitializeComponent()
|
InitializeComponent()
|
||||||
|
|
||||||
|
Me.AVISO = AVISO
|
||||||
|
Me.SND = SND
|
||||||
|
|
||||||
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
||||||
|
|
||||||
|
Me.Refresh()
|
||||||
|
Me.Cursor = Cursors.WaitCursor
|
||||||
|
|
||||||
|
Dim f As frmSendungsdetailsNEU = Me.FindForm
|
||||||
|
If f.SAVE_ME() Then
|
||||||
|
SND = f.SENDUNG_LIST(f.CURRENT_INDEX)
|
||||||
|
|
||||||
|
If Not IsNumeric(SND.AbfertigungsNr) OrElse CInt(SND.AbfertigungsNr) < 100000 Then MsgBox("Abfertigungsnummer angeben!") : Exit Sub
|
||||||
|
If If(SND.tblSnd_ATB_T1, "") = "" Then MsgBox("MRN (Gestellung) angeben!") : Exit Sub
|
||||||
|
|
||||||
|
Dim Standort As String = ""
|
||||||
|
|
||||||
|
Select Case SND.FilialenNr
|
||||||
|
Case 4803, 4809
|
||||||
|
Standort = "VERAG AG"
|
||||||
|
Case 5601
|
||||||
|
Standort = "Unisped GmbH"
|
||||||
|
Case 5701
|
||||||
|
Standort = "AMBAR"
|
||||||
|
Case 4810, 5103, 5901
|
||||||
|
Standort = "VERAG GmbH"
|
||||||
|
Case 5501
|
||||||
|
Standort = "IMEX"
|
||||||
|
End Select
|
||||||
|
|
||||||
|
'sonderfälle lt. Mestan
|
||||||
|
If SND.tblSnd_Zollsystem_Land = "DE" Then
|
||||||
|
|
||||||
|
Select Case SND.FilialenNr
|
||||||
|
Case 5501, 4803, 4809, 5103
|
||||||
|
Standort = "VERAG GmbH"
|
||||||
|
End Select
|
||||||
|
|
||||||
|
ElseIf SND.tblSnd_Zollsystem_Land = "AT" Then
|
||||||
|
|
||||||
|
If SND.tblSnd_Abfertigungsart_ID = 1 Then 'ZA
|
||||||
|
Standort = "VERAG CS"
|
||||||
|
ElseIf SND.tblSnd_Abfertigungsart_ID = 38 Then 'EV-Verz
|
||||||
|
Select Case SND.FilialenNr
|
||||||
|
Case 4803, 5303, 4809, 5103
|
||||||
|
Standort = "VERAG CS"
|
||||||
|
End Select
|
||||||
|
|
||||||
|
End If
|
||||||
|
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
Dim GesSichRef = New VERAG_PROG_ALLGEMEIN.cGesamtsicherheitsReferenz(Standort)
|
||||||
|
If GesSichRef Is Nothing Then MsgBox("Verwahrungsreferenz kann nicht ermittelt werden!") : Exit Sub
|
||||||
|
|
||||||
|
Dim saldo = CDbl(GesSichRef.CalcSaldo())
|
||||||
|
If SND.tblSnd_Warenwert > saldo Then
|
||||||
|
If MsgBox("Gestellung kann NICHT durchgeführt werden!" & vbNewLine & "Eingetragener Warenwert: " & SND.tblSnd_Warenwert & " übersteigt den vorhandenen Sicherheitssaldo von: " & saldo & vbNewLine & "Trotzdem fortfahren", vbYesNoCancel) <> vbYes Then Exit Sub
|
||||||
|
End If
|
||||||
|
|
||||||
|
Dim frMZA As New SDL.frmZollanmeldung("AA", Nothing, AVISO, SND, Now.ToString("yy"))
|
||||||
|
frMZA.Show()
|
||||||
|
AddHandler frMZA.FormClosed, Sub()
|
||||||
|
' initdgvZollAnmeldungen()
|
||||||
|
End Sub
|
||||||
|
Else
|
||||||
|
MsgBox("Fehler beim Speichern. Ankunftsanzeige abgebrochen.")
|
||||||
|
End If
|
||||||
|
Me.Cursor = Cursors.Default
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
Private Sub btnGesSicherheit_Click(sender As Object, e As EventArgs) Handles btnGesSicherheit.Click
|
||||||
|
|
||||||
|
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||||
|
Dim gsnr As Integer = 0
|
||||||
|
Dim sqlWhere = ""
|
||||||
|
|
||||||
|
Dim dt As New DataTable
|
||||||
|
|
||||||
|
|
||||||
|
'1.Schritt -> Gestellung nach aktuellster ATB-NR
|
||||||
|
If txtATBT1.Text <> "" Then
|
||||||
|
Dim SQLString As String = "Select top (1) gs_gsNr from [tblGesamtsicherheit] where [gs_ATBNr] = '" & txtATBT1.Text & "' order by gs_datum desc"
|
||||||
|
dt = SQL.loadDgvBySql(SQLString, "AVISO", 100, True)
|
||||||
|
If dt.Rows.Count > 0 Then
|
||||||
|
gsnr = dt.Rows(0).Item("gs_gsNr")
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
'falls nicht gefunden, 2 Schritt -> Gestellung nach AVISO ID, oder Aberftigungsnrand FilialNr
|
||||||
|
If gsnr = 0 Then
|
||||||
|
Dim SQLString As String = "Select top (1) gs_gsNr from [tblGesamtsicherheit] where ([gs_filialenNr] = '" & SND.FilialenNr & "' and [gs_abfertigungsNr] = " & SND.AbfertigungsNr & " ) or gs_avisoId = '" & SND.tblSnd_AvisoID & "' order by gs_datum desc"
|
||||||
|
dt = SQL.loadDgvBySql(SQLString, "AVISO", 100, True)
|
||||||
|
If dt.Rows.Count > 0 Then
|
||||||
|
gsnr = dt.Rows(0).Item("gs_gsNr")
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
If gsnr > 0 Then
|
||||||
|
|
||||||
|
Dim gessicherheit As New cSicherheiten(gsnr)
|
||||||
|
Dim GesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(gessicherheit.gs_standort)
|
||||||
|
Dim frm As New frmGesamtsicherheitenNEU
|
||||||
|
|
||||||
|
Select Case gessicherheit.gs_standort
|
||||||
|
Case "Verag GmbH"
|
||||||
|
firmaId = 2
|
||||||
|
Case "Verag AG"
|
||||||
|
firmaId = 1
|
||||||
|
Case "Unisped GmbH"
|
||||||
|
firmaId = 21
|
||||||
|
Case "AMBAR"
|
||||||
|
firmaId = 24
|
||||||
|
Case "Verag CS"
|
||||||
|
firmaId = 11
|
||||||
|
Case "IMEX"
|
||||||
|
firmaId = 20
|
||||||
|
|
||||||
|
End Select
|
||||||
|
|
||||||
|
With frm
|
||||||
|
|
||||||
|
.currentGesSichRef = GesSichRef
|
||||||
|
.gessicherheitID = gessicherheit.gs_gsNr
|
||||||
|
.datum = gessicherheit.gs_datum
|
||||||
|
.Standort = gessicherheit.gs_standort
|
||||||
|
.FilialNummer = SND.FilialenNr
|
||||||
|
.Abfertigungsnummer = SND.AbfertigungsNr
|
||||||
|
.warenortID = gessicherheit.gs_warenort
|
||||||
|
.LKWKZ = gessicherheit.gs_LKWKZ
|
||||||
|
.avisoID = gessicherheit.gs_avisoId
|
||||||
|
.firmaId = firmaId
|
||||||
|
'.warenortPrefix = SND.tblSnd_Zollsystem_Land
|
||||||
|
End With
|
||||||
|
|
||||||
|
AddHandler frm.FormClosing, Function()
|
||||||
|
GesSichRef.CalcSaldo()
|
||||||
|
Me.BringToFront()
|
||||||
|
End Function
|
||||||
|
frm.Show()
|
||||||
|
Else
|
||||||
|
|
||||||
|
|
||||||
|
Dim Standort As String = ""
|
||||||
|
|
||||||
|
|
||||||
|
Select Case SND.FilialenNr
|
||||||
|
Case 4803, 4809
|
||||||
|
Standort = "VERAG AG" : firmaId = 1
|
||||||
|
Case 5601
|
||||||
|
Standort = "Unisped GmbH" : firmaId = 21
|
||||||
|
Case 5701
|
||||||
|
Standort = "AMBAR" : firmaId = 24
|
||||||
|
Case 4810, 5103, 5901
|
||||||
|
Standort = "VERAG GmbH" : firmaId = 2
|
||||||
|
Case 5501
|
||||||
|
Standort = "IMEX" : firmaId = 20
|
||||||
|
End Select
|
||||||
|
|
||||||
|
'sonderfälle lt. Mestan
|
||||||
|
If SND.tblSnd_Zollsystem_Land = "DE" Then
|
||||||
|
|
||||||
|
Select Case SND.FilialenNr
|
||||||
|
Case 5501, 4803, 4809, 5103
|
||||||
|
Standort = "VERAG GmbH" : firmaId = 2
|
||||||
|
End Select
|
||||||
|
|
||||||
|
ElseIf SND.tblSnd_Zollsystem_Land = "AT" Then
|
||||||
|
|
||||||
|
If SND.tblSnd_Abfertigungsart_ID = 1 Then 'ZA
|
||||||
|
Standort = "VERAG CS" : firmaId = 11
|
||||||
|
ElseIf SND.tblSnd_Abfertigungsart_ID = 38 Then 'EV-Verz
|
||||||
|
Select Case SND.FilialenNr
|
||||||
|
Case 4803, 5303, 4809, 5103
|
||||||
|
Standort = "VERAG CS" : firmaId = 11
|
||||||
|
End Select
|
||||||
|
|
||||||
|
End If
|
||||||
|
|
||||||
|
End If
|
||||||
|
|
||||||
|
Dim GesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(Standort)
|
||||||
|
Dim frm As New frmGesamtsicherheitenNEU
|
||||||
|
|
||||||
|
|
||||||
|
If GesSichRef Is Nothing Then
|
||||||
|
Exit Sub
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
With frm
|
||||||
|
.currentGesSichRef = GesSichRef
|
||||||
|
.Standort = Standort
|
||||||
|
.datum = Date.Now
|
||||||
|
.Neu = True
|
||||||
|
.FilialNummer = SND.FilialenNr
|
||||||
|
.Abfertigungsnummer = SND.AbfertigungsNr
|
||||||
|
.firmaId = firmaId
|
||||||
|
.grenzstelle = AVISO.Grenzstelle.ToString.Replace("WO_", "")
|
||||||
|
.txtlkwIdSearch.Text = AVISO.LKW_Nr
|
||||||
|
.txtSicherheitWarenwert.Text = SND.tblSnd_Warenwert
|
||||||
|
.txtSicherheitATBNr.Text = txtATBT1.Text
|
||||||
|
End With
|
||||||
|
AddHandler frm.FormClosing, Function()
|
||||||
|
GesSichRef.CalcSaldo()
|
||||||
|
Me.BringToFront()
|
||||||
|
End Function
|
||||||
|
frm.Show(Me)
|
||||||
|
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
'Public Sub setValues()
|
'Public Sub setValues()
|
||||||
|
|||||||
91
Aviso/usrcntlAktDetails.Designer.vb
generated
91
Aviso/usrcntlAktDetails.Designer.vb
generated
@@ -107,6 +107,7 @@ Partial Class usrcntlAktDetails
|
|||||||
Me.txtMAinfo_Vorgeschrieben = New System.Windows.Forms.TextBox()
|
Me.txtMAinfo_Vorgeschrieben = New System.Windows.Forms.TextBox()
|
||||||
Me.txtMAinfo_VorbereitetQs = New System.Windows.Forms.TextBox()
|
Me.txtMAinfo_VorbereitetQs = New System.Windows.Forms.TextBox()
|
||||||
Me.Panel8 = New System.Windows.Forms.Panel()
|
Me.Panel8 = New System.Windows.Forms.Panel()
|
||||||
|
Me.btnQRVerwahrung = New System.Windows.Forms.Button()
|
||||||
Me.lblAktUebernommen = New System.Windows.Forms.Label()
|
Me.lblAktUebernommen = New System.Windows.Forms.Label()
|
||||||
Me.lblLKWChat_MsgCnt = New System.Windows.Forms.Label()
|
Me.lblLKWChat_MsgCnt = New System.Windows.Forms.Label()
|
||||||
Me.lblBarZuKassierenSumme = New System.Windows.Forms.Label()
|
Me.lblBarZuKassierenSumme = New System.Windows.Forms.Label()
|
||||||
@@ -164,6 +165,8 @@ Partial Class usrcntlAktDetails
|
|||||||
Me.DispolisteTRToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
Me.DispolisteTRToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||||
Me.DispolisteENToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
Me.DispolisteENToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||||
Me.pnlOptionen = New System.Windows.Forms.Panel()
|
Me.pnlOptionen = New System.Windows.Forms.Panel()
|
||||||
|
Me.Button8 = New System.Windows.Forms.Button()
|
||||||
|
Me.Button1 = New System.Windows.Forms.Button()
|
||||||
Me.Button16 = New System.Windows.Forms.Button()
|
Me.Button16 = New System.Windows.Forms.Button()
|
||||||
Me.Button15 = New System.Windows.Forms.Button()
|
Me.Button15 = New System.Windows.Forms.Button()
|
||||||
Me.Button6 = New System.Windows.Forms.Button()
|
Me.Button6 = New System.Windows.Forms.Button()
|
||||||
@@ -1336,6 +1339,7 @@ Partial Class usrcntlAktDetails
|
|||||||
'Panel8
|
'Panel8
|
||||||
'
|
'
|
||||||
Me.Panel8.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
Me.Panel8.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||||
|
Me.Panel8.Controls.Add(Me.btnQRVerwahrung)
|
||||||
Me.Panel8.Controls.Add(Me.lblAktUebernommen)
|
Me.Panel8.Controls.Add(Me.lblAktUebernommen)
|
||||||
Me.Panel8.Controls.Add(Me.lblLKWChat_MsgCnt)
|
Me.Panel8.Controls.Add(Me.lblLKWChat_MsgCnt)
|
||||||
Me.Panel8.Controls.Add(Me.lblBarZuKassierenSumme)
|
Me.Panel8.Controls.Add(Me.lblBarZuKassierenSumme)
|
||||||
@@ -1364,15 +1368,31 @@ Partial Class usrcntlAktDetails
|
|||||||
Me.Panel8.Size = New System.Drawing.Size(575, 120)
|
Me.Panel8.Size = New System.Drawing.Size(575, 120)
|
||||||
Me.Panel8.TabIndex = 92
|
Me.Panel8.TabIndex = 92
|
||||||
'
|
'
|
||||||
|
'btnQRVerwahrung
|
||||||
|
'
|
||||||
|
Me.btnQRVerwahrung.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||||
|
Me.btnQRVerwahrung.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||||
|
Me.btnQRVerwahrung.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
|
||||||
|
Me.btnQRVerwahrung.ForeColor = System.Drawing.Color.Black
|
||||||
|
Me.btnQRVerwahrung.Image = Global.AVISO.My.Resources.Resources.qr_s
|
||||||
|
Me.btnQRVerwahrung.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||||
|
Me.btnQRVerwahrung.Location = New System.Drawing.Point(369, 74)
|
||||||
|
Me.btnQRVerwahrung.Name = "btnQRVerwahrung"
|
||||||
|
Me.btnQRVerwahrung.Size = New System.Drawing.Size(69, 45)
|
||||||
|
Me.btnQRVerwahrung.TabIndex = 110
|
||||||
|
Me.btnQRVerwahrung.Text = "QR" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Vw."
|
||||||
|
Me.btnQRVerwahrung.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||||
|
Me.btnQRVerwahrung.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
'lblAktUebernommen
|
'lblAktUebernommen
|
||||||
'
|
'
|
||||||
Me.lblAktUebernommen.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
|
Me.lblAktUebernommen.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.lblAktUebernommen.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
Me.lblAktUebernommen.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
Me.lblAktUebernommen.ForeColor = System.Drawing.Color.Green
|
Me.lblAktUebernommen.ForeColor = System.Drawing.Color.Green
|
||||||
Me.lblAktUebernommen.Location = New System.Drawing.Point(208, 75)
|
Me.lblAktUebernommen.Location = New System.Drawing.Point(7, 79)
|
||||||
Me.lblAktUebernommen.Name = "lblAktUebernommen"
|
Me.lblAktUebernommen.Name = "lblAktUebernommen"
|
||||||
Me.lblAktUebernommen.Size = New System.Drawing.Size(205, 38)
|
Me.lblAktUebernommen.Size = New System.Drawing.Size(159, 17)
|
||||||
Me.lblAktUebernommen.TabIndex = 102
|
Me.lblAktUebernommen.TabIndex = 102
|
||||||
Me.lblAktUebernommen.Text = "Akt übernommen!"
|
Me.lblAktUebernommen.Text = "Akt übernommen!"
|
||||||
Me.lblAktUebernommen.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
Me.lblAktUebernommen.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||||
@@ -1442,9 +1462,9 @@ Partial Class usrcntlAktDetails
|
|||||||
Me.Button7.ForeColor = System.Drawing.Color.Black
|
Me.Button7.ForeColor = System.Drawing.Color.Black
|
||||||
Me.Button7.Image = Global.AVISO.My.Resources.Resources.handy1
|
Me.Button7.Image = Global.AVISO.My.Resources.Resources.handy1
|
||||||
Me.Button7.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
|
Me.Button7.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||||
Me.Button7.Location = New System.Drawing.Point(375, 0)
|
Me.Button7.Location = New System.Drawing.Point(369, 0)
|
||||||
Me.Button7.Name = "Button7"
|
Me.Button7.Name = "Button7"
|
||||||
Me.Button7.Size = New System.Drawing.Size(63, 36)
|
Me.Button7.Size = New System.Drawing.Size(69, 36)
|
||||||
Me.Button7.TabIndex = 107
|
Me.Button7.TabIndex = 107
|
||||||
Me.Button7.Text = "SMS"
|
Me.Button7.Text = "SMS"
|
||||||
Me.Button7.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
Me.Button7.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||||
@@ -1459,10 +1479,10 @@ Partial Class usrcntlAktDetails
|
|||||||
Me.btnLkwBeleg.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
Me.btnLkwBeleg.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
Me.btnLkwBeleg.ForeColor = System.Drawing.Color.Black
|
Me.btnLkwBeleg.ForeColor = System.Drawing.Color.Black
|
||||||
Me.btnLkwBeleg.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
|
Me.btnLkwBeleg.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||||
Me.btnLkwBeleg.Location = New System.Drawing.Point(375, 35)
|
Me.btnLkwBeleg.Location = New System.Drawing.Point(369, 35)
|
||||||
Me.btnLkwBeleg.Margin = New System.Windows.Forms.Padding(0)
|
Me.btnLkwBeleg.Margin = New System.Windows.Forms.Padding(0)
|
||||||
Me.btnLkwBeleg.Name = "btnLkwBeleg"
|
Me.btnLkwBeleg.Name = "btnLkwBeleg"
|
||||||
Me.btnLkwBeleg.Size = New System.Drawing.Size(63, 40)
|
Me.btnLkwBeleg.Size = New System.Drawing.Size(69, 40)
|
||||||
Me.btnLkwBeleg.TabIndex = 106
|
Me.btnLkwBeleg.TabIndex = 106
|
||||||
Me.btnLkwBeleg.Text = "BAR"
|
Me.btnLkwBeleg.Text = "BAR"
|
||||||
Me.btnLkwBeleg.UseVisualStyleBackColor = False
|
Me.btnLkwBeleg.UseVisualStyleBackColor = False
|
||||||
@@ -1499,7 +1519,7 @@ Partial Class usrcntlAktDetails
|
|||||||
Me.lblIMEX.BackColor = System.Drawing.SystemColors.WindowFrame
|
Me.lblIMEX.BackColor = System.Drawing.SystemColors.WindowFrame
|
||||||
Me.lblIMEX.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.0!, System.Drawing.FontStyle.Bold)
|
Me.lblIMEX.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.0!, System.Drawing.FontStyle.Bold)
|
||||||
Me.lblIMEX.ForeColor = System.Drawing.Color.White
|
Me.lblIMEX.ForeColor = System.Drawing.Color.White
|
||||||
Me.lblIMEX.Location = New System.Drawing.Point(184, 9)
|
Me.lblIMEX.Location = New System.Drawing.Point(179, 9)
|
||||||
Me.lblIMEX.Name = "lblIMEX"
|
Me.lblIMEX.Name = "lblIMEX"
|
||||||
Me.lblIMEX.Size = New System.Drawing.Size(86, 20)
|
Me.lblIMEX.Size = New System.Drawing.Size(86, 20)
|
||||||
Me.lblIMEX.TabIndex = 98
|
Me.lblIMEX.TabIndex = 98
|
||||||
@@ -1513,7 +1533,7 @@ Partial Class usrcntlAktDetails
|
|||||||
Me.cbxHandling.BackColor = System.Drawing.SystemColors.WindowFrame
|
Me.cbxHandling.BackColor = System.Drawing.SystemColors.WindowFrame
|
||||||
Me.cbxHandling.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.0!, System.Drawing.FontStyle.Bold)
|
Me.cbxHandling.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.0!, System.Drawing.FontStyle.Bold)
|
||||||
Me.cbxHandling.ForeColor = System.Drawing.Color.White
|
Me.cbxHandling.ForeColor = System.Drawing.Color.White
|
||||||
Me.cbxHandling.Location = New System.Drawing.Point(273, 9)
|
Me.cbxHandling.Location = New System.Drawing.Point(268, 9)
|
||||||
Me.cbxHandling.Name = "cbxHandling"
|
Me.cbxHandling.Name = "cbxHandling"
|
||||||
Me.cbxHandling.Size = New System.Drawing.Size(98, 20)
|
Me.cbxHandling.Size = New System.Drawing.Size(98, 20)
|
||||||
Me.cbxHandling.TabIndex = 99
|
Me.cbxHandling.TabIndex = 99
|
||||||
@@ -1999,7 +2019,7 @@ Partial Class usrcntlAktDetails
|
|||||||
Me.conMenuVermerke.ImageScalingSize = New System.Drawing.Size(24, 24)
|
Me.conMenuVermerke.ImageScalingSize = New System.Drawing.Size(24, 24)
|
||||||
Me.conMenuVermerke.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.conVermerkEntgLöschen, Me.HervorhebenToolStripMenuItem, Me.ToolUeberweisungsBeleg, Me.toolVkReminder, Me.MitarbeiterAnzeigenToolStripMenuItem, Me.conVermerkLöschenNew})
|
Me.conMenuVermerke.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.conVermerkEntgLöschen, Me.HervorhebenToolStripMenuItem, Me.ToolUeberweisungsBeleg, Me.toolVkReminder, Me.MitarbeiterAnzeigenToolStripMenuItem, Me.conVermerkLöschenNew})
|
||||||
Me.conMenuVermerke.Name = "conMenuVermerke"
|
Me.conMenuVermerke.Name = "conMenuVermerke"
|
||||||
Me.conMenuVermerke.Size = New System.Drawing.Size(252, 206)
|
Me.conMenuVermerke.Size = New System.Drawing.Size(252, 184)
|
||||||
'
|
'
|
||||||
'conVermerkEntgLöschen
|
'conVermerkEntgLöschen
|
||||||
'
|
'
|
||||||
@@ -2068,6 +2088,8 @@ Partial Class usrcntlAktDetails
|
|||||||
Me.pnlOptionen.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
Me.pnlOptionen.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||||
Me.pnlOptionen.BackColor = System.Drawing.Color.Black
|
Me.pnlOptionen.BackColor = System.Drawing.Color.Black
|
||||||
Me.pnlOptionen.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
Me.pnlOptionen.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||||
|
Me.pnlOptionen.Controls.Add(Me.Button8)
|
||||||
|
Me.pnlOptionen.Controls.Add(Me.Button1)
|
||||||
Me.pnlOptionen.Controls.Add(Me.Button16)
|
Me.pnlOptionen.Controls.Add(Me.Button16)
|
||||||
Me.pnlOptionen.Controls.Add(Me.Button15)
|
Me.pnlOptionen.Controls.Add(Me.Button15)
|
||||||
Me.pnlOptionen.Controls.Add(Me.Button6)
|
Me.pnlOptionen.Controls.Add(Me.Button6)
|
||||||
@@ -2081,10 +2103,42 @@ Partial Class usrcntlAktDetails
|
|||||||
Me.pnlOptionen.Controls.Add(Me.Button10)
|
Me.pnlOptionen.Controls.Add(Me.Button10)
|
||||||
Me.pnlOptionen.Location = New System.Drawing.Point(454, 141)
|
Me.pnlOptionen.Location = New System.Drawing.Point(454, 141)
|
||||||
Me.pnlOptionen.Name = "pnlOptionen"
|
Me.pnlOptionen.Name = "pnlOptionen"
|
||||||
Me.pnlOptionen.Size = New System.Drawing.Size(116, 255)
|
Me.pnlOptionen.Size = New System.Drawing.Size(116, 315)
|
||||||
Me.pnlOptionen.TabIndex = 82
|
Me.pnlOptionen.TabIndex = 82
|
||||||
Me.pnlOptionen.Visible = False
|
Me.pnlOptionen.Visible = False
|
||||||
'
|
'
|
||||||
|
'Button8
|
||||||
|
'
|
||||||
|
Me.Button8.BackColor = System.Drawing.Color.White
|
||||||
|
Me.Button8.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||||
|
Me.Button8.ForeColor = System.Drawing.Color.Black
|
||||||
|
Me.Button8.Image = Global.AVISO.My.Resources.Resources.android_note
|
||||||
|
Me.Button8.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||||
|
Me.Button8.Location = New System.Drawing.Point(3, 163)
|
||||||
|
Me.Button8.Name = "Button8"
|
||||||
|
Me.Button8.Size = New System.Drawing.Size(109, 22)
|
||||||
|
Me.Button8.TabIndex = 110
|
||||||
|
Me.Button8.TabStop = False
|
||||||
|
Me.Button8.Text = "öffnen"
|
||||||
|
Me.Button8.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||||
|
Me.Button8.UseVisualStyleBackColor = False
|
||||||
|
'
|
||||||
|
'Button1
|
||||||
|
'
|
||||||
|
Me.Button1.BackColor = System.Drawing.Color.White
|
||||||
|
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||||
|
Me.Button1.ForeColor = System.Drawing.Color.Black
|
||||||
|
Me.Button1.Image = Global.AVISO.My.Resources.Resources.android_note
|
||||||
|
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||||
|
Me.Button1.Location = New System.Drawing.Point(3, 126)
|
||||||
|
Me.Button1.Name = "Button1"
|
||||||
|
Me.Button1.Size = New System.Drawing.Size(109, 38)
|
||||||
|
Me.Button1.TabIndex = 109
|
||||||
|
Me.Button1.TabStop = False
|
||||||
|
Me.Button1.Text = "Verwahrung" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "QR"
|
||||||
|
Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||||
|
Me.Button1.UseVisualStyleBackColor = False
|
||||||
|
'
|
||||||
'Button16
|
'Button16
|
||||||
'
|
'
|
||||||
Me.Button16.BackColor = System.Drawing.Color.White
|
Me.Button16.BackColor = System.Drawing.Color.White
|
||||||
@@ -2092,7 +2146,7 @@ Partial Class usrcntlAktDetails
|
|||||||
Me.Button16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
|
Me.Button16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
|
||||||
Me.Button16.ForeColor = System.Drawing.Color.Black
|
Me.Button16.ForeColor = System.Drawing.Color.Black
|
||||||
Me.Button16.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
|
Me.Button16.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||||
Me.Button16.Location = New System.Drawing.Point(72, 185)
|
Me.Button16.Location = New System.Drawing.Point(72, 253)
|
||||||
Me.Button16.Name = "Button16"
|
Me.Button16.Name = "Button16"
|
||||||
Me.Button16.Size = New System.Drawing.Size(39, 28)
|
Me.Button16.Size = New System.Drawing.Size(39, 28)
|
||||||
Me.Button16.TabIndex = 108
|
Me.Button16.TabIndex = 108
|
||||||
@@ -2108,7 +2162,7 @@ Partial Class usrcntlAktDetails
|
|||||||
Me.Button15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
|
Me.Button15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
|
||||||
Me.Button15.ForeColor = System.Drawing.Color.Black
|
Me.Button15.ForeColor = System.Drawing.Color.Black
|
||||||
Me.Button15.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
|
Me.Button15.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||||
Me.Button15.Location = New System.Drawing.Point(72, 214)
|
Me.Button15.Location = New System.Drawing.Point(72, 282)
|
||||||
Me.Button15.Name = "Button15"
|
Me.Button15.Name = "Button15"
|
||||||
Me.Button15.Size = New System.Drawing.Size(39, 28)
|
Me.Button15.Size = New System.Drawing.Size(39, 28)
|
||||||
Me.Button15.TabIndex = 107
|
Me.Button15.TabIndex = 107
|
||||||
@@ -2124,7 +2178,7 @@ Partial Class usrcntlAktDetails
|
|||||||
Me.Button6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
|
Me.Button6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
|
||||||
Me.Button6.ForeColor = System.Drawing.Color.Black
|
Me.Button6.ForeColor = System.Drawing.Color.Black
|
||||||
Me.Button6.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
|
Me.Button6.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||||
Me.Button6.Location = New System.Drawing.Point(3, 214)
|
Me.Button6.Location = New System.Drawing.Point(3, 282)
|
||||||
Me.Button6.Name = "Button6"
|
Me.Button6.Name = "Button6"
|
||||||
Me.Button6.Size = New System.Drawing.Size(71, 28)
|
Me.Button6.Size = New System.Drawing.Size(71, 28)
|
||||||
Me.Button6.TabIndex = 105
|
Me.Button6.TabIndex = 105
|
||||||
@@ -2140,7 +2194,7 @@ Partial Class usrcntlAktDetails
|
|||||||
Me.Button4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
|
Me.Button4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
|
||||||
Me.Button4.ForeColor = System.Drawing.Color.Black
|
Me.Button4.ForeColor = System.Drawing.Color.Black
|
||||||
Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
|
Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||||
Me.Button4.Location = New System.Drawing.Point(3, 185)
|
Me.Button4.Location = New System.Drawing.Point(3, 253)
|
||||||
Me.Button4.Name = "Button4"
|
Me.Button4.Name = "Button4"
|
||||||
Me.Button4.Size = New System.Drawing.Size(71, 28)
|
Me.Button4.Size = New System.Drawing.Size(71, 28)
|
||||||
Me.Button4.TabIndex = 104
|
Me.Button4.TabIndex = 104
|
||||||
@@ -2156,7 +2210,7 @@ Partial Class usrcntlAktDetails
|
|||||||
Me.btnWlanTicket.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
|
Me.btnWlanTicket.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
|
||||||
Me.btnWlanTicket.ForeColor = System.Drawing.Color.Black
|
Me.btnWlanTicket.ForeColor = System.Drawing.Color.Black
|
||||||
Me.btnWlanTicket.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
|
Me.btnWlanTicket.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||||
Me.btnWlanTicket.Location = New System.Drawing.Point(3, 151)
|
Me.btnWlanTicket.Location = New System.Drawing.Point(3, 219)
|
||||||
Me.btnWlanTicket.Name = "btnWlanTicket"
|
Me.btnWlanTicket.Name = "btnWlanTicket"
|
||||||
Me.btnWlanTicket.Size = New System.Drawing.Size(109, 28)
|
Me.btnWlanTicket.Size = New System.Drawing.Size(109, 28)
|
||||||
Me.btnWlanTicket.TabIndex = 103
|
Me.btnWlanTicket.TabIndex = 103
|
||||||
@@ -2172,7 +2226,7 @@ Partial Class usrcntlAktDetails
|
|||||||
Me.Button13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
|
Me.Button13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
|
||||||
Me.Button13.ForeColor = System.Drawing.Color.Black
|
Me.Button13.ForeColor = System.Drawing.Color.Black
|
||||||
Me.Button13.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
|
Me.Button13.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||||
Me.Button13.Location = New System.Drawing.Point(3, 124)
|
Me.Button13.Location = New System.Drawing.Point(3, 192)
|
||||||
Me.Button13.Name = "Button13"
|
Me.Button13.Name = "Button13"
|
||||||
Me.Button13.Size = New System.Drawing.Size(71, 28)
|
Me.Button13.Size = New System.Drawing.Size(71, 28)
|
||||||
Me.Button13.TabIndex = 102
|
Me.Button13.TabIndex = 102
|
||||||
@@ -2250,7 +2304,7 @@ Partial Class usrcntlAktDetails
|
|||||||
Me.Button10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
|
Me.Button10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
|
||||||
Me.Button10.ForeColor = System.Drawing.Color.Black
|
Me.Button10.ForeColor = System.Drawing.Color.Black
|
||||||
Me.Button10.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
|
Me.Button10.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||||
Me.Button10.Location = New System.Drawing.Point(72, 124)
|
Me.Button10.Location = New System.Drawing.Point(72, 192)
|
||||||
Me.Button10.Name = "Button10"
|
Me.Button10.Name = "Button10"
|
||||||
Me.Button10.Size = New System.Drawing.Size(39, 28)
|
Me.Button10.Size = New System.Drawing.Size(39, 28)
|
||||||
Me.Button10.TabIndex = 106
|
Me.Button10.TabIndex = 106
|
||||||
@@ -2463,4 +2517,7 @@ Partial Class usrcntlAktDetails
|
|||||||
Friend WithEvents picAVISOMessengerSNDChat As PictureBox
|
Friend WithEvents picAVISOMessengerSNDChat As PictureBox
|
||||||
Friend WithEvents conVermerkLöschenNew As ToolStripMenuItem
|
Friend WithEvents conVermerkLöschenNew As ToolStripMenuItem
|
||||||
Friend WithEvents cbxLZDeFisk As VERAG_PROG_ALLGEMEIN.MyCheckbox
|
Friend WithEvents cbxLZDeFisk As VERAG_PROG_ALLGEMEIN.MyCheckbox
|
||||||
|
Friend WithEvents Button1 As Button
|
||||||
|
Friend WithEvents Button8 As Button
|
||||||
|
Friend WithEvents btnQRVerwahrung As Button
|
||||||
End Class
|
End Class
|
||||||
|
|||||||
@@ -350,7 +350,6 @@ Public Class usrcntlAktDetails
|
|||||||
' btnLkwBeleg.Visible = False
|
' btnLkwBeleg.Visible = False
|
||||||
btnAktAbschliessen.Visible = False
|
btnAktAbschliessen.Visible = False
|
||||||
btnAktAbschliessen.BackColor = Color.DarkGreen
|
btnAktAbschliessen.BackColor = Color.DarkGreen
|
||||||
|
|
||||||
lblBarZuKassierenSumme.Visible = False
|
lblBarZuKassierenSumme.Visible = False
|
||||||
|
|
||||||
Select Case AVISO.Status
|
Select Case AVISO.Status
|
||||||
@@ -393,9 +392,12 @@ Public Class usrcntlAktDetails
|
|||||||
pnlAbgeschlossen.Visible = True
|
pnlAbgeschlossen.Visible = True
|
||||||
btnAktAbschliessen.Visible = False
|
btnAktAbschliessen.Visible = False
|
||||||
' btnLkwBeleg.Visible = False
|
' btnLkwBeleg.Visible = False
|
||||||
|
btnQRVerwahrung.Visible = False
|
||||||
|
|
||||||
Else
|
Else
|
||||||
pnlAbgeschlossen.Visible = False
|
pnlAbgeschlossen.Visible = False
|
||||||
' btnAktAbschliessen.Visible = True
|
' btnAktAbschliessen.Visible = True
|
||||||
|
btnQRVerwahrung.Visible = True
|
||||||
End If
|
End If
|
||||||
|
|
||||||
intiAktUebernehmenBtn()
|
intiAktUebernehmenBtn()
|
||||||
@@ -874,7 +876,7 @@ Public Class usrcntlAktDetails
|
|||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Public Shared vermerkehSQL As String = " SELECT TOP 1000 [VermerkID],[AvisoID], [SendungID],[VermerkeCode], [Datum],[MitarbeiterId],tblSendungen.tblSnd_PosUnterNr,Hervorheben,Geloescht," &
|
Public Shared vermerkehSQL As String = " SELECT TOP 1000 [VermerkID],[AvisoID], [SendungID],[VermerkeCode], [Datum],[MitarbeiterId],tblSendungen.tblSnd_PosUnterNr,Hervorheben,Geloescht," &
|
||||||
" CASE WHEN VermerkeCode IS NULL OR VermerkeCode IN (13,25,28,29,30,35,46,47,94,78,101,102) THEN Hinweis_Vermerk ELSE VermerkeCodes.Bezeichnung END as [Hinweis_Vermerk_Anzeige],[Hinweis_Vermerk], tblSendungen.tblSnd_Empfaenger ,[Mitarbeiter],VorauskasseId,SMSId,VermerkIDAufgehoben, Datum as DatumValue" &
|
" CASE WHEN VermerkeCode IS NULL OR VermerkeCode IN (13,14,25,28,29,30,35,46,47,59,94,78,101,102) THEN Hinweis_Vermerk ELSE VermerkeCodes.Bezeichnung END as [Hinweis_Vermerk_Anzeige],[Hinweis_Vermerk], tblSendungen.tblSnd_Empfaenger ,[Mitarbeiter],VorauskasseId,SMSId,VermerkIDAufgehoben, Datum as DatumValue" &
|
||||||
" FROM [Vermerke] LEFT JOIN VermerkeCodes ON [VermerkeCode]=VermerkeCodes.VermerkCodeId " &
|
" FROM [Vermerke] LEFT JOIN VermerkeCodes ON [VermerkeCode]=VermerkeCodes.VermerkCodeId " &
|
||||||
" LEFT JOIN tblSendungen ON [SendungID]=tblSendungen.tblSnd_SendungID " &
|
" LEFT JOIN tblSendungen ON [SendungID]=tblSendungen.tblSnd_SendungID " &
|
||||||
" WHERE AvisoID = [[AvisoId]] [[sendwhere]] AND HintergrundVermerk =0 " &
|
" WHERE AvisoID = [[AvisoId]] [[sendwhere]] AND HintergrundVermerk =0 " &
|
||||||
@@ -1199,7 +1201,7 @@ Public Class usrcntlAktDetails
|
|||||||
init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
|
init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
|
||||||
|
|
||||||
Case "46"
|
Case "46"
|
||||||
MsgBox("SMS " & gridVermerke.Rows(RowIndex).Cells("VermerkeOptions").ToolTipText)
|
' MsgBox("SMS " & gridVermerke.Rows(RowIndex).Cells("VermerkeOptions").ToolTipText)
|
||||||
init = False 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
|
init = False 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
|
||||||
|
|
||||||
Case "36"
|
Case "36"
|
||||||
@@ -1329,7 +1331,7 @@ Public Class usrcntlAktDetails
|
|||||||
For Each r As DataGridViewRow In gridvermerke.Rows
|
For Each r As DataGridViewRow In gridvermerke.Rows
|
||||||
' If r.Cells("VermerkeOptions").GetType.Name = "DataGridViewLinkCell" Then
|
' If r.Cells("VermerkeOptions").GetType.Name = "DataGridViewLinkCell" Then
|
||||||
Dim optionCell As DataGridViewLinkCell = DirectCast(r.Cells("VermerkeOptions"), DataGridViewLinkCell)
|
Dim optionCell As DataGridViewLinkCell = DirectCast(r.Cells("VermerkeOptions"), DataGridViewLinkCell)
|
||||||
If CBool(r.Cells("Hervorheben").Value) Then
|
If gridvermerke.Columns.Contains("Hervorheben") AndAlso CBool(r.Cells("Hervorheben").Value) Then
|
||||||
'r.DefaultCellStyle.BackColor = Color.Firebrick
|
'r.DefaultCellStyle.BackColor = Color.Firebrick
|
||||||
'r.DefaultCellStyle.ForeColor = Color.White
|
'r.DefaultCellStyle.ForeColor = Color.White
|
||||||
r.DefaultCellStyle.BackColor = Color.Yellow
|
r.DefaultCellStyle.BackColor = Color.Yellow
|
||||||
@@ -1533,8 +1535,8 @@ Public Class usrcntlAktDetails
|
|||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Sub ArrowDown_ShowHide()
|
Sub ArrowDown_ShowHide()
|
||||||
If isFailureShown Then Exit Sub
|
|
||||||
picArrowDown.Visible = False
|
picArrowDown.Visible = False
|
||||||
|
If isFailureShown Then Exit Sub
|
||||||
If dgvSendungen.RowCount = 0 Then Exit Sub
|
If dgvSendungen.RowCount = 0 Then Exit Sub
|
||||||
Select Case tbcntlVermerke.SelectedIndex
|
Select Case tbcntlVermerke.SelectedIndex
|
||||||
Case 0, 1, 2
|
Case 0, 1, 2
|
||||||
@@ -1543,7 +1545,8 @@ Public Class usrcntlAktDetails
|
|||||||
For Each r As DataGridViewRow In gridVermerke.Rows
|
For Each r As DataGridViewRow In gridVermerke.Rows
|
||||||
If r.Displayed Then showFirst = True
|
If r.Displayed Then showFirst = True
|
||||||
If showFirst Then
|
If showFirst Then
|
||||||
If (r.Cells("Hervorheben").Value = "1" Or r.Cells("VermerkeOptions").Value <> "") AndAlso Not r.Displayed Then
|
|
||||||
|
If (gridVermerke.Columns.Contains("Hervorheben") AndAlso (r.Cells("Hervorheben") IsNot Nothing AndAlso r.Cells("Hervorheben").Value = "1") Or (gridVermerke.Columns.Contains("VermerkeOptions") AndAlso r.Cells("VermerkeOptions") IsNot Nothing AndAlso r.Cells("VermerkeOptions").Value <> "")) AndAlso Not r.Displayed Then
|
||||||
picArrowDown.Visible = True
|
picArrowDown.Visible = True
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
@@ -1569,7 +1572,7 @@ Public Class usrcntlAktDetails
|
|||||||
Select Case code
|
Select Case code
|
||||||
Case 59
|
Case 59
|
||||||
Return True
|
Return True
|
||||||
Case 2, 4, 6, 8, 10, 12, 14, 30, 37, 34
|
Case 2, 4, 6, 8, 10, 12, 30, 37, 34
|
||||||
If text = "" Or DirectCast(r.Cells("Hinweis_Vermerk"), DataGridViewTextBoxCell).Value.ToString.Replace("erhalten", "angefordert") = text Then
|
If text = "" Or DirectCast(r.Cells("Hinweis_Vermerk"), DataGridViewTextBoxCell).Value.ToString.Replace("erhalten", "angefordert") = text Then
|
||||||
Return True
|
Return True
|
||||||
End If
|
End If
|
||||||
@@ -2012,6 +2015,7 @@ Public Class usrcntlAktDetails
|
|||||||
|
|
||||||
Private Sub btnAnkunft_Click(sender As Object, e As EventArgs) Handles btnAnkunft.Click
|
Private Sub btnAnkunft_Click(sender As Object, e As EventArgs) Handles btnAnkunft.Click
|
||||||
If FUNC.setAnkunft(AvisoID) Then
|
If FUNC.setAnkunft(AvisoID) Then
|
||||||
|
' MsgBox("H1")
|
||||||
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)
|
||||||
End If
|
End If
|
||||||
@@ -2246,7 +2250,7 @@ Public Class usrcntlAktDetails
|
|||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btnOptionen.Click
|
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btnOptionen.Click
|
||||||
pnlOptionen.Height = 250 '220 '183 '157 '125
|
pnlOptionen.Height = 315 '250 '220 '183 '157 '125
|
||||||
pnlOptionen.Visible = Not pnlOptionen.Visible
|
pnlOptionen.Visible = Not pnlOptionen.Visible
|
||||||
|
|
||||||
If pnlOptionen.Visible Then pnlOptionen.Location = New Point(pnlOptionen.Location.X, btnOptionen.Height + pnl.Height + FlowLayoutPanel.Height)
|
If pnlOptionen.Visible Then pnlOptionen.Location = New Point(pnlOptionen.Location.X, btnOptionen.Height + pnl.Height + FlowLayoutPanel.Height)
|
||||||
@@ -3846,5 +3850,26 @@ Public Class usrcntlAktDetails
|
|||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
|
Private Sub Button1_Click_2(sender As Object, e As EventArgs) Handles Button1.Click, Button8.Click, btnQRVerwahrung.Click
|
||||||
|
Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = Nothing
|
||||||
|
|
||||||
|
If dgvSendungen.SelectedRows.Count > 0 Then
|
||||||
|
SND = New VERAG_PROG_ALLGEMEIN.cSendungen(dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value)
|
||||||
|
End If
|
||||||
|
|
||||||
|
Dim rpt As New rptQRSendung_VerwahrungApp(AVISO, SND)
|
||||||
|
Dim printer = VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_BON
|
||||||
|
If printer = "" Then printer = SDL.cProgramFunctions.getDruckernameBySearch("BON", True)
|
||||||
|
If printer = "" Then printer = SDL.cProgramFunctions.getDruckernameBySearch("INFO", True)
|
||||||
|
|
||||||
|
|
||||||
|
If sender Is Button8 OrElse printer = "" Then
|
||||||
|
SDL.cProgramFunctions.showRpt(rpt, "AVISO", False)
|
||||||
|
Else
|
||||||
|
SDL.cProgramFunctions.printRpt(rpt, printer, True)
|
||||||
|
End If
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
End Class
|
End Class
|
||||||
|
|
||||||
|
|||||||
BIN
Diverses/handy_truck.jpg
Normal file
BIN
Diverses/handy_truck.jpg
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 33 KiB |
BIN
Diverses/qr.png
Normal file
BIN
Diverses/qr.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 5.0 KiB |
BIN
Diverses/qr_s.png
Normal file
BIN
Diverses/qr_s.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 2.1 KiB |
BIN
Diverses/remind-4-32.png
Normal file
BIN
Diverses/remind-4-32.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 707 B |
BIN
Diverses/reminder.png
Normal file
BIN
Diverses/reminder.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 2.0 KiB |
27
Gemeinsames/rptSendungen.Designer.vb
generated
27
Gemeinsames/rptSendungen.Designer.vb
generated
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
@@ -174,13 +174,18 @@ Public Class rptSendungen
|
|||||||
|
|
||||||
If barcodeLKW IsNot Nothing Then
|
If barcodeLKW IsNot Nothing Then
|
||||||
If VALUES.barcodeLKW IsNot Nothing Then
|
If VALUES.barcodeLKW IsNot Nothing Then
|
||||||
|
|
||||||
barcodeLKW.Image = If(VALUES.barcodeLKW, Nothing)
|
barcodeLKW.Image = If(VALUES.barcodeLKW, Nothing)
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
|
|
||||||
barcodeSendung.Image = If(VALUES.barcodeSendung, Nothing)
|
barcodeSendung.Image = If(VALUES.barcodeSendung, Nothing)
|
||||||
|
|
||||||
|
' picQR.Image = If(VALUES.imgQR, Nothing)
|
||||||
|
If picQR IsNot Nothing Then
|
||||||
|
If VALUES.imgQR IsNot Nothing Then
|
||||||
|
picQR.Image = If(VALUES.imgQR, Nothing)
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
'OFFERTE!
|
'OFFERTE!
|
||||||
If False Then
|
If False Then
|
||||||
@@ -331,6 +336,7 @@ Public Class rptSendungenValues
|
|||||||
|
|
||||||
Property barcodeLKW As Image = Nothing
|
Property barcodeLKW As Image = Nothing
|
||||||
Property barcodeSendung As Image = Nothing
|
Property barcodeSendung As Image = Nothing
|
||||||
|
Property imgQR As Image = Nothing
|
||||||
|
|
||||||
Property AbfKost As String = ""
|
Property AbfKost As String = ""
|
||||||
Property AbfKostKdnr As Integer = -1
|
Property AbfKostKdnr As Integer = -1
|
||||||
|
|||||||
Reference in New Issue
Block a user