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

test

Browse Source
This commit is contained in:
m.ilhan
2024-12-12 10:59:29 +01:00
parent 9adffd7397 6ca88da90c
commit d650c055b2
39 changed files with 2974 additions and 1209 deletions
Download Patch File Download Diff File Expand all files Collapse all files

41
Aviso/Anhänge/frmAddSendnung.Designer.vb generated
View File

@@ -47,6 +47,8 @@ Partial Class frmAddSendnung
Me.txtWarenwertWaehrung = New VERAG_PROG_ALLGEMEIN.MySearchBox()
Me.lblWW = New System.Windows.Forms.Label()
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.picWarnEmpfaenger, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
@@ -59,9 +61,9 @@ Partial Class frmAddSendnung
Me.cboAbfertigungsart.BackColor = System.Drawing.Color.White
Me.cboAbfertigungsart.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboAbfertigungsart.FormattingEnabled = True
Me.cboAbfertigungsart.Location = New System.Drawing.Point(12, 29)
Me.cboAbfertigungsart.Location = New System.Drawing.Point(102, 29)
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
'
'Label1
@@ -69,7 +71,7 @@ Partial Class frmAddSendnung
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.ForeColor = System.Drawing.Color.Black
Me.Label1.Location = New System.Drawing.Point(10, 9)
Me.Label1.Location = New System.Drawing.Point(99, 9)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(109, 17)
Me.Label1.TabIndex = 0
@@ -86,6 +88,7 @@ Partial Class frmAddSendnung
Me.txtEmpfaenger._displayWoelflKd = False
Me.txtEmpfaenger._hideIfListEmpty = True
Me.txtEmpfaenger._loadKdData = True
Me.txtEmpfaenger._searchName1 = True
Me.txtEmpfaenger._UseFIRMA = ""
Me.txtEmpfaenger._ValueKdAndName = True
Me.txtEmpfaenger.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
@@ -109,6 +112,7 @@ Partial Class frmAddSendnung
Me.txtGewicht._DateTimeOnly = False
Me.txtGewicht._numbersOnly = True
Me.txtGewicht._numbersOnlyKommastellen = ""
Me.txtGewicht._numbersOnlyTrennzeichen = True
Me.txtGewicht._Prozent = False
Me.txtGewicht._ShortDateNew = False
Me.txtGewicht._ShortDateOnly = False
@@ -150,6 +154,7 @@ Partial Class frmAddSendnung
Me.txtColli._DateTimeOnly = False
Me.txtColli._numbersOnly = True
Me.txtColli._numbersOnlyKommastellen = ""
Me.txtColli._numbersOnlyTrennzeichen = True
Me.txtColli._Prozent = False
Me.txtColli._ShortDateNew = False
Me.txtColli._ShortDateOnly = False
@@ -230,6 +235,7 @@ Partial Class frmAddSendnung
Me.txtAbsender._displayWoelflKd = False
Me.txtAbsender._hideIfListEmpty = True
Me.txtAbsender._loadKdData = True
Me.txtAbsender._searchName1 = True
Me.txtAbsender._UseFIRMA = ""
Me.txtAbsender._ValueKdAndName = True
Me.txtAbsender.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
@@ -360,6 +366,7 @@ Partial Class frmAddSendnung
Me.txtWarenwert._DateTimeOnly = False
Me.txtWarenwert._numbersOnly = True
Me.txtWarenwert._numbersOnlyKommastellen = ""
Me.txtWarenwert._numbersOnlyTrennzeichen = True
Me.txtWarenwert._Prozent = False
Me.txtWarenwert._ShortDateNew = False
Me.txtWarenwert._ShortDateOnly = False
@@ -378,12 +385,38 @@ Partial Class frmAddSendnung
Me.txtWarenwert.TabIndex = 15
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
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(449, 441)
Me.Controls.Add(Me.cboAbfertigungsLand)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.txtWarenwertWaehrung)
Me.Controls.Add(Me.lblWW)
Me.Controls.Add(Me.txtWarenwert)
@@ -440,4 +473,6 @@ Partial Class frmAddSendnung
Friend WithEvents txtWarenwertWaehrung As VERAG_PROG_ALLGEMEIN.MySearchBox
Friend WithEvents lblWW As Label
Friend WithEvents txtWarenwert As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label5 As Label
Friend WithEvents cboAbfertigungsLand As VERAG_PROG_ALLGEMEIN.MyComboBox
End Class

52
Aviso/Anhänge/frmAddSendnung.vb
View File

@@ -3,10 +3,12 @@
Public Sendung As VERAG_PROG_ALLGEMEIN.cSendungen = Nothing
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim AvisoId As Integer
Dim filialNr As Integer = -1
Dim AVISOFUNC As New AvisoStatusFunctions
Public SendungsId As Integer = -1
Public frmName As String = "Sendung hinzufügen"
Sub New(AvisoId)
Sub New(AvisoId As Integer)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
@@ -15,7 +17,7 @@
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.
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.
InitializeComponent()
@@ -36,12 +38,24 @@
Me.frmName = frmName
' 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
Private Sub frmAddSendnung_Load(sender As Object, e As EventArgs) Handles Me.Load
'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)
txtEmpfaenger.initKdBox(Me)
txtEmpfaenger.usrcntlWIDTH = 360
@@ -98,7 +112,7 @@
If txtGewicht.Text <> "" And Not IsNumeric(txtGewicht.Text) Then MsgBox("Gewicht: Falsches Format") : Exit Sub
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
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
sender.Text = sender.Text.Replace(" ", "")
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

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

@@ -22,9 +22,12 @@ Partial Class frmSendungAnhangImport
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSendungAnhangImport))
Me.lbl = New System.Windows.Forms.Label()
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.lblSendungen = 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.cbxDelPDF = New System.Windows.Forms.CheckBox()
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.DateiScannenToolStripMenuItem = 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.Button5 = New System.Windows.Forms.Button()
Me.PdfViewer = New Spire.PdfViewer.Forms.PdfViewer()
Me.WebBrowser = New System.Windows.Forms.WebBrowser()
Me.Button3 = New System.Windows.Forms.Button()
Me.btnSndDel = New System.Windows.Forms.Button()
Me.PrintDocument1 = New System.Drawing.Printing.PrintDocument()
@@ -68,9 +72,6 @@ Partial Class frmSendungAnhangImport
Me.Button17 = New System.Windows.Forms.Button()
Me.lblRgPreis = New System.Windows.Forms.Label()
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.pnlAnfuegen.SuspendLayout()
Me.cntxt.SuspendLayout()
@@ -102,6 +103,38 @@ Partial Class frmSendungAnhangImport
Me.flpnlAviso.Size = New System.Drawing.Size(200, 825)
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
'
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.FormFillEnabled = False
Me.PdfViewer.IgnoreCase = False
Me.PdfViewer.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.PdfViewer.IsToolBarVisible = True
Me.PdfViewer.Location = New System.Drawing.Point(0, 0)
Me.PdfViewer.MultiPagesThreshold = 60
@@ -473,6 +507,15 @@ Partial Class frmSendungAnhangImport
Me.PdfViewer.Threshold = 60
Me.PdfViewer.ViewerBackgroundColor = System.Drawing.Color.FromArgb(CType(CType(229, Byte), Integer), CType(CType(229, Byte), Integer), CType(CType(229, Byte), Integer))
'
'WebBrowser
'
Me.WebBrowser.Dock = System.Windows.Forms.DockStyle.Fill
Me.WebBrowser.Location = New System.Drawing.Point(0, 0)
Me.WebBrowser.MinimumSize = New System.Drawing.Size(20, 20)
Me.WebBrowser.Name = "WebBrowser"
Me.WebBrowser.Size = New System.Drawing.Size(844, 655)
Me.WebBrowser.TabIndex = 1
'
'Button3
'
Me.Button3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -631,45 +674,6 @@ Partial Class frmSendungAnhangImport
Me.pnlSendung.Size = New System.Drawing.Size(243, 860)
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
'
Me.AllowDrop = True

59
Aviso/Anhänge/frmSendungAnhangImport.vb
View File

@@ -154,10 +154,16 @@ Public Class frmSendungAnhangImport
'NOT WORKING
'PdfViewer.LoadFromFile(loc) NOT WORKING
End If
ElseIf typ = "BILD" Then
ElseIf typ = "BILD" Or typ = ".jpg" Then
PdfViewer.Visible = False
WebBrowser.Visible = (loc <> "")
WebBrowser.Navigate(loc)
' WebBrowser.Navigate(loc)
If loc <> "" Then
DisplayImageInWebBrowser(loc, WebBrowser)
Else
WebBrowser.Navigate("")
End If
End If
Button5.Visible = PdfViewer.Visible
@@ -166,6 +172,42 @@ Public Class frmSendungAnhangImport
End Try
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
For Each u As usrCntlSendungAnhangElement In flpnlAviso.Controls
If u.ACTIVE Then Return flpnlAviso
@@ -1611,7 +1653,16 @@ Public Class frmSendungAnhangImport
End Sub
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
initSendungen()
cboSendungen.changeItem(f.SendungsId)
@@ -1991,6 +2042,8 @@ Public Class frmSendungAnhangImport
If FilePath <> "" Then
addData_SendungAnhang(FilePath)
End If
' ElseIf e.Data.GetDataPresent(DataFormats.drag) Then
End If

12
Aviso/Aviso.vbproj
View File

@@ -500,6 +500,12 @@
<Compile Include="Auswertung\usrctlAuswertung.vb">
<SubType>UserControl</SubType>
</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">
<DependentUpon>rptTEST.vb</DependentUpon>
</Compile>
@@ -1200,6 +1206,9 @@
<EmbeddedResource Include="Auswertung\usrctlAuswertung.resx">
<DependentUpon>usrctlAuswertung.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="AvisoReports\rptQRSendung_VerwahrungApp.resx">
<DependentUpon>rptQRSendung_VerwahrungApp.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="AvisoReports\rptTEST.resx">
<DependentUpon>rptTEST.vb</DependentUpon>
</EmbeddedResource>
@@ -1695,6 +1704,9 @@
<None Include="Resources\memories3.png" />
<None Include="Resources\memories4.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">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>

40
Aviso/AvisoReports/rptQRAviso.vb
View File

@@ -52,9 +52,9 @@ Public Class rptQRAviso
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 = 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
@@ -98,41 +98,5 @@ Public Class rptQRAviso
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

378
Aviso/AvisoReports/rptQRSendung_VerwahrungApp.Designer.vb generated Normal file
View 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
View File

File diff suppressed because one or more lines are too long

112
Aviso/AvisoReports/rptQRSendung_VerwahrungApp.vb Normal file
View 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) & "&timestamp=" & VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(Now.ToString("ddMMyyyy_HHmm")))
Dim token = VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt("avisoid=" & (AVISO.AvisoID) & "&sendungsid=" & (tblSnd_SendungID) & "&timestamp=" & 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

22
Aviso/Benachrichtigung/usrCntlBenachrichtigungen.vb
View File

@@ -189,6 +189,8 @@ Public Class usrCntlBenachrichtigungen
If r.Cells("ab_BenachrichtigungCode").Value = "6" Then
r.Cells("ab_Art").Value = "VK"
End If
Next
'.Width = gridAviso.Width - gridVermerke.Width
@@ -205,6 +207,26 @@ Public Class usrCntlBenachrichtigungen
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
'MyComboBox2.Items.Clear()

13
Aviso/Classes/cSendungsoptions.vb
View File

@@ -163,6 +163,13 @@ Public Class SendungOptions
If barcodeLKW IsNot Nothing Then VALUES.barcodeLKW = barcodeLKW
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.Abfertigungsnummer = SENDUNG.AbfertigungsNr
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 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 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
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" Then
@@ -238,6 +245,10 @@ Public Class SendungOptions
VALUES.Tarifposanzahl = SENDUNG.tblSnd_anzahlHandling
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 &= 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, "")

4
Aviso/My Project/AssemblyInfo.vb
View File

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

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

@@ -1318,6 +1318,26 @@ Namespace My.Resources
End Get
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>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
@@ -1338,6 +1358,16 @@ Namespace My.Resources
End Get
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>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>

107
Aviso/My Project/Resources.resx
View File

@@ -124,8 +124,8 @@
<data name="stift" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\stift.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="IMEX_LOGO_simple" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\IMEX-LOGO_simple.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data 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="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>
@@ -142,6 +142,9 @@
<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>
</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">
<value>..\Resources\del.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -151,8 +154,8 @@
<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>
</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 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="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>
@@ -172,6 +175,9 @@
<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>
</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">
<value>..\Resources\weiterleiten.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -187,6 +193,9 @@
<data name="VZ_HINDERNISS___ZOLLBESCHAU___PROTOKOLL" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\resources\vz hinderniss - zollbeschau - protokoll.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="info" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\info.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="abfetigungTR_aktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\..\Diverses\miniButtons\abfetigungTR_aktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -196,9 +205,6 @@
<data name="digitalerAkt" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\digitalerAkt.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="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">
<value>..\Resources\android-add-contact.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -325,6 +331,9 @@
<data name="gear2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\gear2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="qr" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\qr.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<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>
</data>
@@ -352,6 +361,9 @@
<data name="personCheck_gray_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\personCheck_gray_small.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="email_big1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\email_big1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ge_transport" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ge_transport.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -370,14 +382,14 @@
<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>
</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">
<value>..\Resources\arrow-right-a.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="passport" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\passport.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="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 name="IMEX_LOGO_simple" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\IMEX-LOGO_simple.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="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>
@@ -400,9 +412,6 @@
<data name="DGS_Instructions_Export" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\resources\dgs_instructions_export.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="AMB" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\AMB.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="person" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\person.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -460,6 +469,9 @@
<data name="Unisped_DE_logo" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Unisped_DE_logo.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="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">
<value>..\Resources\android-add-contact.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -490,24 +502,33 @@
<data name="warning2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\warning2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="scanner" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\scanner.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="fakturiertInaktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\fakturiertInaktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<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">
<value>..\Resources\stift1.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="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>
</data>
<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>
</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">
<value>..\Resources\ok.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</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">
<value>..\Resources\zoll1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -532,11 +553,17 @@
<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>
</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">
<value>..\Resources\vorauszahlung1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="info" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\info.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="kasse1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\kasse1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="abgeklaertInaktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\abgeklaertInaktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<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>
@@ -583,6 +610,9 @@
<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>
</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">
<value>..\Resources\noAviso_s1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -592,8 +622,8 @@
<data name="NDK" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\NDK.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="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 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="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>
@@ -625,8 +655,8 @@
<data name="vermerkBtn" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\vermerkBtn.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="abgeklaertInaktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\abgeklaertInaktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="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="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>
@@ -637,8 +667,8 @@
<data name="truck_black" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\truck_black.ico;System.Drawing.Icon, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="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 name="passport" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\passport.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="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>
@@ -667,28 +697,7 @@
<data name="abfetigungTR_inaktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\..\Diverses\miniButtons\abfetigungTR_inaktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="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="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 name="qr_s" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\qr_s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
</root>

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

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 5.0 KiB

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

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 2.1 KiB

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

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 2.0 KiB

43
Aviso/frmAddAktenvermerkShort.Designer.vb generated
View File

@@ -66,6 +66,8 @@ Partial Class frmAddAktenvermerkShort
Me.Label16 = New System.Windows.Forms.Label()
Me.cntxt = New System.Windows.Forms.ContextMenuStrip(Me.components)
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.Panel1.SuspendLayout()
Me.pnl.SuspendLayout()
@@ -76,6 +78,8 @@ Partial Class frmAddAktenvermerkShort
'
Me.pnlAktenVermerk.BackColor = System.Drawing.Color.White
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.btnLKWumgemeldet)
Me.pnlAktenVermerk.Controls.Add(Me.btnDEZollDIGITAL)
@@ -542,12 +546,11 @@ Partial Class frmAddAktenvermerkShort
'btnLKWStandzeitFeierteage
'
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.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.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.Text = "LKW Standzeit Feiertag(e)"
Me.btnLKWStandzeitFeierteage.TextAlign = System.Drawing.ContentAlignment.BottomCenter
@@ -558,12 +561,12 @@ Partial Class frmAddAktenvermerkShort
Me.btnLKWStandzeitWE.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnLKWStandzeitWE.Image = CType(resources.GetObject("btnLKWStandzeitWE.Image"), System.Drawing.Image)
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.Name = "btnLKWStandzeitWE"
Me.btnLKWStandzeitWE.Size = New System.Drawing.Size(89, 83)
Me.btnLKWStandzeitWE.TabIndex = 86
Me.btnLKWStandzeitWE.Text = "LKW Standzeit Wochenende"
Me.btnLKWStandzeitWE.Text = "StZt.Wochenende"
Me.btnLKWStandzeitWE.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.btnLKWStandzeitWE.UseVisualStyleBackColor = True
'
@@ -623,7 +626,7 @@ Partial Class frmAddAktenvermerkShort
Me.Label16.AutoSize = True
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.Location = New System.Drawing.Point(202, 20)
Me.Label16.Location = New System.Drawing.Point(295, 20)
Me.Label16.Name = "Label16"
Me.Label16.Size = New System.Drawing.Size(60, 13)
Me.Label16.TabIndex = 9
@@ -641,6 +644,32 @@ Partial Class frmAddAktenvermerkShort
Me.XXXToolStripMenuItem.Size = New System.Drawing.Size(95, 22)
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
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -705,4 +734,6 @@ Partial Class frmAddAktenvermerkShort
Friend WithEvents btnLKWUmmelden As Button
Friend WithEvents cntxt As ContextMenuStrip
Friend WithEvents XXXToolStripMenuItem As ToolStripMenuItem
Friend WithEvents Label5 As Label
Friend WithEvents btnVerwahrung As Button
End Class

100
Aviso/frmAddAktenvermerkShort.vb
View File

@@ -1,5 +1,6 @@

Imports System.ComponentModel
Imports GrapeCity.DataVisualization.TypeScript
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") -
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
btnZollATEingereicht.Tag = "SWITCH"
btnZollATEingereicht.FlatAppearance.BorderColor = Color.Black
btnZollATEingereicht.Text = "Zoll AT " & vbNewLine & "fertig"
Dim Warenort = False
Dim Warenort_Land = ""
If myAviso.Grenzstelle.Replace("???", "") <> "" Then
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
If de > 0 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
If at > 0 Or (Warenort AndAlso Warenort_Land = "AT") Then
btnZollATEingereicht.BackColor = Color.Green
btnZollATEingereicht.ForeColor = Color.White
btnZollATEingereicht.Tag = "SWITCH"
btnZollATEingereicht.FlatAppearance.BorderColor = Color.Black
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.ForeColor = Color.White
btnDEZollDIGITAL.Tag = "SWITCH"
@@ -96,6 +112,7 @@ Public Class frmAddAktenvermerkShort
btnDEZollDIGITAL.Text = "Zoll DE " & vbNewLine & "fertig"
End If
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, "")
@@ -145,6 +162,7 @@ Public Class frmAddAktenvermerkShort
If c Is btnAnkunft Then enabledTmp = True
If c Is btnFreigabe 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 btnLKWStandzeitFeierteage 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,
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
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)
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
Select Case SND.tblSnd_Abfertigungsart_ID
Case 28 ' --> DE FISKAL
@@ -272,20 +290,20 @@ btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Cli
'VERANLAGUNGSKUNDE
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)
If f.ShowDialog() = DialogResult.OK Then
If f.cbxEmpf.Checked Then
Dim f As New frmATZollEingereichtSetzenEV(myAviso, SND)
If f.ShowDialog() = DialogResult.OK Then
If f.cbxEmpf.Checked Then
AvisoStatusFunctions.insertSendungsVermerk(SND.tblSnd_SendungID, myAviso.AvisoID, "Veranlagungs-Checkliste - OK (ZA auf Empf)", 114)
Else
AvisoStatusFunctions.insertSendungsVermerk(SND.tblSnd_SendungID, myAviso.AvisoID, "Veranlagungs-Checkliste - OK", 113)
End If
Else
Exit Sub ' --> YOU'RE OUT!
End If
Else
Exit Sub ' --> YOU'RE OUT!
End If
'--------------------------------------------------------------------------------------------------------------------------------------------------------
Next
End If
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)
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
'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
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)
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)
'If vbYes = MsgBox("Fahrer-Anweisung ""zum Zollamt gehen"" ausdrucken?", vbYesNo) Then
' Try
' Dim path = SDL.FormularManagerNEU.zumZOLL_AVISO(myAviso, "AT")
' 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
'End If
End If
ElseIf sender Is btnLKWStandzeitWE Then
'If vbYes = MsgBox("Fahrer-Anweisung ""zum Zollamt gehen"" ausdrucken?", vbYesNo) Then
' Try
' Dim path = SDL.FormularManagerNEU.zumZOLL_AVISO(myAviso, "AT")
' 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
'End If
End If
ElseIf sender Is btnLKWStandzeitWE Then
insertVermerk("LKW Standzeit Wochenende", 21)
ElseIf sender Is btnLKWStandzeitFeierteage Then
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.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
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
insertVermerk(txtSonstiges.Text, 46)
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
cntxt.Show(Cursor.Position)
End Sub
End Class

2
Aviso/frmGesamtsicherheitenMenuNEU.vb
View File

@@ -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)
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
Me.Text = "Gesamtsicherheiten " & Standort

32
Aviso/frmGesamtsicherheitenNEU.vb
View File

@@ -47,8 +47,12 @@ Public Class frmGesamtsicherheitenNEU
Public dtSicherheiten As New DataTable()
Public grenzstelle As String = ""
Public firmaId As Integer
Public warenortPrefix As String = ""
Private Sub frmGesamtsicherheitNEU_Load(sender As Object, e As EventArgs) Handles MyBase.Load
@@ -75,7 +79,14 @@ Public Class frmGesamtsicherheitenNEU
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)
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
nextGessicherheitID = -1
@@ -96,6 +107,14 @@ Public Class frmGesamtsicherheitenNEU
Exit For
End If
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
Else
@@ -633,8 +652,6 @@ Public Class frmGesamtsicherheitenNEU
End If
If checkNothingValue(txtSicherheitSicherheitsbetrag.Text, "Double") IsNot Nothing Then
Dim sichBetr As Double = Double.Parse(txtSicherheitSicherheitsbetrag.Text)
If checkSaldo(sichBetr, True) = False Then Exit Sub
@@ -1103,7 +1120,14 @@ Public Class frmGesamtsicherheitenNEU
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.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.SET_VALUE(avisoID)
txtAbfertNum.Text = Me.Abfertigungsnummer

426
Aviso/frmHauptfenster.Designer.vb generated
View File

@@ -277,20 +277,21 @@ Partial Class frmHauptfenster
Me.lblSuche = New System.Windows.Forms.Label()
Me.SplitContainer2 = New System.Windows.Forms.SplitContainer()
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.btnZertifikate = New System.Windows.Forms.Button()
Me.Label7 = New System.Windows.Forms.Label()
Me.lblErrVermerk = 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.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.cntxtAtilla = New System.Windows.Forms.ContextMenuStrip(Me.components)
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.UsrCntlBenachrichtigungen1 = New AVISO.usrCntlBenachrichtigungen()
Me.pnl = New System.Windows.Forms.Panel()
@@ -328,6 +329,11 @@ Partial Class frmHauptfenster
Me.splitMain = New System.Windows.Forms.SplitContainer()
Me.gridAviso = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
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.Label10 = New System.Windows.Forms.Label()
Me.cboImEx = New VERAG_PROG_ALLGEMEIN.MyComboBox()
@@ -400,6 +406,10 @@ Partial Class frmHauptfenster
Me.ZertifikateToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.HomepageToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
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.conMenuAviso.SuspendLayout()
Me.MenuStrip1.SuspendLayout()
@@ -410,11 +420,11 @@ Partial Class frmHauptfenster
Me.SplitContainer2.Panel2.SuspendLayout()
Me.SplitContainer2.SuspendLayout()
Me.pnlLinks.SuspendLayout()
CType(Me.picAVISOMessenger, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel2.SuspendLayout()
Me.pnlLinksOben.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()
Me.SplitContainer3.Panel1.SuspendLayout()
Me.SplitContainer3.Panel2.SuspendLayout()
@@ -434,6 +444,7 @@ Partial Class frmHauptfenster
Me.splitMain.SuspendLayout()
CType(Me.gridAviso, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel1.SuspendLayout()
Me.TabControl1.SuspendLayout()
Me.pnlTime.SuspendLayout()
Me.pnlSearch.SuspendLayout()
Me.pnlOptionen.SuspendLayout()
@@ -442,6 +453,7 @@ Partial Class frmHauptfenster
Me.Panel3.SuspendLayout()
Me.Panel4.SuspendLayout()
Me.cntVerag.SuspendLayout()
Me.pnlLeft.SuspendLayout()
Me.SuspendLayout()
'
'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.Location = New System.Drawing.Point(0, 0)
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.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.ForeColor = System.Drawing.Color.Black
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"
'
'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.Name = "FunktionenToolStripMenuItem"
Me.FunktionenToolStripMenuItem.Size = New System.Drawing.Size(79, 21)
Me.FunktionenToolStripMenuItem.Size = New System.Drawing.Size(79, 16)
Me.FunktionenToolStripMenuItem.Text = "Funktionen"
'
'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.ForeColor = System.Drawing.Color.Black
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"
'
'LKWBerichtToolStripMenuItem
@@ -1218,7 +1230,7 @@ Partial Class frmHauptfenster
Me.ToolStripFormulare.ImageAlign = System.Drawing.ContentAlignment.BottomRight
Me.ToolStripFormulare.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
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"
'
'MANAGERToolStripMenuItem
@@ -1436,7 +1448,7 @@ Partial Class frmHauptfenster
Me.mnuFragezeichen.ForeColor = System.Drawing.Color.Black
Me.mnuFragezeichen.ImageTransparentColor = System.Drawing.Color.Brown
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"
'
'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.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.Visible = False
'
@@ -1735,8 +1747,9 @@ Partial Class frmHauptfenster
Me.pnlDetailsRechts.Controls.Add(Me.lblMitarbeiter)
Me.pnlDetailsRechts.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnlDetailsRechts.Location = New System.Drawing.Point(0, 0)
Me.pnlDetailsRechts.MinimumSize = New System.Drawing.Size(200, 0)
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
'
'lblMitarbeiter
@@ -1746,7 +1759,7 @@ Partial Class frmHauptfenster
Me.lblMitarbeiter.BackColor = System.Drawing.SystemColors.Control
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.Location = New System.Drawing.Point(366, -38)
Me.lblMitarbeiter.Location = New System.Drawing.Point(366, -52)
Me.lblMitarbeiter.Name = "lblMitarbeiter"
Me.lblMitarbeiter.Size = New System.Drawing.Size(126, 13)
Me.lblMitarbeiter.TabIndex = 1
@@ -1796,9 +1809,9 @@ Partial Class frmHauptfenster
Me.Top.Controls.Add(Me.btnKunden)
Me.Top.Controls.Add(Me.btnSpedBuch)
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.Size = New System.Drawing.Size(1372, 52)
Me.Top.Size = New System.Drawing.Size(1302, 63)
Me.Top.TabIndex = 6
'
'Button1
@@ -1817,7 +1830,7 @@ Partial Class frmHauptfenster
Me.lblUsrname.BackColor = System.Drawing.Color.White
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.Location = New System.Drawing.Point(1252, 34)
Me.lblUsrname.Location = New System.Drawing.Point(1182, 34)
Me.lblUsrname.Name = "lblUsrname"
Me.lblUsrname.Size = New System.Drawing.Size(75, 13)
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.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.Location = New System.Drawing.Point(1308, 20)
Me.lblFimaAviso.Location = New System.Drawing.Point(1238, 20)
Me.lblFimaAviso.Name = "lblFimaAviso"
Me.lblFimaAviso.Size = New System.Drawing.Size(63, 13)
Me.lblFimaAviso.TabIndex = 11
@@ -1854,7 +1867,7 @@ Partial Class frmHauptfenster
Me.btnMAVerzeichnis.ForeColor = System.Drawing.Color.Black
Me.btnMAVerzeichnis.Image = Global.AVISO.My.Resources.Resources.mitarbeiter_s
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.Size = New System.Drawing.Size(107, 39)
Me.btnMAVerzeichnis.TabIndex = 13
@@ -1874,7 +1887,7 @@ Partial Class frmHauptfenster
Me.btnMitarbeiterKonto.ForeColor = System.Drawing.Color.Black
Me.btnMitarbeiterKonto.Image = Global.AVISO.My.Resources.Resources.mitarbeiter_s
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.Size = New System.Drawing.Size(137, 61)
Me.btnMitarbeiterKonto.TabIndex = 86
@@ -1890,7 +1903,7 @@ Partial Class frmHauptfenster
Me.btnKontakt.ForeColor = System.Drawing.Color.Black
Me.btnKontakt.Image = Global.AVISO.My.Resources.Resources.Telefonliste_small
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.Size = New System.Drawing.Size(119, 39)
Me.btnKontakt.TabIndex = 12
@@ -1908,7 +1921,7 @@ Partial Class frmHauptfenster
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.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.RightToLeft = System.Windows.Forms.RightToLeft.Yes
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.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.Location = New System.Drawing.Point(1311, 34)
Me.lblGrenzstelle.Location = New System.Drawing.Point(1241, 34)
Me.lblGrenzstelle.Name = "lblGrenzstelle"
Me.lblGrenzstelle.Size = New System.Drawing.Size(60, 13)
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.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.Location = New System.Drawing.Point(1303, 6)
Me.lblVersion.Location = New System.Drawing.Point(1233, 6)
Me.lblVersion.Name = "lblVersion"
Me.lblVersion.Size = New System.Drawing.Size(68, 13)
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.ForeColor = System.Drawing.Color.Black
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.Name = "btnDienstplan"
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.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.Location = New System.Drawing.Point(0, 195)
Me.lblDauer.Location = New System.Drawing.Point(2, 283)
Me.lblDauer.Name = "lblDauer"
Me.lblDauer.Size = New System.Drawing.Size(155, 17)
Me.lblDauer.TabIndex = 2
@@ -2293,68 +2306,30 @@ Partial Class frmHauptfenster
'
Me.SplitContainer2.Panel1.BackColor = System.Drawing.SystemColors.Control
Me.SplitContainer2.Panel1.Controls.Add(Me.pnlLinks)
Me.SplitContainer2.Panel1.Controls.Add(Me.pnlLinksOben)
Me.SplitContainer2.Panel1MinSize = 164
'
'SplitContainer2.Panel2
'
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.SplitterWidth = 1
Me.SplitContainer2.TabIndex = 0
'
'pnlLinks
'
Me.pnlLinks.Controls.Add(Me.Panel2)
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.pic)
Me.pnlLinks.Controls.Add(Me.lblDauer)
Me.pnlLinks.Controls.Add(Me.Panel2)
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.Size = New System.Drawing.Size(164, 214)
Me.pnlLinks.Size = New System.Drawing.Size(164, 300)
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
'
Me.Panel2.Controls.Add(Me.btnZertifikate)
@@ -2364,7 +2339,7 @@ Partial Class frmHauptfenster
Me.Panel2.Controls.Add(Me.btnZollwebseiten)
Me.Panel2.Controls.Add(Me.lblHinweis)
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.Size = New System.Drawing.Size(164, 111)
Me.Panel2.TabIndex = 10
@@ -2420,15 +2395,30 @@ Partial Class frmHauptfenster
Me.lblHinweis.Text = "Hinweis eingetragen"
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
'
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.Button7)
Me.pnlLinksOben.Dock = System.Windows.Forms.DockStyle.Top
Me.pnlLinksOben.Location = New System.Drawing.Point(0, 0)
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
'
'Label22
@@ -2436,7 +2426,7 @@ Partial Class frmHauptfenster
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.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.Size = New System.Drawing.Size(28, 19)
Me.Label22.TabIndex = 10
@@ -2444,21 +2434,21 @@ Partial Class frmHauptfenster
Me.Label22.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
Me.Label22.Visible = False
'
'Button12
'btnE_Aviso
'
Me.Button12.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.Button12.ForeColor = System.Drawing.Color.Black
Me.Button12.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button12.Location = New System.Drawing.Point(5, 44)
Me.Button12.MaximumSize = New System.Drawing.Size(121, 34)
Me.Button12.Name = "Button12"
Me.Button12.Size = New System.Drawing.Size(121, 34)
Me.Button12.TabIndex = 1
Me.Button12.Text = "eAVISO"
Me.Button12.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button12.UseVisualStyleBackColor = True
Me.Button12.Visible = False
Me.btnE_Aviso.FlatStyle = System.Windows.Forms.FlatStyle.Flat
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.btnE_Aviso.ForeColor = System.Drawing.Color.Black
Me.btnE_Aviso.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnE_Aviso.Location = New System.Drawing.Point(5, 39)
Me.btnE_Aviso.MaximumSize = New System.Drawing.Size(121, 34)
Me.btnE_Aviso.Name = "btnE_Aviso"
Me.btnE_Aviso.Size = New System.Drawing.Size(121, 34)
Me.btnE_Aviso.TabIndex = 1
Me.btnE_Aviso.Text = "eAVISO"
Me.btnE_Aviso.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnE_Aviso.UseVisualStyleBackColor = True
Me.btnE_Aviso.Visible = False
'
'btnNeu
'
@@ -2473,7 +2463,7 @@ Partial Class frmHauptfenster
Me.btnNeu.Name = "btnNeu"
Me.btnNeu.Size = New System.Drawing.Size(121, 34)
Me.btnNeu.TabIndex = 0
Me.btnNeu.Text = " NEU"
Me.btnNeu.Text = " LKW"
Me.btnNeu.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnNeu.UseVisualStyleBackColor = True
'
@@ -2490,6 +2480,47 @@ Partial Class frmHauptfenster
Me.ToolStripMenuItem17.Size = New System.Drawing.Size(110, 22)
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
'
Me.SplitContainer3.Dock = System.Windows.Forms.DockStyle.Fill
@@ -2503,8 +2534,8 @@ Partial Class frmHauptfenster
'SplitContainer3.Panel2
'
Me.SplitContainer3.Panel2.Controls.Add(Me.pnl)
Me.SplitContainer3.Size = New System.Drawing.Size(650, 300)
Me.SplitContainer3.SplitterDistance = 158
Me.SplitContainer3.Size = New System.Drawing.Size(331, 300)
Me.SplitContainer3.SplitterDistance = 77
Me.SplitContainer3.TabIndex = 3
'
'UsrCntlBenachrichtigungen1
@@ -2524,7 +2555,7 @@ Partial Class frmHauptfenster
Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnl.Location = New System.Drawing.Point(0, 0)
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
'
'Button10
@@ -2582,7 +2613,7 @@ Partial Class frmHauptfenster
Me.gridMyAviso.RowHeadersDefaultCellStyle = DataGridViewCellStyle4
Me.gridMyAviso.RowHeadersVisible = False
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
'
'Panel6
@@ -2602,7 +2633,7 @@ Partial Class frmHauptfenster
Me.Panel6.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel6.Location = New System.Drawing.Point(0, 0)
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
'
'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.AutoSize = True
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.Size = New System.Drawing.Size(65, 17)
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.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.Size = New System.Drawing.Size(36, 23)
Me.btnColor.TabIndex = 27
@@ -2652,7 +2683,7 @@ Partial Class frmHauptfenster
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.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.Size = New System.Drawing.Size(64, 21)
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.AutoSize = True
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.Size = New System.Drawing.Size(62, 13)
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.AutoSize = True
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.Size = New System.Drawing.Size(50, 17)
Me.cbx_My_LKW.TabIndex = 24
@@ -2687,7 +2718,7 @@ Partial Class frmHauptfenster
Me.cboMy_QS.Checked = True
Me.cboMy_QS.CheckState = System.Windows.Forms.CheckState.Indeterminate
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.Size = New System.Drawing.Size(15, 14)
Me.cboMy_QS.TabIndex = 23
@@ -2701,7 +2732,7 @@ Partial Class frmHauptfenster
Me.cboMy_VB.Checked = True
Me.cboMy_VB.CheckState = System.Windows.Forms.CheckState.Indeterminate
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.Size = New System.Drawing.Size(15, 14)
Me.cboMy_VB.TabIndex = 22
@@ -2719,7 +2750,7 @@ Partial Class frmHauptfenster
Me.cboMyAvisoAnzeige.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cboMyAvisoAnzeige.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
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.Size = New System.Drawing.Size(127, 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.AutoSize = True
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.Size = New System.Drawing.Size(48, 13)
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.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.Size = New System.Drawing.Size(207, 19)
Me.lblAkte.TabIndex = 1
@@ -2774,7 +2805,7 @@ Partial Class frmHauptfenster
Me.tabVorgeschrieben.Location = New System.Drawing.Point(4, 34)
Me.tabVorgeschrieben.Name = "tabVorgeschrieben"
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.Text = "3.Vorgeschrieben"
'
@@ -2785,7 +2816,7 @@ Partial Class frmHauptfenster
Me.tabFreigegeben.Location = New System.Drawing.Point(4, 34)
Me.tabFreigegeben.Name = "tabFreigegeben"
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.Text = "5. Freigegeben"
'
@@ -2796,7 +2827,7 @@ Partial Class frmHauptfenster
Me.tabNichtEingetroffen.Location = New System.Drawing.Point(4, 34)
Me.tabNichtEingetroffen.Name = "tabNichtEingetroffen"
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.Text = "Nicht eingetroffen"
'
@@ -2807,7 +2838,7 @@ Partial Class frmHauptfenster
Me.tabAnkunft.Location = New System.Drawing.Point(4, 34)
Me.tabAnkunft.Name = "tabAnkunft"
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.Text = "4. Ankunft"
'
@@ -2818,7 +2849,7 @@ Partial Class frmHauptfenster
Me.tabVorbereitet.Location = New System.Drawing.Point(4, 34)
Me.tabVorbereitet.Name = "tabVorbereitet"
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.Text = "2.Vorbereitet QS"
'
@@ -2827,7 +2858,7 @@ Partial Class frmHauptfenster
Me.pnlAktOption.Dock = System.Windows.Forms.DockStyle.Top
Me.pnlAktOption.Location = New System.Drawing.Point(0, 0)
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
'
'Button8
@@ -2837,7 +2868,7 @@ Partial Class frmHauptfenster
Me.Button8.ForeColor = System.Drawing.Color.Black
Me.Button8.Image = CType(resources.GetObject("Button8.Image"), System.Drawing.Image)
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.Size = New System.Drawing.Size(89, 34)
Me.Button8.TabIndex = 3
@@ -2854,7 +2885,7 @@ Partial Class frmHauptfenster
Me.btnFertig.ForeColor = System.Drawing.Color.Black
Me.btnFertig.Image = CType(resources.GetObject("btnFertig.Image"), System.Drawing.Image)
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.Size = New System.Drawing.Size(102, 34)
Me.btnFertig.TabIndex = 0
@@ -2871,9 +2902,9 @@ Partial Class frmHauptfenster
Me.tabAlle.Location = New System.Drawing.Point(4, 34)
Me.tabAlle.Name = "tabAlle"
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.Text = "Alle"
Me.tabAlle.Text = "Alle LKW"
'
'tabErfasst
'
@@ -2882,7 +2913,7 @@ Partial Class frmHauptfenster
Me.tabErfasst.Location = New System.Drawing.Point(4, 34)
Me.tabErfasst.Name = "tabErfasst"
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.Text = "1. Erfasst"
'
@@ -2905,14 +2936,14 @@ Partial Class frmHauptfenster
Me.tbcntrAviso.Name = "tbcntrAviso"
Me.tbcntrAviso.Padding = New System.Drawing.Point(12, 3)
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
'
'tabVERIMEX
'
Me.tabVERIMEX.Location = New System.Drawing.Point(4, 34)
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.Text = "VERIMEX"
Me.tabVERIMEX.UseVisualStyleBackColor = True
@@ -2921,7 +2952,7 @@ Partial Class frmHauptfenster
'
Me.tabINDONESIEN.Location = New System.Drawing.Point(4, 34)
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.Text = "INDONESIEN"
Me.tabINDONESIEN.UseVisualStyleBackColor = True
@@ -2931,21 +2962,21 @@ Partial Class frmHauptfenster
Me.SplitContainer1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.SplitContainer1.Dock = System.Windows.Forms.DockStyle.Fill
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"
'
'SplitContainer1.Panel1
'
Me.SplitContainer1.Panel1.Controls.Add(Me.pnlDetailsLinks)
Me.SplitContainer1.Panel1MinSize = 724
Me.SplitContainer1.Panel1MinSize = 0
'
'SplitContainer1.Panel2
'
Me.SplitContainer1.Panel2.Controls.Add(Me.btnSmall)
Me.SplitContainer1.Panel2.Controls.Add(Me.pnlDetailsRechts)
Me.SplitContainer1.Panel2MinSize = 300
Me.SplitContainer1.Size = New System.Drawing.Size(1372, 600)
Me.SplitContainer1.SplitterDistance = 819
Me.SplitContainer1.Panel2MinSize = 200
Me.SplitContainer1.Size = New System.Drawing.Size(1050, 611)
Me.SplitContainer1.SplitterDistance = 500
Me.SplitContainer1.SplitterWidth = 1
Me.SplitContainer1.TabIndex = 7
'
@@ -2958,7 +2989,7 @@ Partial Class frmHauptfenster
Me.pnlDetailsLinks.Location = New System.Drawing.Point(0, 0)
Me.pnlDetailsLinks.MinimumSize = New System.Drawing.Size(324, 564)
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
'
'splitMain
@@ -2982,8 +3013,8 @@ Partial Class frmHauptfenster
'
Me.splitMain.Panel2.Controls.Add(Me.SplitContainer2)
Me.splitMain.Panel2.Controls.Add(Me.pnlAktOption)
Me.splitMain.Size = New System.Drawing.Size(815, 596)
Me.splitMain.SplitterDistance = 287
Me.splitMain.Size = New System.Drawing.Size(496, 607)
Me.splitMain.SplitterDistance = 298
Me.splitMain.TabIndex = 0
'
'gridAviso
@@ -3036,13 +3067,15 @@ Partial Class frmHauptfenster
Me.gridAviso.RowTemplate.ReadOnly = True
Me.gridAviso.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.gridAviso.Size = New System.Drawing.Size(815, 39)
Me.gridAviso.Size = New System.Drawing.Size(496, 50)
Me.gridAviso.TabIndex = 1
Me.gridAviso.TabStop = False
'
'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.Controls.Add(Me.CheckBox1)
Me.Panel1.Controls.Add(Me.TabControl1)
Me.Panel1.Controls.Add(Me.txtBestimmungszollstelle)
Me.Panel1.Controls.Add(Me.Label10)
Me.Panel1.Controls.Add(Me.cboImEx)
@@ -3070,9 +3103,72 @@ Partial Class frmHauptfenster
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel1.Location = New System.Drawing.Point(0, 0)
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
'
'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
'
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.BackColor = System.Drawing.Color.Transparent
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.Size = New System.Drawing.Size(169, 15)
Me.lblEintraege.TabIndex = 14
@@ -3250,7 +3346,7 @@ Partial Class frmHauptfenster
Me.pnlTime.Controls.Add(Me.Label5)
Me.pnlTime.Location = New System.Drawing.Point(446, 0)
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
'
'MyComboBox1
@@ -3297,7 +3393,7 @@ Partial Class frmHauptfenster
Me.pnlSearch.Controls.Add(Me.cbxAlle)
Me.pnlSearch.Location = New System.Drawing.Point(-2, 79)
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.Visible = False
'
@@ -3758,12 +3854,12 @@ Partial Class frmHauptfenster
'
'Panel3
'
Me.Panel3.Controls.Add(Me.Panel4)
Me.Panel3.Controls.Add(Me.MenuStrip1)
Me.Panel3.Controls.Add(Me.Panel4)
Me.Panel3.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel3.Location = New System.Drawing.Point(0, 0)
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
'
'Panel4
@@ -3772,13 +3868,14 @@ Partial Class frmHauptfenster
Me.Panel4.Controls.Add(Me.btnClose)
Me.Panel4.Controls.Add(Me.btnMinimieren)
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.Size = New System.Drawing.Size(170, 25)
Me.Panel4.Size = New System.Drawing.Size(170, 20)
Me.Panel4.TabIndex = 4
'
'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.Name = "cntVerag"
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.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
'
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.Size = New System.Drawing.Size(180, 22)
Me.TVEditorNewToolStripMenuItem.Text = "TVEditorNew"
@@ -3816,11 +3949,12 @@ Partial Class frmHauptfenster
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
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.Label9)
Me.Controls.Add(Me.UsrCntlTestsystem1)
Me.Controls.Add(Me.SplitContainer1)
Me.Controls.Add(Me.pnlLeft)
Me.Controls.Add(Me.Top)
Me.Controls.Add(Me.Panel3)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
@@ -3841,12 +3975,12 @@ Partial Class frmHauptfenster
CType(Me.SplitContainer2, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainer2.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.PerformLayout()
Me.pnlLinksOben.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.Panel2.ResumeLayout(False)
CType(Me.SplitContainer3, System.ComponentModel.ISupportInitialize).EndInit()
@@ -3870,6 +4004,7 @@ Partial Class frmHauptfenster
CType(Me.gridAviso, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
Me.TabControl1.ResumeLayout(False)
Me.pnlTime.ResumeLayout(False)
Me.pnlTime.PerformLayout()
Me.pnlSearch.ResumeLayout(False)
@@ -3881,6 +4016,7 @@ Partial Class frmHauptfenster
Me.Panel3.PerformLayout()
Me.Panel4.ResumeLayout(False)
Me.cntVerag.ResumeLayout(False)
Me.pnlLeft.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
@@ -4133,7 +4269,7 @@ Partial Class frmHauptfenster
Friend WithEvents ToolStripMenuItem6 As ToolStripMenuItem
Friend WithEvents btnMAVerzeichnis As Button
Friend WithEvents Label22 As Label
Friend WithEvents Button12 As Button
Friend WithEvents btnE_Aviso As Button
Friend WithEvents FRONTOFFICEToolStripMenuItem As ToolStripMenuItem
Friend WithEvents VERIMEXToolStripMenuItem As ToolStripMenuItem
Friend WithEvents StandortWechselnToolStripMenuItem As ToolStripMenuItem
@@ -4252,5 +4388,15 @@ Partial Class frmHauptfenster
Friend WithEvents SpireLizenzPrüfenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents DEAmbarToolStripMenuItem As ToolStripMenuItem
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
End Class

8
Aviso/frmHauptfenster.resx
View File

@@ -195,6 +195,14 @@
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAABdSURBVEhL7c0xDsAgEANB/v+AfNcUyRWWVhEF0JyL
oUDW7ZB0FX6e9D7PMv2gvUmQUKjQ3iRIKFRob3oF6cB2CW7XK7gKD31obxIkFCq0NwkSChXam0bBm/Dz
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>
</data>
<metadata name="TimerAkte.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">

481
Aviso/frmHauptfenster.vb
View File

@@ -10,6 +10,8 @@ Imports System.Drawing.Drawing2D
Imports SDL
Imports Microsoft.Office.Interop
Imports Spire.Pdf.Texts
Imports System.Net
Imports System.Text
'Imports UID
@@ -164,6 +166,7 @@ Public Class frmHauptfenster
VERAGSQL = New VERAG_PROG_ALLGEMEIN.SQL
EnableDoubleBuffered(gridAviso)
EnableDoubleBuffered(gridMyAviso)
'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
@@ -372,7 +375,7 @@ Public Class frmHauptfenster
End If
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("eAVISO", "AVISO") Then
Button12.Visible = True
btnE_Aviso.Visible = True
Label22.Visible = True
initEAviso()
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)
If a = vbYes Then
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_nname.ToLower = "celan" Then 'aktuell hardcoded, wenn Zeit ist dynamisch (per SQL-tbl)
Dim f As New frmZEButtons("in")
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasMehrereFirmen Then
Dim f As New frmZEButtons("in", VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasFirmen)
f.ShowDialog()
f.BringToFront()
Else
@@ -656,7 +659,7 @@ Public Class frmHauptfenster
Dim bfont = New Font(gridAviso.Font.FontFamily, gridAviso.Font.Size, FontStyle.Bold)
With gridAviso
.Columns("AvisoID").Visible = False 'AvisoID nicht anzeigen
' .Columns("AvisoID").Visible = False 'AvisoID nicht anzeigen
If Fullscreen Then
.Columns("Datum").Visible = True 'Mitarb. nicht anzeigen
@@ -679,6 +682,9 @@ Public Class frmHauptfenster
.Columns("Status").Width = 25
.Columns("Status").HeaderText = "St."
.Columns("AvisoID").Width = 60
.Columns("AvisoID").HeaderText = "LKW-Id"
.Columns("LetzterMitarbeiter").Width = 135
.Columns("LetzterMitarbeiter").HeaderText = "akt. Mitarb"
@@ -760,6 +766,17 @@ Public Class frmHauptfenster
.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").DefaultCellStyle.Font = bfont
.Columns("VerwahrungStatus").Visible = True
Else
.Columns("VerwahrungStatus").Visible = False
End If
.Columns("Info").Visible = False
.Columns("Info").MinimumWidth = 200
.Columns("Info").HeaderText = "Info (Einträge bis zum Status ERFASST)"
@@ -810,6 +827,13 @@ Public Class frmHauptfenster
'Else
'r.Cells("LKW_fertig").Style.BackColor = Color.White
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
End With
@@ -886,127 +910,222 @@ Public Class frmHauptfenster
Dim datumseinschr = ""
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
top = " TOP 1000 "
End If
Dim hSQL As String = ""
If CheckBox1.Checked Then
'----------------------------------------------------------------------------------------------------------------------------------
'--- 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, "
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 "
'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
End If
hSQL &= datumseinschr
If pnlSearch.Visible Then
top = " TOP 1000 "
End If
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 & "' )) ) "
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 &= " 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
' 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 & "'"
'----------------------------------------------------------------------------------------------------------------------------------
'--- Sendung ---
'----------------------------------------------------------------------------------------------------------------------------------
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
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 cboImEx._value
Case "IMPORT" : hSQL += " AND (ImEx = '" & cboImEx._value & "' OR ImEx = '' )"
Case "EXPORT" : hSQL += " AND ImEx = '" & cboImEx._value & "'"
Select Case cboMy_VB.CheckState
Case CheckState.Checked : hSQL &= " AND tblSnd_Vorgeschrieben is not null "
Case CheckState.Unchecked : hSQL &= " AND tblSnd_Vorgeschrieben is null "
' Case CheckState.Indeterminate : hSQL &= " AND tblSnd_Vorbereitet is not null "
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 & "'"
If cboTeams.Text <> "" Then hSQL += " AND TeamId = '" & cboTeams._value & "'"
Else
'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)) & "))"
If cboMy_Grenzstelle._value.Replace("ALLE_BACK", "") <> "" Then hSQL &= " AND Grenzstelle = '" & cboMy_Grenzstelle._value & "'"
If cboMy_Grenzstelle._value = "ALLE_BACK" Then hSQL &= " AND FilialenNr NOT IN ('7001','7002','7003') "
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
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 cbx_My_Brexit.Visible AndAlso Not cbx_My_Brexit.Checked Then hSQL &= " AND FilialenNr NOT IN ('7001','7002','7003') "
'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 & "%' )"
'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 ) "
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
'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
hSQL += " ORDER BY Ankunft ASC, AvisoEingang ASC, Datum ASC"
' MsgBox(hSQL)
'If hSort = "" Then
'hSQL += " ORDER BY Ankunft DESC, AvisoEingang DESC, Datum DESC"
@@ -1026,10 +1145,14 @@ Public Class frmHauptfenster
'AVISOBinding.initBinding(hSQL, "Aviso")
'gridAviso.DataSource = AVISOBinding.bindingSource
' MsgBox(hSQL)
'MsgBox(DirectCast(gridAviso.DataSource, DataTable).Rows.Count)
'Grid neu designen
gridAviso_SpaltenFestlegen()
If CheckBox1.Checked Then
gridAviso_SpaltenFestlegen()
End If
'Tabelle Kommt/Geht bereinigen
If gridAviso.RowCount = 0 Then
gridAviso.DataSource = Nothing
@@ -1258,7 +1381,7 @@ Public Class frmHauptfenster
'----------------------------------------------------------------------------------------------------------------------------------
'--- 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 " &
" WHERE ( Status IN (0, 3, 4, 5,6,7) OR ( Status = 1 AND [Abgeschlossen] = 0 )) " &
sqlStrFirma & " AND (LetzterMitarbeiterId=@maId) "
@@ -1310,7 +1433,7 @@ Public Class frmHauptfenster
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 " &
" FROM Aviso INNER JOIN tblSendungen ON AvisoID=tblSnd_AvisoID " &
" 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").DefaultCellStyle.ForeColor = Color.White
.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
@@ -1611,6 +1743,7 @@ Public Class frmHauptfenster
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 = "DE" Then r.Cells("LKW_fertig").Style.BackColor = Color.Green
If r.Cells("Dauer").Value > 120 Then r.Cells("DauerText").Style.ForeColor = Color.Red
@@ -1691,7 +1824,7 @@ Public Class frmHauptfenster
' MsgBox(ex.Message)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
' Grid_aktiv = True
' Grid_aktiv = True
End Sub
@@ -2840,6 +2973,9 @@ Public Class frmHauptfenster
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)
BürgschaftenExcelToolStripMenuItem.Visible = False
@@ -2857,8 +2993,20 @@ Public Class frmHauptfenster
End If
End If
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
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
' SplitContainer1.SplitterDistance = SplitContainer1.Width - 760
' End If
If SplitContainer1.Panel2.Width > 700 And (SplitContainer1.Width - 630) > 0 Then
SplitContainer1.SplitterDistance = SplitContainer1.Width - 630
If SplitContainer1.Panel2.Width > 700 And (SplitContainer1.Width - 660) > 0 Then
SplitContainer1.SplitterDistance = SplitContainer1.Width - 660
End If
End Sub
@@ -3437,7 +3585,7 @@ Public Class frmHauptfenster
Public Sub showHideDetails()
If sd <> SplitContainer1.SplitterDistance Or SplitContainer1.Panel2.Size.Width = 15 Then
SplitContainer1.SplitterDistance = sd
SplitContainer1.Panel2MinSize = 300
SplitContainer1.Panel2MinSize = 600 '300
Fullscreen = False
Else
SplitContainer1.Panel2MinSize = 15
@@ -3631,7 +3779,7 @@ Public Class frmHauptfenster
Grid_aktiv = True
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("")
End Sub
@@ -4245,7 +4393,7 @@ Public Class frmHauptfenster
Me.Cursor = Cursors.Default
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
Dim f As New frm_eAVISO
f.Show()
@@ -4803,8 +4951,87 @@ Public Class frmHauptfenster
End Sub
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
Private Sub TVEditorNewToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TVEditorNewToolStripMenuItem.Click
@@ -4891,6 +5118,24 @@ Public Class AvisoStatusFunctions
Next
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
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
@@ -4961,7 +5206,7 @@ Public Class AvisoStatusFunctions
'Fahrer Handy-Nr.
Dim frmAnkunftSetzen As New frmAnkunftSetzen(Aviso)
If frmAnkunftSetzen.ShowDialog() = DialogResult.Cancel Then
Return -1 'Abbrechen
Return False 'Abbrechen
End If
'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" Then
' If Aviso.Grenzstelle.Replace("???", "") <> "" Then
@@ -4996,6 +5241,8 @@ Public Class AvisoStatusFunctions
End If
'Verwahrungs-Ticket Drucken, wenn parameter
printQR_CODE(Aviso)
'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
Dim rpt As New rptQRAviso(Aviso)

1058
Aviso/frmSendungsdetailsNEU.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

200
Aviso/frmSendungsdetailsNEU.resx
View File

@@ -118,103 +118,6 @@
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<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">
<value>
iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABGdBTUEAALGPC/xhBQAAAIdJREFUOE/V
@@ -1628,9 +1531,6 @@
mVCCPwiVeQBaqAV4Jfq5XQAAAABJRU5ErkJggg==
</value>
</data>
<metadata name="MenuStrip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>296, 17</value>
</metadata>
<data name="Button6.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABGdBTUEAALGPC/xhBQAAAIdJREFUOE/V
@@ -1657,6 +1557,103 @@
<metadata name="clmnUIDL.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</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">
<value>True</value>
</metadata>
@@ -2077,9 +2074,6 @@
<metadata name="cntxtOptions.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>174, 17</value>
</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">
<value>596, 17</value>
</metadata>

278
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -22,14 +22,15 @@ Public Class frmSendungsdetailsNEU
Dim PROG As New cProgramFunctions
Dim AVISO As New cAviso
' 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
' Public WithEvents bsSendungen As New cEasyBinding("AVISO") 'fürs Binding
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim FormularArt = ""
Dim loaded = False
Public UNBOUND = False
Dim kdnrEORI As Integer = -1
Dim usrcntl_NCTS As usrCntlSND_NCTSGestellungsadresse
@@ -129,9 +130,12 @@ Public Class frmSendungsdetailsNEU
txtColli.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.")
Return True
If AVISO IsNot Nothing Then
If AVISO.Abgeschlossen Then
'MsgBox("Keine Änderung möglich - Akt bereits abgeschlossen.")
Return True
End If
End If
loadDataInLIST()
@@ -384,15 +388,17 @@ Public Class frmSendungsdetailsNEU
End Sub
Sub initGrenzstelle()
If AVISO IsNot Nothing Then
lblGrenze.Text = ""
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 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
Dim GRZ As New VERAG_PROG_ALLGEMEIN.cGrenzstelle(AVISO.Grenzstelle)
If GRZ IsNot Nothing AndAlso GRZ.hasEntry Then
lblGrenze.Text = AVISO.Grenzstelle & vbNewLine & If(GRZ.grz_ZollamtDST, "") & " " & If(GRZ.grz_ZollamtBezeichnung, "")
lblGrenze.Text = ""
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 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
Dim GRZ As New VERAG_PROG_ALLGEMEIN.cGrenzstelle(AVISO.Grenzstelle)
If GRZ IsNot Nothing AndAlso GRZ.hasEntry Then
lblGrenze.Text = AVISO.Grenzstelle & vbNewLine & If(GRZ.grz_ZollamtDST, "") & " " & If(GRZ.grz_ZollamtBezeichnung, "")
End If
End If
End If
End Sub
@@ -400,6 +406,12 @@ Public Class frmSendungsdetailsNEU
Private Sub frmSendungsdetails_Load(sender As Object, e As EventArgs) Handles Me.Load
VERAG_PROG_ALLGEMEIN.cAllgemein._TRANSLATE(Me)
Button23.Visible = True
btnWWberechnen.Visible = False
If UNBOUND Then
FlowLayoutPanel.Visible = False
End If
Try
Panel5.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor
@@ -415,8 +427,10 @@ Public Class frmSendungsdetailsNEU
initVorpapiere()
If AVISO.Abgeschlossen Then
Label8.Visible = True
If AVISO IsNot Nothing Then
If AVISO.Abgeschlossen Then
Label8.Visible = True
End If
End If
lblZollsysErr.Text = ""
LinkLabel1.TabStop = False
@@ -526,21 +540,25 @@ Public Class frmSendungsdetailsNEU
it.Tag = r("grz_Grenzstelle").ToString
ContextMenuStrip3.Items.Add(it)
AddHandler it.Click, Sub()
If it.Tag.ToString = "???" Then
SAVE_ME()
AVISO.Grenzstelle = "???"
AvisoStatusFunctions.ummeldenAVISO(AVISO, it.Tag.ToString)
cGlobal.Aktive_ID = AvisoId
Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
Dim f As New frmEintragAviso
f.ShowDialog(frmGrayOut)
frmGrayOut.Close()
AVISO = AvisoDAL.LesenAviso(AvisoId, "")
Else
SAVE_ME()
AvisoStatusFunctions.ummeldenAVISO(AVISO, it.Tag.ToString)
If AVISO IsNot Nothing Then
If it.Tag.ToString = "???" Then
SAVE_ME()
AVISO.Grenzstelle = "???"
AvisoStatusFunctions.ummeldenAVISO(AVISO, it.Tag.ToString)
cGlobal.Aktive_ID = AvisoId
Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
Dim f As New frmEintragAviso
f.ShowDialog(frmGrayOut)
frmGrayOut.Close()
AVISO = AvisoDAL.LesenAviso(AvisoId, "")
Else
SAVE_ME()
AvisoStatusFunctions.ummeldenAVISO(AVISO, it.Tag.ToString)
End If
Me.initDataBinding()
End If
Me.initDataBinding()
End Sub
Next
End If
@@ -979,7 +997,7 @@ Public Class frmSendungsdetailsNEU
End Sub
Sub initButtons()
If UNBOUND Then Exit Sub
' FlowLayoutPanel.Visible = False
' Me.SuspendLayout()
FlowLayoutPanel.SuspendLayout()
@@ -1456,7 +1474,8 @@ Public Class frmSendungsdetailsNEU
usrcntl_AUSFUHR.reset()
usrcntl_FISKAL.reset()
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)
txtColli.Text = colli
@@ -1531,6 +1550,9 @@ Public Class frmSendungsdetailsNEU
End If
pnlT1.Controls.Add(usrcntl_ATB)
btnWWberechnen.Visible = True
End Select
cboAbfertigungsart_SelectedIndexChanged(cboAbfertigungsart, New EventArgs)
@@ -1616,20 +1638,26 @@ Public Class frmSendungsdetailsNEU
End Sub
Sub initVorpapiere()
cboVorpapier.Items.Clear()
cboVorpapier2.Items.Clear()
cboVorpapier3.Items.Clear()
If AVISO IsNot Nothing Then
AVISO.LOAD_Vorpapiere()
cboVorpapier.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboVorpapier2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboVorpapier3.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
For Each VP In AVISO.VORPAPIERE
cboVorpapier.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(VP.vp_Nr, VP.vp_Nr))
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
AVISO.LOAD_Vorpapiere()
cboVorpapier.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboVorpapier2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboVorpapier3.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
For Each VP In AVISO.VORPAPIERE
cboVorpapier.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(VP.vp_Nr, VP.vp_Nr))
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
Sub setVorpapiere()
@@ -1643,33 +1671,36 @@ Public Class frmSendungsdetailsNEU
End Sub
Sub initFraechterAvisererFromAkt()
If AVISO IsNot Nothing Then
'Ü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 AVISO.Auftraggeber_KdNr > -1 Then
If VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromKdNr(AVISO.Auftraggeber_KdNr) = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(cboFiliale._value) Then
txtAvisierer.KdNr = AVISO.Auftraggeber_KdNr
'Ü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 AVISO.Auftraggeber_KdNr > -1 Then
If VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromKdNr(AVISO.Auftraggeber_KdNr) = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(cboFiliale._value) Then
txtAvisierer.KdNr = AVISO.Auftraggeber_KdNr
End If
Else
txtAvisierer.KdNr_value = -1
txtAvisiererKdNr.Text = ""
txtAvisierer.Text = AVISO.Auftraggeber
End If
Else
txtAvisierer.KdNr_value = -1
txtAvisiererKdNr.Text = ""
txtAvisierer.Text = AVISO.Auftraggeber
End If
End If
'Ü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 AVISO.Frächter_KdNr > -1 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
'Ü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 AVISO.Frächter_KdNr > -1 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
End If
Else
txtFrachtfuehrer.KdNr_value = -1
txtFrachtfuehrerKdNr.Text = ""
txtFrachtfuehrer.Text = AVISO.Frächter
End If
Else
txtFrachtfuehrer.KdNr_value = -1
txtFrachtfuehrerKdNr.Text = ""
txtFrachtfuehrer.Text = AVISO.Frächter
End If
End If
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
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)
End If
lblAbfNrExists.Visible = checkDoppelAbfNr()
@@ -2347,23 +2380,33 @@ Public Class frmSendungsdetailsNEU
Private Sub cboAbfertigungsart_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboAbfertigungsart.SelectedIndexChanged
btnLeihgeld.Enabled = False
lblAnzahl.Visible = (cboAbfertigungsart._value = "23")
txtAnzahl.Visible = (cboAbfertigungsart._value = "23")
lblAnzahl.Visible = False
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")
btnAufschub_Atr.Visible = (cboAbfertigungsart._value <> "23")
btnAufschub_Empf.Visible = (cboAbfertigungsart._value <> "23")
btnAufschub_VERAG.Visible = (cboAbfertigungsart._value <> "23")
setContextMenuGVMSControl()
If cboAbfertigungsart._value = "23" Then
SENDUNG_LIST(CURRENT_INDEX).tblSnd_aufschub = ""
txtDyRef.Visible = False
picDy.Visible = False
txtDyRef.Text = ""
ElseIf cboAbfertigungsart._value = "9" Then
If cboAbfertigungsart._value = "9" Then
btnLeihgeld.Enabled = True
Else
txtDyRef.Visible = (SENDUNG_LIST(CURRENT_INDEX).FilialenNr = "5601") 'UNISPED
@@ -2462,13 +2505,18 @@ Public Class frmSendungsdetailsNEU
With dgvBelege
.Columns.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
' .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 " &
" 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] " &
" 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 " &
" group by rksv_BelegId, rksv_umsatz ,b.BelegNr,b.BelegDat,b.Benutzer,[Name],LKW_Beleg " &
" order by rksv_BelegId", "FMZOLL")
@@ -3066,7 +3114,7 @@ Public Class frmSendungsdetailsNEU
If cbxFremdspedition.Checked Then
sperren = True
ElseIf cboAbfertigungsart._value = "44" Then
sperren = False
sperren = False
Else
If cboFiliale._value <> "" Then
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
MsgBox("Die Datei existiert nicht!")
Else
@@ -6988,9 +7036,9 @@ Public Class frmSendungsdetailsNEU
If lblGrenze.Text <> "" Then
TextHTML = TextHTML.Replace("%VAR-GRENZE%", lblGrenze.Text & "<br>")
Mail.Subject = Mail.Subject.Replace("%VAR-GRENZE%", lblGrenze.Text.Replace(vbCrLf, " "))
End If
TextHTML = TextHTML.Replace("%VAR-GRENZE%", lblGrenze.Text & "<br>")
Mail.Subject = Mail.Subject.Replace("%VAR-GRENZE%", lblGrenze.Text.Replace(vbCrLf, " "))
End If
If SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger IsNot Nothing Then
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("%Absender%", "")
Mail.Subject = Mail.Subject.Replace("%Gewicht%", "")
Mail.Subject = Mail.Subject.Replace("%ImEx%", "")
Mail.Subject = Mail.Subject.Replace("%Zollstelle%", "")
Mail.Subject = Mail.Subject.Replace("%ImEx%", "")
Mail.Subject = Mail.Subject.Replace("%Zollstelle%", "")
TextHTML = TextHTML.Replace("%LKW%", "")
TextHTML = TextHTML.Replace("%LKW%", "")
TextHTML = TextHTML.Replace("%LKWKennzeichen%", "")
TextHTML = TextHTML.Replace("%Empfaenger%", "")
TextHTML = TextHTML.Replace("%VAR-GRENZE%", "")
@@ -7040,10 +7088,10 @@ Public Class frmSendungsdetailsNEU
TextHTML = TextHTML.Replace("%AbfertigungsNr%", "")
TextHTML = TextHTML.Replace("%Absender%", "")
TextHTML = TextHTML.Replace("%Gewicht%", "")
TextHTML = TextHTML.Replace("%ImEx%", "")
TextHTML = TextHTML.Replace("%Zollstelle%", "")
TextHTML = TextHTML.Replace("%ImEx%", "")
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)
Next
@@ -7322,4 +7370,66 @@ Public Class frmSendungsdetailsNEU
Panel22.BackColor = Color.FromArgb(255, 255, 192)
End If
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

58
Aviso/usrCntlSND_ATBGestellung.Designer.vb generated
View File

@@ -23,18 +23,22 @@ Partial Class usrCntlSND_ATBGestellung
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
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.txtATBT1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.txtT1VerzollungsadresseBestimmungszollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox()
Me.Label33 = New System.Windows.Forms.Label()
Me.cbxATBFakturieren = New System.Windows.Forms.CheckBox()
Me.pnlT1.SuspendLayout()
Me.SuspendLayout()
'
'pnlT1
'
Me.pnlT1.Controls.Add(Me.btnGesSicherheit)
Me.pnlT1.Controls.Add(Me.Button1)
Me.pnlT1.Controls.Add(Me.cbxATBFakturieren)
Me.pnlT1.Controls.Add(Me.txtATBNr)
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.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
'
Me.txtATBNr._DateTimeOnly = False
@@ -148,26 +185,11 @@ Partial Class usrCntlSND_ATBGestellung
Me.Label33.TabIndex = 3
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
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.pnlT1)
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.PerformLayout()
Me.ResumeLayout(False)
@@ -181,4 +203,6 @@ Partial Class usrCntlSND_ATBGestellung
Friend WithEvents Label4 As Label
Friend WithEvents txtATBNr As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents cbxATBFakturieren As CheckBox
Friend WithEvents btnGesSicherheit As Button
Friend WithEvents Button1 As Button
End Class

235
Aviso/usrCntlSND_ATBGestellung.vb
View File

@@ -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
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.
InitializeComponent()
Me.AVISO = AVISO
Me.SND = SND
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
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()

91
Aviso/usrcntlAktDetails.Designer.vb generated
View File

@@ -107,6 +107,7 @@ Partial Class usrcntlAktDetails
Me.txtMAinfo_Vorgeschrieben = New System.Windows.Forms.TextBox()
Me.txtMAinfo_VorbereitetQs = New System.Windows.Forms.TextBox()
Me.Panel8 = New System.Windows.Forms.Panel()
Me.btnQRVerwahrung = New System.Windows.Forms.Button()
Me.lblAktUebernommen = New System.Windows.Forms.Label()
Me.lblLKWChat_MsgCnt = 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.DispolisteENToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
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.Button15 = New System.Windows.Forms.Button()
Me.Button6 = New System.Windows.Forms.Button()
@@ -1336,6 +1339,7 @@ Partial Class usrcntlAktDetails
'Panel8
'
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.lblLKWChat_MsgCnt)
Me.Panel8.Controls.Add(Me.lblBarZuKassierenSumme)
@@ -1364,15 +1368,31 @@ Partial Class usrcntlAktDetails
Me.Panel8.Size = New System.Drawing.Size(575, 120)
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
'
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)
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.Location = New System.Drawing.Point(208, 75)
Me.lblAktUebernommen.Location = New System.Drawing.Point(7, 79)
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.Text = "Akt übernommen!"
Me.lblAktUebernommen.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
@@ -1442,9 +1462,9 @@ Partial Class usrcntlAktDetails
Me.Button7.ForeColor = System.Drawing.Color.Black
Me.Button7.Image = Global.AVISO.My.Resources.Resources.handy1
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.Size = New System.Drawing.Size(63, 36)
Me.Button7.Size = New System.Drawing.Size(69, 36)
Me.Button7.TabIndex = 107
Me.Button7.Text = "SMS"
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.ForeColor = System.Drawing.Color.Black
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.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.Text = "BAR"
Me.btnLkwBeleg.UseVisualStyleBackColor = False
@@ -1499,7 +1519,7 @@ Partial Class usrcntlAktDetails
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.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.Size = New System.Drawing.Size(86, 20)
Me.lblIMEX.TabIndex = 98
@@ -1513,7 +1533,7 @@ Partial Class usrcntlAktDetails
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.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.Size = New System.Drawing.Size(98, 20)
Me.cbxHandling.TabIndex = 99
@@ -1999,7 +2019,7 @@ Partial Class usrcntlAktDetails
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.Name = "conMenuVermerke"
Me.conMenuVermerke.Size = New System.Drawing.Size(252, 206)
Me.conMenuVermerke.Size = New System.Drawing.Size(252, 184)
'
'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.BackColor = System.Drawing.Color.Black
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.Button15)
Me.pnlOptionen.Controls.Add(Me.Button6)
@@ -2081,10 +2103,42 @@ Partial Class usrcntlAktDetails
Me.pnlOptionen.Controls.Add(Me.Button10)
Me.pnlOptionen.Location = New System.Drawing.Point(454, 141)
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.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
'
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.ForeColor = System.Drawing.Color.Black
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.Size = New System.Drawing.Size(39, 28)
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.ForeColor = System.Drawing.Color.Black
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.Size = New System.Drawing.Size(39, 28)
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.ForeColor = System.Drawing.Color.Black
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.Size = New System.Drawing.Size(71, 28)
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.ForeColor = System.Drawing.Color.Black
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.Size = New System.Drawing.Size(71, 28)
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.ForeColor = System.Drawing.Color.Black
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.Size = New System.Drawing.Size(109, 28)
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.ForeColor = System.Drawing.Color.Black
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.Size = New System.Drawing.Size(71, 28)
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.ForeColor = System.Drawing.Color.Black
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.Size = New System.Drawing.Size(39, 28)
Me.Button10.TabIndex = 106
@@ -2463,4 +2517,7 @@ Partial Class usrcntlAktDetails
Friend WithEvents picAVISOMessengerSNDChat As PictureBox
Friend WithEvents conVermerkLöschenNew As ToolStripMenuItem
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

41
Aviso/usrcntlAktDetails.vb
View File

@@ -350,7 +350,6 @@ Public Class usrcntlAktDetails
' btnLkwBeleg.Visible = False
btnAktAbschliessen.Visible = False
btnAktAbschliessen.BackColor = Color.DarkGreen
lblBarZuKassierenSumme.Visible = False
Select Case AVISO.Status
@@ -393,9 +392,12 @@ Public Class usrcntlAktDetails
pnlAbgeschlossen.Visible = True
btnAktAbschliessen.Visible = False
' btnLkwBeleg.Visible = False
btnQRVerwahrung.Visible = False
Else
pnlAbgeschlossen.Visible = False
' btnAktAbschliessen.Visible = True
btnQRVerwahrung.Visible = True
End If
intiAktUebernehmenBtn()
@@ -874,7 +876,7 @@ Public Class usrcntlAktDetails
End Sub
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 " &
" LEFT JOIN tblSendungen ON [SendungID]=tblSendungen.tblSnd_SendungID " &
" WHERE AvisoID = [[AvisoId]] [[sendwhere]] AND HintergrundVermerk =0 " &
@@ -1199,7 +1201,7 @@ Public Class usrcntlAktDetails
init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
Case "46"
MsgBox("SMS " & gridVermerke.Rows(RowIndex).Cells("VermerkeOptions").ToolTipText)
' MsgBox("SMS " & gridVermerke.Rows(RowIndex).Cells("VermerkeOptions").ToolTipText)
init = False 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
Case "36"
@@ -1329,7 +1331,7 @@ Public Class usrcntlAktDetails
For Each r As DataGridViewRow In gridvermerke.Rows
' If r.Cells("VermerkeOptions").GetType.Name = "DataGridViewLinkCell" Then
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.ForeColor = Color.White
r.DefaultCellStyle.BackColor = Color.Yellow
@@ -1533,8 +1535,8 @@ Public Class usrcntlAktDetails
End Sub
Sub ArrowDown_ShowHide()
If isFailureShown Then Exit Sub
picArrowDown.Visible = False
If isFailureShown Then Exit Sub
If dgvSendungen.RowCount = 0 Then Exit Sub
Select Case tbcntlVermerke.SelectedIndex
Case 0, 1, 2
@@ -1543,7 +1545,8 @@ Public Class usrcntlAktDetails
For Each r As DataGridViewRow In gridVermerke.Rows
If r.Displayed Then showFirst = True
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
End If
End If
@@ -1569,7 +1572,7 @@ Public Class usrcntlAktDetails
Select Case code
Case 59
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
Return True
End If
@@ -2012,6 +2015,7 @@ Public Class usrcntlAktDetails
Private Sub btnAnkunft_Click(sender As Object, e As EventArgs) Handles btnAnkunft.Click
If FUNC.setAnkunft(AvisoID) Then
' MsgBox("H1")
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
End If
@@ -2246,7 +2250,7 @@ Public Class usrcntlAktDetails
End Sub
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
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
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

BIN
Diverses/handy_truck.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 33 KiB

BIN
Diverses/qr.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 5.0 KiB

BIN
Diverses/qr_s.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 2.1 KiB

BIN
Diverses/remind-4-32.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 707 B

BIN
Diverses/reminder.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 2.0 KiB

27
Gemeinsames/rptSendungen.Designer.vb generated
View File

File diff suppressed because one or more lines are too long

3
Gemeinsames/rptSendungen.resx
View File

File diff suppressed because one or more lines are too long

8
Gemeinsames/rptSendungen.vb
View File

@@ -174,13 +174,18 @@ Public Class rptSendungen
If barcodeLKW IsNot Nothing Then
If VALUES.barcodeLKW IsNot Nothing Then
barcodeLKW.Image = If(VALUES.barcodeLKW, Nothing)
End If
End If
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!
If False Then
@@ -331,6 +336,7 @@ Public Class rptSendungenValues
Property barcodeLKW As Image = Nothing
Property barcodeSendung As Image = Nothing
Property imgQR As Image = Nothing
Property AbfKost As String = ""
Property AbfKostKdnr As Integer = -1