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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2022-03-21 09:19:52 +01:00
parent 4491b88deb
commit a4ad6cc8c8
68 changed files with 12141 additions and 6529 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -1077,6 +1077,7 @@ Public Class frmSendungAnhangImport
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UID-Prüfung", "UID"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EORI-Prüfung", "EORI"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Lieferschein", "Lieferschein"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Ursprungszeugnis", "CoO"))
If VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE = 7001 Then
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("GB - C88", "C88"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("GB - E2", "E2"))

56
Aviso/Auswertung/rptStat_VERIMEX_AbklTR.Designer.vb generated
View File

File diff suppressed because one or more lines are too long

5454
Aviso/Auswertung/rptStat_VERIMEX_AbklTR.resx
View File

File diff suppressed because it is too large Load Diff

12
Aviso/Auswertung/usrctlStatVERIMEX.vb
View File

@@ -46,7 +46,7 @@ Public Class usrctlStatVERIMEX
End Select
With dgvAbfertigungTR
Dim sqlstr = "SELECT mit_vname + ' ' + mit_nname as Mitarbeiter ,sum(tblSnd_anzahlHandling) as Sendungen ,count(distinct(avisoid)) as LKW
Dim sqlstr = "SELECT mit_vname + ' ' + mit_nname as Mitarbeiter ,sum(tblSnd_anzahlHandling) as Versandscheine ,sum(tblSnd_anzahlHandlingPos) as Positionen ,count(distinct(avisoid)) as LKW
FROM [tblSendungen] inner join Aviso on AvisoID = tblSnd_AvisoID inner join admin.dbo.tblMitarbeiter on mit_id=tblSnd_AbfertigungTR_MA
" & innerJoinFiliale & "
where cast(tblSnd_AbfertigungTR as date) BETWEEN '" & datAbfStatVon.Value & "' and '" & datAbfStatBis.Value & "' and tblSnd_AbfertigungTR_MA is not null
@@ -264,27 +264,33 @@ Public Class usrctlStatVERIMEX
'Dim cnt As Integer = 0
rpt.lblDat.Text = Now.ToLongDateString
Dim sumSnd As Integer = 0
Dim sumPos As Integer = 0
Dim sumLKW As Integer = 0
AddHandler rpt.Detail.Format, Sub()
'rpt.lblVon.Text = CDate(rpt.Fields.Item("von").Value).ToShortDateString
'rpt.lblBis.Text = CDate(rpt.Fields.Item("bis").Value).ToShortDateString
rpt.lblAnzSnd.Text = rpt.Fields.Item("Sendungen").Value
rpt.Label2.Text = rpt.Fields.Item("Positionen").Value
rpt.lblAnzSnd.Text = rpt.Fields.Item("Versandscheine").Value
rpt.lblAnzLKW.Text = rpt.Fields.Item("LKW").Value
rpt.lblMitarbeiter.Text = rpt.Fields.Item("Mitarbeiter").Value
sumSnd += CInt(rpt.Fields.Item("Sendungen").Value)
sumPos += CInt(rpt.Fields.Item("Positionen").Value)
sumSnd += CInt(rpt.Fields.Item("Versandscheine").Value)
sumLKW += CInt(rpt.Fields.Item("LKW").Value)
End Sub
AddHandler rpt.GroupHeader1.Format, Sub()
' If CheckBox1.Checked Then rpt.lblFiliale.Text = SQL.getValueTxtBySql("SELECT CAST(FilialenNr as varchar (4)) + ' ' + Grenzstelle FROM filialen WHERE FilialenNr='" & rpt.Fields.Item("FilialenNr").Value & "'", "FMZOLL")
sumPos = 0
sumSnd = 0
sumLKW = 0
End Sub
AddHandler rpt.GroupFooter1.Format, Sub()
rpt.lblAnzSndSum.Text = sumSnd
rpt.lblAnzPosSum.Text = sumPos
rpt.lblAnzLKWSum.Text = sumLKW
End Sub

82
Aviso/Aviso.vbproj
View File

@@ -138,6 +138,9 @@
<Reference Include="GrapeCity.ActiveReports.Core.Document">
<HintPath>C:\Program Files (x86)\GrapeCity\ActiveReports 15\Tools\GrapeCity.ActiveReports.Core.Document.dll</HintPath>
</Reference>
<Reference Include="GrapeCity.ActiveReports.Design.Win">
<HintPath>C:\Program Files (x86)\GrapeCity\ActiveReports 15\Tools\GrapeCity.ActiveReports.Design.Win.dll</HintPath>
</Reference>
<Reference Include="GrapeCity.ActiveReports.Document">
<HintPath>C:\Program Files (x86)\GrapeCity\ActiveReports 15\Tools\GrapeCity.ActiveReports.Document.dll</HintPath>
</Reference>
@@ -503,6 +506,30 @@
<Compile Include="frmAnkunftAendern.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmAbfertigungTR_ExportAnz.Designer.vb">
<DependentUpon>frmAbfertigungTR_ExportAnz.vb</DependentUpon>
</Compile>
<Compile Include="frmAbfertigungTR_ExportAnz.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Benachrichtigung\frmAvisoBenachrichtigungReminderBestaetigen.Designer.vb">
<DependentUpon>frmAvisoBenachrichtigungReminderBestaetigen.vb</DependentUpon>
</Compile>
<Compile Include="Benachrichtigung\frmAvisoBenachrichtigungReminderBestaetigen.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmFreigabeSetzenAnhaenge.Designer.vb">
<DependentUpon>frmFreigabeSetzenAnhaenge.vb</DependentUpon>
</Compile>
<Compile Include="frmFreigabeSetzenAnhaenge.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmSndVorgeschriebenSetzen.Designer.vb">
<DependentUpon>frmSndVorgeschriebenSetzen.vb</DependentUpon>
</Compile>
<Compile Include="frmSndVorgeschriebenSetzen.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmAnkunftSetzen.Designer.vb">
<DependentUpon>frmAnkunftSetzen.vb</DependentUpon>
</Compile>
@@ -515,22 +542,22 @@
<Compile Include="frmAvisoSettings.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmAvisoWeiterleitenBestaetigen.Designer.vb">
<Compile Include="Benachrichtigung\frmAvisoWeiterleitenBestaetigen.Designer.vb">
<DependentUpon>frmAvisoWeiterleitenBestaetigen.vb</DependentUpon>
</Compile>
<Compile Include="frmAvisoWeiterleitenBestaetigen.vb">
<Compile Include="Benachrichtigung\frmAvisoWeiterleitenBestaetigen.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmAvisoWeiterleitenOLD.Designer.vb">
<Compile Include="Benachrichtigung\frmAvisoWeiterleitenOLD.Designer.vb">
<DependentUpon>frmAvisoWeiterleitenOLD.vb</DependentUpon>
</Compile>
<Compile Include="frmAvisoWeiterleitenOLD.vb">
<Compile Include="Benachrichtigung\frmAvisoWeiterleitenOLD.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmAvisoWeiterleiten.Designer.vb">
<Compile Include="Benachrichtigung\frmAvisoWeiterleiten.Designer.vb">
<DependentUpon>frmAvisoWeiterleiten.vb</DependentUpon>
</Compile>
<Compile Include="frmAvisoWeiterleiten.vb">
<Compile Include="Benachrichtigung\frmAvisoWeiterleiten.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmAviso_Vorpapiere.Designer.vb">
@@ -779,10 +806,23 @@
<Compile Include="frmZollstopp.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="GVMS\frmGVMS.Designer.vb">
<DependentUpon>frmGVMS.vb</DependentUpon>
</Compile>
<Compile Include="GVMS\frmGVMS.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="GVMS\frmGVMSNew.Designer.vb">
<DependentUpon>frmGVMSNew.vb</DependentUpon>
</Compile>
<Compile Include="GVMS\frmGVMSNew.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="My Project\AssemblyInfo.vb" />
<Compile Include="My Project\Application.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Application.myapp</DependentUpon>
<DesignTime>True</DesignTime>
</Compile>
<Compile Include="My Project\Resources.Designer.vb">
<AutoGen>True</AutoGen>
@@ -849,10 +889,10 @@
<Compile Include="usrCntlAviso_Vorpapiere.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="usrCntlBenachrichtigungen.Designer.vb">
<Compile Include="Benachrichtigung\usrCntlBenachrichtigungen.Designer.vb">
<DependentUpon>usrCntlBenachrichtigungen.vb</DependentUpon>
</Compile>
<Compile Include="usrCntlBenachrichtigungen.vb">
<Compile Include="Benachrichtigung\usrCntlBenachrichtigungen.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="usrCntlEintragAvisoAtilla.Designer.vb">
@@ -979,19 +1019,31 @@
<EmbeddedResource Include="frmAnkunftAendern.resx">
<DependentUpon>frmAnkunftAendern.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmAbfertigungTR_ExportAnz.resx">
<DependentUpon>frmAbfertigungTR_ExportAnz.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Benachrichtigung\frmAvisoBenachrichtigungReminderBestaetigen.resx">
<DependentUpon>frmAvisoBenachrichtigungReminderBestaetigen.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmFreigabeSetzenAnhaenge.resx">
<DependentUpon>frmFreigabeSetzenAnhaenge.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmSndVorgeschriebenSetzen.resx">
<DependentUpon>frmSndVorgeschriebenSetzen.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmAnkunftSetzen.resx">
<DependentUpon>frmAnkunftSetzen.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmAvisoSettings.resx">
<DependentUpon>frmAvisoSettings.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmAvisoWeiterleitenBestaetigen.resx">
<EmbeddedResource Include="Benachrichtigung\frmAvisoWeiterleitenBestaetigen.resx">
<DependentUpon>frmAvisoWeiterleitenBestaetigen.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmAvisoWeiterleitenOLD.resx">
<EmbeddedResource Include="Benachrichtigung\frmAvisoWeiterleitenOLD.resx">
<DependentUpon>frmAvisoWeiterleitenOLD.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmAvisoWeiterleiten.resx">
<EmbeddedResource Include="Benachrichtigung\frmAvisoWeiterleiten.resx">
<DependentUpon>frmAvisoWeiterleiten.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmAviso_Vorpapiere.resx">
@@ -1118,6 +1170,12 @@
<EmbeddedResource Include="frmZollstopp.resx">
<DependentUpon>frmZollstopp.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="GVMS\frmGVMS.resx">
<DependentUpon>frmGVMS.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="GVMS\frmGVMSNew.resx">
<DependentUpon>frmGVMSNew.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="My Project\licenses.licx" />
<EmbeddedResource Include="My Project\Resources.resx">
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
@@ -1152,7 +1210,7 @@
<EmbeddedResource Include="usrCntlAviso_Vorpapiere.resx">
<DependentUpon>usrCntlAviso_Vorpapiere.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="usrCntlBenachrichtigungen.resx">
<EmbeddedResource Include="Benachrichtigung\usrCntlBenachrichtigungen.resx">
<DependentUpon>usrCntlBenachrichtigungen.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="usrCntlEintragAvisoAtilla.resx">

181
Aviso/Benachrichtigung/frmAvisoBenachrichtigungReminderBestaetigen.Designer.vb generated Normal file
View File

@@ -0,0 +1,181 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmAvisoBenachrichtigungReminderBestaetigen
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.pnl = New System.Windows.Forms.Panel()
Me.Label2 = New System.Windows.Forms.Label()
Me.Button1 = New System.Windows.Forms.Button()
Me.lblDatUhrzeit = New System.Windows.Forms.Label()
Me.lblArt = New System.Windows.Forms.Label()
Me.lbl = New System.Windows.Forms.Label()
Me.rtbVermerk = New System.Windows.Forms.RichTextBox()
Me.btn = New System.Windows.Forms.Button()
Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.Button2 = New System.Windows.Forms.Button()
Me.pnl.SuspendLayout()
Me.SuspendLayout()
'
'pnl
'
Me.pnl.BackColor = System.Drawing.Color.White
Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnl.Controls.Add(Me.Button2)
Me.pnl.Controls.Add(Me.Label2)
Me.pnl.Controls.Add(Me.Button1)
Me.pnl.Controls.Add(Me.lblDatUhrzeit)
Me.pnl.Controls.Add(Me.lblArt)
Me.pnl.Controls.Add(Me.lbl)
Me.pnl.Controls.Add(Me.rtbVermerk)
Me.pnl.Controls.Add(Me.btn)
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(460, 159)
Me.pnl.TabIndex = 0
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(193, 10)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(79, 13)
Me.Label2.TabIndex = 4
Me.Label2.Text = "Datum/Uhrzeit:"
'
'Button1
'
Me.Button1.BackColor = System.Drawing.Color.SteelBlue
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.ForeColor = System.Drawing.Color.White
Me.Button1.Location = New System.Drawing.Point(11, 92)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(236, 56)
Me.Button1.TabIndex = 9
Me.Button1.Text = "OK & Vermerk bestätigen" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(Vorauskasse / Angeforderte Doks erhalten)"
Me.Button1.UseVisualStyleBackColor = False
'
'lblDatUhrzeit
'
Me.lblDatUhrzeit.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblDatUhrzeit.Location = New System.Drawing.Point(213, 10)
Me.lblDatUhrzeit.Name = "lblDatUhrzeit"
Me.lblDatUhrzeit.Size = New System.Drawing.Size(177, 13)
Me.lblDatUhrzeit.TabIndex = 8
Me.lblDatUhrzeit.Text = "01.01.2020 10:00"
Me.lblDatUhrzeit.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'lblArt
'
Me.lblArt.AutoSize = True
Me.lblArt.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold)
Me.lblArt.Location = New System.Drawing.Point(11, 8)
Me.lblArt.Name = "lblArt"
Me.lblArt.Size = New System.Drawing.Size(167, 17)
Me.lblArt.TabIndex = 5
Me.lblArt.Text = "VERMERK REMINDER"
'
'lbl
'
Me.lbl.AutoSize = True
Me.lbl.Location = New System.Drawing.Point(8, 34)
Me.lbl.Name = "lbl"
Me.lbl.Size = New System.Drawing.Size(49, 13)
Me.lbl.TabIndex = 2
Me.lbl.Text = "Vermerk:"
'
'rtbVermerk
'
Me.rtbVermerk.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.rtbVermerk.Location = New System.Drawing.Point(11, 50)
Me.rtbVermerk.Name = "rtbVermerk"
Me.rtbVermerk.ReadOnly = True
Me.rtbVermerk.Size = New System.Drawing.Size(436, 36)
Me.rtbVermerk.TabIndex = 1
Me.rtbVermerk.Text = ""
'
'btn
'
Me.btn.BackColor = System.Drawing.Color.SteelBlue
Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn.ForeColor = System.Drawing.Color.White
Me.btn.Location = New System.Drawing.Point(253, 92)
Me.btn.Name = "btn"
Me.btn.Size = New System.Drawing.Size(194, 56)
Me.btn.TabIndex = 0
Me.btn.Text = "OK" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(Benachrichtigung akzeptieren)"
Me.btn.UseVisualStyleBackColor = False
'
'DataGridViewTextBoxColumn1
'
Me.DataGridViewTextBoxColumn1.HeaderText = "Column1"
Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1"
Me.DataGridViewTextBoxColumn1.Visible = False
'
'DataGridViewTextBoxColumn2
'
Me.DataGridViewTextBoxColumn2.HeaderText = "Datei"
Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
'
'Button2
'
Me.Button2.BackColor = System.Drawing.Color.Red
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(420, -1)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(39, 31)
Me.Button2.TabIndex = 10
Me.Button2.Text = "X"
Me.Button2.UseVisualStyleBackColor = False
'
'frmAvisoBenachrichtigungReminderBestaetigen
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(460, 159)
Me.Controls.Add(Me.pnl)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.Name = "frmAvisoBenachrichtigungReminderBestaetigen"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Bestätigen"
Me.pnl.ResumeLayout(False)
Me.pnl.PerformLayout()
Me.ResumeLayout(False)
End Sub
Friend WithEvents pnl As Panel
Friend WithEvents lblArt As Label
Friend WithEvents Label2 As Label
Friend WithEvents lbl As Label
Friend WithEvents rtbVermerk As RichTextBox
Friend WithEvents btn As Button
Friend WithEvents lblDatUhrzeit As Label
Friend WithEvents DataGridViewTextBoxColumn1 As DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn2 As DataGridViewTextBoxColumn
Friend WithEvents Button1 As Button
Friend WithEvents Button2 As Button
End Class

0
Aviso/usrCntlBenachrichtigungen.resx → Aviso/Benachrichtigung/frmAvisoBenachrichtigungReminderBestaetigen.resx
View File

75
Aviso/Benachrichtigung/frmAvisoBenachrichtigungReminderBestaetigen.vb Normal file
View File

@@ -0,0 +1,75 @@
Public Class frmAvisoBenachrichtigungReminderBestaetigen
Dim AB As VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen = Nothing
Sub New(AB As VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.AB = AB
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Sub New(ABId)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.AB = New VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen(ABId)
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub frmAvisoWeiterleitenBestaetigen_Load(sender As Object, e As EventArgs) Handles Me.Load
If AB IsNot Nothing Then
rtbVermerk.Text = AB.ab_Beschreibung
' lblName.Text = AB.ab_Mitarbeiter
lblDatUhrzeit.Text = AB.ab_Datum.ToShortDateString & " " & AB.ab_Datum.ToShortTimeString
If AB.ab_Art = "A" Then lblArt.Text = "LKW"
End If
End Sub
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
Me.DialogResult = DialogResult.None
Me.Close()
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim cVermerkeDAL As New VERAG_PROG_ALLGEMEIN.cVermerkeDAL
Dim myVermerk As VERAG_PROG_ALLGEMEIN.cVermerk = cVermerkeDAL.LesenVermerk(AB.ab_ReminderVermerkID, "")
myVermerk.VermerkID = 0 'zurücksetzen
myVermerk.Datum = Now
myVermerk.Mitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter
myVermerk.MitarbeiterId = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.MitarbeiterID
Select Case AB.ab_ReminderVermerkCode
Case 13
myVermerk.VermerkCodeId = 14
myVermerk.Hinweis_Vermerk = SQL.getValueTxtBySql("SELECT [Bezeichnung] FROM [VermerkeCodes] where VermerkCodeId='" & myVermerk.VermerkCodeId & "'", "AVISO")
Case Else
MsgBox("Vermerk konnte nicht quittiert werden - bitte manuell durchführen!")
End Select
Dim IdTmp = cVermerkeDAL.SpeichernVermerk(myVermerk)
cVermerkeDAL.SpeichernVermerkIDAufgehoben(AB.ab_ReminderVermerkID, IdTmp)
Me.DialogResult = DialogResult.OK
Me.Close()
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Me.DialogResult = DialogResult.Cancel
Me.Close()
End Sub
End Class

0
Aviso/frmAvisoWeiterleiten.Designer.vb → Aviso/Benachrichtigung/frmAvisoWeiterleiten.Designer.vb generated
View File

0
Aviso/frmAvisoWeiterleiten.resx → Aviso/Benachrichtigung/frmAvisoWeiterleiten.resx
View File

0
Aviso/frmAvisoWeiterleiten.vb → Aviso/Benachrichtigung/frmAvisoWeiterleiten.vb
View File

0
Aviso/frmAvisoWeiterleitenBestaetigen.Designer.vb → Aviso/Benachrichtigung/frmAvisoWeiterleitenBestaetigen.Designer.vb generated
View File

0
Aviso/frmAvisoWeiterleitenBestaetigen.resx → Aviso/Benachrichtigung/frmAvisoWeiterleitenBestaetigen.resx
View File

0
Aviso/frmAvisoWeiterleitenBestaetigen.vb → Aviso/Benachrichtigung/frmAvisoWeiterleitenBestaetigen.vb
View File

0
Aviso/frmAvisoWeiterleitenOLD.Designer.vb → Aviso/Benachrichtigung/frmAvisoWeiterleitenOLD.Designer.vb generated
View File

0
Aviso/frmAvisoWeiterleitenOLD.resx → Aviso/Benachrichtigung/frmAvisoWeiterleitenOLD.resx
View File

0
Aviso/frmAvisoWeiterleitenOLD.vb → Aviso/Benachrichtigung/frmAvisoWeiterleitenOLD.vb
View File

0
Aviso/usrCntlBenachrichtigungen.Designer.vb → Aviso/Benachrichtigung/usrCntlBenachrichtigungen.Designer.vb generated
View File

120
Aviso/Benachrichtigung/usrCntlBenachrichtigungen.resx Normal file
View File

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

51
Aviso/usrCntlBenachrichtigungen.vb → Aviso/Benachrichtigung/usrCntlBenachrichtigungen.vb
View File

@@ -75,6 +75,8 @@
.Columns("ab_Status").Visible = False
.Columns("ab_Vermerk").Visible = False
.Columns("ab_collAnhId").Visible = False
.Columns("ab_ReminderVermerkID").Visible = False
.Columns("ab_ReminderVermerkCode").Visible = False
.Columns("ab_TO_Art").Visible = False
.Columns("ab_TO_Code").Visible = False
@@ -207,22 +209,41 @@
If gridAvisoBenachrichtigungen.SelectedRows.Count > 0 Then
Dim AB As New VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen(gridAvisoBenachrichtigungen.SelectedRows(0).Cells("ab_id").Value)
'BEstätigen
If AB.BESTAETIGEN_BENACHRICHTIGUNG Then
'Übermehmen
If AB.ab_Art = "A" Then
If Not ASF.AktUebernehmen(AB.ab_AvisoID, False, False, False) Then Exit Sub
' If Not ASF.AktUebernehmen(AB.ab_AvisoID, False, False, True) Then Exit Sub
Else
If Not ASF.SendungUebernehmen(AB.ab_SendungID, AB.ab_AvisoID) Then Exit Sub
End If
'VERMERK inserieren
'insertSendungsVermerk(SendungID, myAviso.AvisoID, "In die Neukunden-Abteilung gegeben.", 46)
Dim f As New frmAvisoWeiterleitenBestaetigen(AB)
f.ShowDialog(Me)
Select Case AB.ab_BenachrichtigungCode
Case 5 ' REMINDER VERMERK
Dim f As New frmAvisoBenachrichtigungReminderBestaetigen(AB)
Select Case f.ShowDialog(Me)
Case DialogResult.OK
AB.BESTAETIGEN_BENACHRICHTIGUNG()
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(AB.ab_AvisoID, True)
initDgvAvisoBenachrichtigungen(True, Me.Font)
Case DialogResult.Cancel
'NIX
Case Else
AB.BESTAETIGEN_BENACHRICHTIGUNG()
initDgvAvisoBenachrichtigungen(True, Me.Font)
End Select
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(AB.ab_AvisoID, True)
initDgvAvisoBenachrichtigungen(True, Me.Font)
End If
Case Else 'Weiterleitung Akt/Snd
If AB.BESTAETIGEN_BENACHRICHTIGUNG Then
'Übermehmen
If AB.ab_Art = "A" Then
If Not ASF.AktUebernehmen(AB.ab_AvisoID, False, False, False) Then Exit Sub
' If Not ASF.AktUebernehmen(AB.ab_AvisoID, False, False, True) Then Exit Sub
Else
If Not ASF.SendungUebernehmen(AB.ab_SendungID, AB.ab_AvisoID) Then Exit Sub
End If
'VERMERK inserieren
'insertSendungsVermerk(SendungID, myAviso.AvisoID, "In die Neukunden-Abteilung gegeben.", 46)
Dim f As New frmAvisoWeiterleitenBestaetigen(AB)
f.ShowDialog(Me)
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(AB.ab_AvisoID, True)
initDgvAvisoBenachrichtigungen(True, Me.Font)
End If
End Select
End If
End Sub

2
Aviso/Benutzerdefinierte Elemente/SendTAB.vb
View File

@@ -20,7 +20,7 @@
End Sub
Private Sub pic_Click(sender As Object, e As EventArgs) Handles pic.Click
If MsgBox("Möchten Sie diese Sendung wirklich löchen?", vbYesNoCancel) = MsgBoxResult.Yes Then
If MsgBox("Möchten Sie diese Sendung wirklich löschen?", vbYesNoCancel) = MsgBoxResult.Yes Then
RaiseEvent DEL(Me)
End If
End Sub

1297
Aviso/CHMRC.vb
View File

File diff suppressed because it is too large Load Diff

765
Aviso/GVMS/frmGVMS.Designer.vb generated Normal file
View File

@@ -0,0 +1,765 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmGVMS
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmGVMS))
Me.AbgeholtToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.Label8 = New System.Windows.Forms.Label()
Me.btnVonJahr = New System.Windows.Forms.Button()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.btnBisJahr = New System.Windows.Forms.Button()
Me.btnMonat = New System.Windows.Forms.Button()
Me.btnBisMonat = New System.Windows.Forms.Button()
Me.btnVonMonat = New System.Windows.Forms.Button()
Me.DateTimePicker2 = New System.Windows.Forms.DateTimePicker()
Me.Label13 = New System.Windows.Forms.Label()
Me.Label12 = New System.Windows.Forms.Label()
Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker()
Me.pnl = New System.Windows.Forms.Panel()
Me.Label1 = New System.Windows.Forms.Label()
Me.Button7 = New System.Windows.Forms.Button()
Me.Button6 = New System.Windows.Forms.Button()
Me.Button5 = New System.Windows.Forms.Button()
Me.btnSuche = New System.Windows.Forms.Button()
Me.Label23 = New System.Windows.Forms.Label()
Me.btnJahr = New System.Windows.Forms.Button()
Me.pnlTop = New System.Windows.Forms.Panel()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.cntxtOptionen = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.StornoToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.btnExcel = New System.Windows.Forms.Button()
Me.pnloptions = New System.Windows.Forms.Panel()
Me.Button1 = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button()
Me.FlatButton7 = New System.Windows.Forms.Button()
Me.Label37 = New System.Windows.Forms.Label()
Me.Button3 = New System.Windows.Forms.Button()
Me.Button4 = New System.Windows.Forms.Button()
Me.Button8 = New System.Windows.Forms.Button()
Me.Button9 = New System.Windows.Forms.Button()
Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.cboSachbearbeiter = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.txtKennzeichen = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtAbfertDat = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtAbfertDatBis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtGMR = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtMaxSrch = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Button10 = New System.Windows.Forms.Button()
Me.Panel1.SuspendLayout()
Me.pnl.SuspendLayout()
Me.pnlTop.SuspendLayout()
Me.cntxtOptionen.SuspendLayout()
Me.pnloptions.SuspendLayout()
CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'AbgeholtToolStripMenuItem
'
Me.AbgeholtToolStripMenuItem.Name = "AbgeholtToolStripMenuItem"
Me.AbgeholtToolStripMenuItem.Size = New System.Drawing.Size(123, 22)
Me.AbgeholtToolStripMenuItem.Text = "Abgeholt"
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label8.Location = New System.Drawing.Point(12, 56)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(47, 13)
Me.Label8.TabIndex = 34
Me.Label8.Text = "Datum:"
'
'btnVonJahr
'
Me.btnVonJahr.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnVonJahr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.btnVonJahr.ForeColor = System.Drawing.Color.Black
Me.btnVonJahr.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnVonJahr.Location = New System.Drawing.Point(162, 103)
Me.btnVonJahr.Margin = New System.Windows.Forms.Padding(0)
Me.btnVonJahr.Name = "btnVonJahr"
Me.btnVonJahr.Size = New System.Drawing.Size(34, 23)
Me.btnVonJahr.TabIndex = 25
Me.btnVonJahr.Text = "<<"
Me.btnVonJahr.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnVonJahr.UseVisualStyleBackColor = True
'
'Panel1
'
Me.Panel1.Controls.Add(Me.MyDatagridview1)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel1.Location = New System.Drawing.Point(0, 140)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(1151, 455)
Me.Panel1.TabIndex = 4
'
'btnBisJahr
'
Me.btnBisJahr.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnBisJahr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.btnBisJahr.ForeColor = System.Drawing.Color.Black
Me.btnBisJahr.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnBisJahr.Location = New System.Drawing.Point(281, 103)
Me.btnBisJahr.Margin = New System.Windows.Forms.Padding(0)
Me.btnBisJahr.Name = "btnBisJahr"
Me.btnBisJahr.Size = New System.Drawing.Size(34, 23)
Me.btnBisJahr.TabIndex = 27
Me.btnBisJahr.Text = ">>"
Me.btnBisJahr.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnBisJahr.UseVisualStyleBackColor = True
'
'btnMonat
'
Me.btnMonat.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnMonat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.btnMonat.ForeColor = System.Drawing.Color.Black
Me.btnMonat.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnMonat.Location = New System.Drawing.Point(195, 77)
Me.btnMonat.Margin = New System.Windows.Forms.Padding(0)
Me.btnMonat.Name = "btnMonat"
Me.btnMonat.Size = New System.Drawing.Size(87, 23)
Me.btnMonat.TabIndex = 12
Me.btnMonat.Text = "September"
Me.btnMonat.UseVisualStyleBackColor = True
'
'btnBisMonat
'
Me.btnBisMonat.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnBisMonat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.btnBisMonat.ForeColor = System.Drawing.Color.Black
Me.btnBisMonat.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnBisMonat.Location = New System.Drawing.Point(281, 77)
Me.btnBisMonat.Margin = New System.Windows.Forms.Padding(0)
Me.btnBisMonat.Name = "btnBisMonat"
Me.btnBisMonat.Size = New System.Drawing.Size(34, 23)
Me.btnBisMonat.TabIndex = 13
Me.btnBisMonat.Text = ">>"
Me.btnBisMonat.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnBisMonat.UseVisualStyleBackColor = True
'
'btnVonMonat
'
Me.btnVonMonat.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnVonMonat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.btnVonMonat.ForeColor = System.Drawing.Color.Black
Me.btnVonMonat.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnVonMonat.Location = New System.Drawing.Point(162, 77)
Me.btnVonMonat.Margin = New System.Windows.Forms.Padding(0)
Me.btnVonMonat.Name = "btnVonMonat"
Me.btnVonMonat.Size = New System.Drawing.Size(34, 23)
Me.btnVonMonat.TabIndex = 11
Me.btnVonMonat.Text = "<<"
Me.btnVonMonat.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnVonMonat.UseVisualStyleBackColor = True
'
'DateTimePicker2
'
Me.DateTimePicker2.CustomFormat = "''"
Me.DateTimePicker2.Format = System.Windows.Forms.DateTimePickerFormat.Custom
Me.DateTimePicker2.Location = New System.Drawing.Point(41, 106)
Me.DateTimePicker2.Margin = New System.Windows.Forms.Padding(0)
Me.DateTimePicker2.Name = "DateTimePicker2"
Me.DateTimePicker2.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.DateTimePicker2.Size = New System.Drawing.Size(115, 20)
Me.DateTimePicker2.TabIndex = 24
'
'Label13
'
Me.Label13.AutoSize = True
Me.Label13.Location = New System.Drawing.Point(12, 81)
Me.Label13.Name = "Label13"
Me.Label13.Size = New System.Drawing.Size(28, 13)
Me.Label13.TabIndex = 8
Me.Label13.Text = "von:"
'
'Label12
'
Me.Label12.AutoSize = True
Me.Label12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label12.Location = New System.Drawing.Point(336, 83)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(72, 13)
Me.Label12.TabIndex = 7
Me.Label12.Text = "Kennzeichen:"
'
'DateTimePicker1
'
Me.DateTimePicker1.CustomFormat = "''"
Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.Custom
Me.DateTimePicker1.Location = New System.Drawing.Point(41, 77)
Me.DateTimePicker1.Margin = New System.Windows.Forms.Padding(0)
Me.DateTimePicker1.Name = "DateTimePicker1"
Me.DateTimePicker1.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.DateTimePicker1.Size = New System.Drawing.Size(115, 20)
Me.DateTimePicker1.TabIndex = 10
'
'pnl
'
Me.pnl.BackColor = System.Drawing.Color.WhiteSmoke
Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnl.Controls.Add(Me.cboSachbearbeiter)
Me.pnl.Controls.Add(Me.Label1)
Me.pnl.Controls.Add(Me.txtKennzeichen)
Me.pnl.Controls.Add(Me.Label8)
Me.pnl.Controls.Add(Me.txtAbfertDat)
Me.pnl.Controls.Add(Me.txtAbfertDatBis)
Me.pnl.Controls.Add(Me.txtGMR)
Me.pnl.Controls.Add(Me.Button7)
Me.pnl.Controls.Add(Me.Button6)
Me.pnl.Controls.Add(Me.Button5)
Me.pnl.Controls.Add(Me.btnSuche)
Me.pnl.Controls.Add(Me.Label23)
Me.pnl.Controls.Add(Me.btnJahr)
Me.pnl.Controls.Add(Me.pnlTop)
Me.pnl.Controls.Add(Me.btnBisJahr)
Me.pnl.Controls.Add(Me.btnVonJahr)
Me.pnl.Controls.Add(Me.btnMonat)
Me.pnl.Controls.Add(Me.btnBisMonat)
Me.pnl.Controls.Add(Me.btnVonMonat)
Me.pnl.Controls.Add(Me.DateTimePicker2)
Me.pnl.Controls.Add(Me.Label13)
Me.pnl.Controls.Add(Me.Label2)
Me.pnl.Controls.Add(Me.Label12)
Me.pnl.Controls.Add(Me.DateTimePicker1)
Me.pnl.Dock = System.Windows.Forms.DockStyle.Top
Me.pnl.Location = New System.Drawing.Point(0, 0)
Me.pnl.Name = "pnl"
Me.pnl.Size = New System.Drawing.Size(1151, 140)
Me.pnl.TabIndex = 3
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(632, 62)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(82, 13)
Me.Label1.TabIndex = 22
Me.Label1.Text = "Sachbearbeiter:"
'
'Button7
'
Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.Button7.ForeColor = System.Drawing.Color.Black
Me.Button7.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button7.Location = New System.Drawing.Point(281, 51)
Me.Button7.Margin = New System.Windows.Forms.Padding(0)
Me.Button7.Name = "Button7"
Me.Button7.Size = New System.Drawing.Size(34, 23)
Me.Button7.TabIndex = 4
Me.Button7.Text = ">>"
Me.Button7.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button7.UseVisualStyleBackColor = True
'
'Button6
'
Me.Button6.FlatStyle = System.Windows.Forms.FlatStyle.Flat
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.MiddleLeft
Me.Button6.Location = New System.Drawing.Point(162, 51)
Me.Button6.Margin = New System.Windows.Forms.Padding(0)
Me.Button6.Name = "Button6"
Me.Button6.Size = New System.Drawing.Size(34, 23)
Me.Button6.TabIndex = 2
Me.Button6.Text = "<<"
Me.Button6.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button6.UseVisualStyleBackColor = True
'
'Button5
'
Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.Button5.ForeColor = System.Drawing.Color.Black
Me.Button5.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button5.Location = New System.Drawing.Point(195, 51)
Me.Button5.Margin = New System.Windows.Forms.Padding(0)
Me.Button5.Name = "Button5"
Me.Button5.Size = New System.Drawing.Size(87, 23)
Me.Button5.TabIndex = 3
Me.Button5.Text = "Heute"
Me.Button5.UseVisualStyleBackColor = True
'
'btnSuche
'
Me.btnSuche.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnSuche.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnSuche.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnSuche.Image = Global.AVISO.My.Resources.Resources.search1
Me.btnSuche.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnSuche.Location = New System.Drawing.Point(963, 57)
Me.btnSuche.Name = "btnSuche"
Me.btnSuche.Size = New System.Drawing.Size(162, 52)
Me.btnSuche.TabIndex = 22
Me.btnSuche.Text = "Suche starten"
Me.btnSuche.UseVisualStyleBackColor = True
'
'Label23
'
Me.Label23.AutoSize = True
Me.Label23.Location = New System.Drawing.Point(12, 109)
Me.Label23.Name = "Label23"
Me.Label23.Size = New System.Drawing.Size(23, 13)
Me.Label23.TabIndex = 20
Me.Label23.Text = "bis:"
'
'btnJahr
'
Me.btnJahr.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnJahr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.btnJahr.ForeColor = System.Drawing.Color.Black
Me.btnJahr.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnJahr.Location = New System.Drawing.Point(195, 103)
Me.btnJahr.Margin = New System.Windows.Forms.Padding(0)
Me.btnJahr.Name = "btnJahr"
Me.btnJahr.Size = New System.Drawing.Size(87, 23)
Me.btnJahr.TabIndex = 26
Me.btnJahr.Text = "2016"
Me.btnJahr.UseVisualStyleBackColor = True
'
'pnlTop
'
Me.pnlTop.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.pnlTop.Controls.Add(Me.Label4)
Me.pnlTop.Dock = System.Windows.Forms.DockStyle.Top
Me.pnlTop.Location = New System.Drawing.Point(0, 0)
Me.pnlTop.Name = "pnlTop"
Me.pnlTop.Size = New System.Drawing.Size(1149, 48)
Me.pnlTop.TabIndex = 0
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 16.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label4.ForeColor = System.Drawing.Color.White
Me.Label4.Location = New System.Drawing.Point(10, 13)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(81, 26)
Me.Label4.TabIndex = 0
Me.Label4.Text = "GVMS"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.Location = New System.Drawing.Point(336, 62)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(39, 13)
Me.Label2.TabIndex = 5
Me.Label2.Text = "GMR:"
'
'cntxtOptionen
'
Me.cntxtOptionen.ImageScalingSize = New System.Drawing.Size(24, 24)
Me.cntxtOptionen.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AbgeholtToolStripMenuItem, Me.StornoToolStripMenuItem})
Me.cntxtOptionen.Name = "cntxtOptionen"
Me.cntxtOptionen.Size = New System.Drawing.Size(124, 48)
Me.cntxtOptionen.Text = "Optionen"
'
'StornoToolStripMenuItem
'
Me.StornoToolStripMenuItem.Name = "StornoToolStripMenuItem"
Me.StornoToolStripMenuItem.Size = New System.Drawing.Size(123, 22)
Me.StornoToolStripMenuItem.Text = "Storno"
'
'btnExcel
'
Me.btnExcel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnExcel.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
Me.btnExcel.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnExcel.Location = New System.Drawing.Point(1060, 22)
Me.btnExcel.Name = "btnExcel"
Me.btnExcel.Size = New System.Drawing.Size(41, 34)
Me.btnExcel.TabIndex = 7
Me.btnExcel.UseVisualStyleBackColor = True
'
'pnloptions
'
Me.pnloptions.BackColor = System.Drawing.Color.WhiteSmoke
Me.pnloptions.Controls.Add(Me.Button10)
Me.pnloptions.Controls.Add(Me.Button9)
Me.pnloptions.Controls.Add(Me.Button8)
Me.pnloptions.Controls.Add(Me.Button4)
Me.pnloptions.Controls.Add(Me.Button3)
Me.pnloptions.Controls.Add(Me.Button1)
Me.pnloptions.Controls.Add(Me.Button2)
Me.pnloptions.Controls.Add(Me.btnExcel)
Me.pnloptions.Controls.Add(Me.FlatButton7)
Me.pnloptions.Controls.Add(Me.Label37)
Me.pnloptions.Controls.Add(Me.txtMaxSrch)
Me.pnloptions.Dock = System.Windows.Forms.DockStyle.Bottom
Me.pnloptions.Location = New System.Drawing.Point(0, 595)
Me.pnloptions.Name = "pnloptions"
Me.pnloptions.Size = New System.Drawing.Size(1151, 59)
Me.pnloptions.TabIndex = 5
'
'Button1
'
Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button1.Location = New System.Drawing.Point(113, 5)
Me.Button1.Margin = New System.Windows.Forms.Padding(0)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(170, 45)
Me.Button1.TabIndex = 9
Me.Button1.Text = "Nachrichten einarbeiten"
Me.Button1.UseVisualStyleBackColor = True
'
'Button2
'
Me.Button2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button2.Image = Global.AVISO.My.Resources.Resources.plus
Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button2.Location = New System.Drawing.Point(12, 5)
Me.Button2.Margin = New System.Windows.Forms.Padding(0)
Me.Button2.Name = "Button2"
Me.Button2.Padding = New System.Windows.Forms.Padding(0, 0, 10, 0)
Me.Button2.Size = New System.Drawing.Size(84, 45)
Me.Button2.TabIndex = 1
Me.Button2.Text = "Neu"
Me.Button2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button2.UseVisualStyleBackColor = True
'
'FlatButton7
'
Me.FlatButton7.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.FlatButton7.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.FlatButton7.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.FlatButton7.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.FlatButton7.ForeColor = System.Drawing.Color.Black
Me.FlatButton7.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.FlatButton7.Location = New System.Drawing.Point(1107, 22)
Me.FlatButton7.Name = "FlatButton7"
Me.FlatButton7.Size = New System.Drawing.Size(41, 34)
Me.FlatButton7.TabIndex = 8
Me.FlatButton7.UseVisualStyleBackColor = True
'
'Label37
'
Me.Label37.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label37.AutoSize = True
Me.Label37.Location = New System.Drawing.Point(974, 33)
Me.Label37.Name = "Label37"
Me.Label37.Size = New System.Drawing.Size(30, 13)
Me.Label37.TabIndex = 5
Me.Label37.Text = "Max:"
'
'Button3
'
Me.Button3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button3.Image = Global.AVISO.My.Resources.Resources.del
Me.Button3.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button3.Location = New System.Drawing.Point(340, 5)
Me.Button3.Margin = New System.Windows.Forms.Padding(0)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(170, 45)
Me.Button3.TabIndex = 10
Me.Button3.Text = "GMR löschen (HMRC)"
Me.Button3.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button3.UseVisualStyleBackColor = True
'
'Button4
'
Me.Button4.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button4.Location = New System.Drawing.Point(520, 5)
Me.Button4.Margin = New System.Windows.Forms.Padding(0)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(109, 45)
Me.Button4.TabIndex = 11
Me.Button4.Text = "GVMS LIST"
Me.Button4.UseVisualStyleBackColor = True
'
'Button8
'
Me.Button8.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.Button8.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button8.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button8.Location = New System.Drawing.Point(636, 5)
Me.Button8.Margin = New System.Windows.Forms.Padding(0)
Me.Button8.Name = "Button8"
Me.Button8.Size = New System.Drawing.Size(122, 45)
Me.Button8.TabIndex = 12
Me.Button8.Text = "GMR UPDATE"
Me.Button8.UseVisualStyleBackColor = True
'
'Button9
'
Me.Button9.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.Button9.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button9.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button9.Location = New System.Drawing.Point(826, 5)
Me.Button9.Margin = New System.Windows.Forms.Padding(0)
Me.Button9.Name = "Button9"
Me.Button9.Size = New System.Drawing.Size(122, 45)
Me.Button9.TabIndex = 13
Me.Button9.Text = "UPDATE REF DATA"
Me.Button9.UseVisualStyleBackColor = True
'
'MyDatagridview1
'
Me.MyDatagridview1.AKTUALISIERUNGS_INTERVALL = -1
Me.MyDatagridview1.AllowUserToAddRows = False
Me.MyDatagridview1.AllowUserToDeleteRows = False
Me.MyDatagridview1.AllowUserToOrderColumns = True
Me.MyDatagridview1.AllowUserToResizeRows = False
Me.MyDatagridview1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.GradientInactiveCaption
DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.MyDatagridview1.DefaultCellStyle = DataGridViewCellStyle1
Me.MyDatagridview1.Dock = System.Windows.Forms.DockStyle.Fill
Me.MyDatagridview1.Location = New System.Drawing.Point(0, 0)
Me.MyDatagridview1.Name = "MyDatagridview1"
Me.MyDatagridview1.RowHeadersVisible = False
Me.MyDatagridview1.Size = New System.Drawing.Size(1151, 455)
Me.MyDatagridview1.TabIndex = 0
'
'cboSachbearbeiter
'
Me.cboSachbearbeiter._allowedValuesFreiText = Nothing
Me.cboSachbearbeiter._allowFreiText = False
Me.cboSachbearbeiter._value = ""
Me.cboSachbearbeiter.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
Me.cboSachbearbeiter.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
Me.cboSachbearbeiter.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboSachbearbeiter.FormattingEnabled = True
Me.cboSachbearbeiter.Location = New System.Drawing.Point(731, 57)
Me.cboSachbearbeiter.Name = "cboSachbearbeiter"
Me.cboSachbearbeiter.Size = New System.Drawing.Size(168, 24)
Me.cboSachbearbeiter.TabIndex = 23
'
'txtKennzeichen
'
Me.txtKennzeichen._DateTimeOnly = False
Me.txtKennzeichen._numbersOnly = False
Me.txtKennzeichen._numbersOnlyKommastellen = ""
Me.txtKennzeichen._Prozent = False
Me.txtKennzeichen._ShortDateNew = False
Me.txtKennzeichen._ShortDateOnly = False
Me.txtKennzeichen._TimeOnly = False
Me.txtKennzeichen._TimeOnly_Seconds = False
Me.txtKennzeichen._value = ""
Me.txtKennzeichen._Waehrung = False
Me.txtKennzeichen._WaehrungZeichen = True
Me.txtKennzeichen.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtKennzeichen.ForeColor = System.Drawing.Color.Black
Me.txtKennzeichen.Location = New System.Drawing.Point(435, 78)
Me.txtKennzeichen.MaxLineLength = -1
Me.txtKennzeichen.MaxLines_Warning = ""
Me.txtKennzeichen.MaxLines_Warning_Label = Nothing
Me.txtKennzeichen.Name = "txtKennzeichen"
Me.txtKennzeichen.Size = New System.Drawing.Size(168, 23)
Me.txtKennzeichen.TabIndex = 35
'
'txtAbfertDat
'
Me.txtAbfertDat._DateTimeOnly = False
Me.txtAbfertDat._numbersOnly = False
Me.txtAbfertDat._numbersOnlyKommastellen = ""
Me.txtAbfertDat._Prozent = False
Me.txtAbfertDat._ShortDateNew = True
Me.txtAbfertDat._ShortDateOnly = False
Me.txtAbfertDat._TimeOnly = False
Me.txtAbfertDat._TimeOnly_Seconds = False
Me.txtAbfertDat._value = ""
Me.txtAbfertDat._Waehrung = False
Me.txtAbfertDat._WaehrungZeichen = True
Me.txtAbfertDat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtAbfertDat.ForeColor = System.Drawing.Color.Black
Me.txtAbfertDat.Location = New System.Drawing.Point(41, 77)
Me.txtAbfertDat.MaxLength = 10
Me.txtAbfertDat.MaxLineLength = -1
Me.txtAbfertDat.MaxLines_Warning = ""
Me.txtAbfertDat.MaxLines_Warning_Label = Nothing
Me.txtAbfertDat.Name = "txtAbfertDat"
Me.txtAbfertDat.Size = New System.Drawing.Size(83, 20)
Me.txtAbfertDat.TabIndex = 9
'
'txtAbfertDatBis
'
Me.txtAbfertDatBis._DateTimeOnly = False
Me.txtAbfertDatBis._numbersOnly = False
Me.txtAbfertDatBis._numbersOnlyKommastellen = ""
Me.txtAbfertDatBis._Prozent = False
Me.txtAbfertDatBis._ShortDateNew = True
Me.txtAbfertDatBis._ShortDateOnly = False
Me.txtAbfertDatBis._TimeOnly = False
Me.txtAbfertDatBis._TimeOnly_Seconds = False
Me.txtAbfertDatBis._value = ""
Me.txtAbfertDatBis._Waehrung = False
Me.txtAbfertDatBis._WaehrungZeichen = True
Me.txtAbfertDatBis.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtAbfertDatBis.ForeColor = System.Drawing.Color.Black
Me.txtAbfertDatBis.Location = New System.Drawing.Point(41, 106)
Me.txtAbfertDatBis.MaxLength = 10
Me.txtAbfertDatBis.MaxLineLength = -1
Me.txtAbfertDatBis.MaxLines_Warning = ""
Me.txtAbfertDatBis.MaxLines_Warning_Label = Nothing
Me.txtAbfertDatBis.Name = "txtAbfertDatBis"
Me.txtAbfertDatBis.Size = New System.Drawing.Size(83, 20)
Me.txtAbfertDatBis.TabIndex = 23
'
'txtGMR
'
Me.txtGMR._DateTimeOnly = False
Me.txtGMR._numbersOnly = False
Me.txtGMR._numbersOnlyKommastellen = ""
Me.txtGMR._Prozent = False
Me.txtGMR._ShortDateNew = False
Me.txtGMR._ShortDateOnly = False
Me.txtGMR._TimeOnly = False
Me.txtGMR._TimeOnly_Seconds = False
Me.txtGMR._value = ""
Me.txtGMR._Waehrung = False
Me.txtGMR._WaehrungZeichen = True
Me.txtGMR.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtGMR.ForeColor = System.Drawing.Color.Black
Me.txtGMR.Location = New System.Drawing.Point(435, 57)
Me.txtGMR.MaxLineLength = -1
Me.txtGMR.MaxLines_Warning = ""
Me.txtGMR.MaxLines_Warning_Label = Nothing
Me.txtGMR.Name = "txtGMR"
Me.txtGMR.Size = New System.Drawing.Size(168, 23)
Me.txtGMR.TabIndex = 6
'
'txtMaxSrch
'
Me.txtMaxSrch._DateTimeOnly = False
Me.txtMaxSrch._numbersOnly = True
Me.txtMaxSrch._numbersOnlyKommastellen = ""
Me.txtMaxSrch._Prozent = False
Me.txtMaxSrch._ShortDateNew = False
Me.txtMaxSrch._ShortDateOnly = False
Me.txtMaxSrch._TimeOnly = False
Me.txtMaxSrch._TimeOnly_Seconds = False
Me.txtMaxSrch._value = ""
Me.txtMaxSrch._Waehrung = False
Me.txtMaxSrch._WaehrungZeichen = True
Me.txtMaxSrch.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtMaxSrch.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtMaxSrch.ForeColor = System.Drawing.Color.Black
Me.txtMaxSrch.Location = New System.Drawing.Point(1006, 30)
Me.txtMaxSrch.MaxLineLength = -1
Me.txtMaxSrch.MaxLines_Warning = ""
Me.txtMaxSrch.MaxLines_Warning_Label = Nothing
Me.txtMaxSrch.Name = "txtMaxSrch"
Me.txtMaxSrch.Size = New System.Drawing.Size(48, 20)
Me.txtMaxSrch.TabIndex = 6
Me.txtMaxSrch.Text = "1000"
Me.txtMaxSrch.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'Button10
'
Me.Button10.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.Button10.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button10.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button10.Location = New System.Drawing.Point(282, 5)
Me.Button10.Margin = New System.Windows.Forms.Padding(0)
Me.Button10.Name = "Button10"
Me.Button10.Size = New System.Drawing.Size(51, 45)
Me.Button10.TabIndex = 14
Me.Button10.Text = "Ackn."
Me.Button10.UseVisualStyleBackColor = True
'
'frmGVMS
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1151, 654)
Me.Controls.Add(Me.Panel1)
Me.Controls.Add(Me.pnl)
Me.Controls.Add(Me.pnloptions)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmGVMS"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "GVMS"
Me.Panel1.ResumeLayout(False)
Me.pnl.ResumeLayout(False)
Me.pnl.PerformLayout()
Me.pnlTop.ResumeLayout(False)
Me.pnlTop.PerformLayout()
Me.cntxtOptionen.ResumeLayout(False)
Me.pnloptions.ResumeLayout(False)
Me.pnloptions.PerformLayout()
CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Friend WithEvents AbgeholtToolStripMenuItem As ToolStripMenuItem
Friend WithEvents Label8 As Label
Friend WithEvents btnVonJahr As Button
Friend WithEvents Panel1 As Panel
Friend WithEvents MyDatagridview1 As VERAG_PROG_ALLGEMEIN.MyDatagridview
Friend WithEvents btnBisJahr As Button
Friend WithEvents btnMonat As Button
Friend WithEvents btnBisMonat As Button
Friend WithEvents btnVonMonat As Button
Friend WithEvents DateTimePicker2 As DateTimePicker
Friend WithEvents Label13 As Label
Friend WithEvents Label12 As Label
Friend WithEvents DateTimePicker1 As DateTimePicker
Friend WithEvents pnl As Panel
Friend WithEvents txtAbfertDat As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtAbfertDatBis As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtGMR As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Button7 As Button
Friend WithEvents Button6 As Button
Friend WithEvents Button5 As Button
Friend WithEvents btnSuche As Button
Friend WithEvents Label23 As Label
Friend WithEvents btnJahr As Button
Friend WithEvents pnlTop As Panel
Friend WithEvents Label4 As Label
Friend WithEvents Label2 As Label
Friend WithEvents cntxtOptionen As ContextMenuStrip
Friend WithEvents StornoToolStripMenuItem As ToolStripMenuItem
Friend WithEvents btnExcel As Button
Friend WithEvents pnloptions As Panel
Friend WithEvents Button1 As Button
Friend WithEvents Button2 As Button
Friend WithEvents FlatButton7 As Button
Friend WithEvents Label37 As Label
Friend WithEvents txtMaxSrch As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtKennzeichen As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents cboSachbearbeiter As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label1 As Label
Friend WithEvents Button3 As Button
Friend WithEvents Button4 As Button
Friend WithEvents Button8 As Button
Friend WithEvents Button9 As Button
Friend WithEvents Button10 As Button
End Class

1256
Aviso/GVMS/frmGVMS.resx Normal file
View File

File diff suppressed because it is too large Load Diff

422
Aviso/GVMS/frmGVMS.vb Normal file
View File

@@ -0,0 +1,422 @@
Public Class frmGVMS
Dim FahrerAbholAuftrag = False
Dim MONAT As Date = CDate("01." & Now.Month & "." & Now.Year) '.AddMonths(-1)
Dim srcTAG As Date = CDate(Now.ToShortDateString)
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim JAHR As Date = CDate("01.01." & Now.Year)
Sub New()
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Dim fullyPainted = False
Protected Overrides Sub WndProc(ByRef m As Message)
MyBase.WndProc(m)
If m.Msg = 15 AndAlso Not fullyPainted Then
fullyPainted = True
setDGVOptions()
' initAllg()
' initFilter()
End If
End Sub
Private Sub usrCntlSDLAbholung_Load(sender As Object, e As EventArgs) Handles Me.Load
txtAbfertDat.Text = Now.AddMonths(-6).ToShortDateString 'CDate("01." & Now.ToString("MM.yyyy")).AddMonths(-1).ToShortDateString
txtAbfertDatBis.Text = Now.ToShortDateString
btnMonat.Text = MONAT.ToString("MMMM")
btnJahr.Text = JAHR.Year
cboSachbearbeiter.fillWithSQL("SELECT [mit_id],[mit_vname] + ' '+ [mit_nname] as Name " &
" FROM [ADMIN].[dbo].[tblMitarbeiter] WHERE mit_niederlassung IN ('SUB','Suben') AND mit_abteilung='ZOLL' AND [mit_gekuendigt]=0 order by name", False, "ADMIN", True)
btnSuche.PerformClick()
' If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("BH_Vorauskasse_buchen", "SDL") Then
'pnlBH.Visible = True
' End If
txtGMR.Focus()
End Sub
Private Sub DateTimePicker1_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker1.ValueChanged
txtAbfertDat._value = CDate(sender.value).ToShortDateString
End Sub
Private Sub DateTimePicker2_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker2.ValueChanged
txtAbfertDatBis._value = CDate(sender.value).ToShortDateString
End Sub
Sub initBtns(MonatJahr)
btnMonat.Text = MONAT.ToString("MMMM")
btnJahr.Text = JAHR.Year
Select Case MonatJahr
Case "Monat"
DateTimePicker1.Value = MONAT
DateTimePicker2.Value = MONAT.AddMonths(1).AddDays(-1)
Case "Jahr"
' If cbxGeschaftsjahr.Checked Then
'DateTimePicker1.Value = JAHR.AddMonths(1)
' DateTimePicker2.Value = JAHR.AddYears(1).AddMonths(1).AddDays(-1)
' Else
DateTimePicker1.Value = JAHR
DateTimePicker2.Value = JAHR.AddYears(1).AddDays(-1)
'End If
Case "Tag"
' If cbxGeschaftsjahr.Checked Then
'DateTimePicker1.Value = JAHR.AddMonths(1)
' DateTimePicker2.Value = JAHR.AddYears(1).AddMonths(1).AddDays(-1)
' Else
DateTimePicker1.Value = srcTAG
DateTimePicker2.Value = srcTAG
If srcTAG = Now.ToShortDateString Then
Button5.Text = "Heute"
ElseIf srcTAG = Now.AddDays(-1).ToShortDateString Then
Button5.Text = "Gestern"
ElseIf srcTAG = Now.AddDays(-2).ToShortDateString Then
Button5.Text = "Vorgestern"
Else
Button5.Text = srcTAG.ToString("dd.MM")
End If
'End If
Case ""
DateTimePicker1.Value = ("01." & Now.Month & "." & Now.Year)
DateTimePicker2.Value = Now
End Select
btnSuche.PerformClick()
End Sub
Private Sub btnSuche_Click(sender As Object, e As EventArgs) Handles btnSuche.Click
Me.Cursor = Cursors.WaitCursor
Dim TopMax = If(IsNumeric(txtMaxSrch.Text), " TOP " & txtMaxSrch.Text, "")
Dim sqlstr As String = ""
sqlstr &= " SELECT " & TopMax & " * FROM [tblGVMS] WHERE 1=1 "
With MyDatagridview1
' .DataSource = myTable
.SET_SQL(sqlstr & getWhere() & " order by gvms_datetime desc, gvms_id", "FMZOLL", getList)
.LOAD()
setDGVOptions()
End With
showDGV()
Me.Cursor = Cursors.Default
End Sub
Function getWhere() As String
Dim sqlstr = ""
If txtAbfertDat.Text <> "" Then
If txtAbfertDatBis.Text <> "" Then
sqlstr &= " AND ([gvms_datetime] BETWEEN @DatVon AND @DatBis ) "
Else
sqlstr &= " AND ([gvms_datetime] BETWEEN @DatVon AND @DatVon ) "
End If
End If
If txtGMR.Text <> "" Then sqlstr &= " AND gvms_GMR LIKE @GMR "
If cboSachbearbeiter._value <> "" Then sqlstr &= " AND sms_SachbearbeiterId LIKE @Personalnummer "
If txtKennzeichen.Text <> "" Then sqlstr &= " AND [gvms_vehicleRegNum] LIKE @Kennzeichen "
Return sqlstr
End Function
Function getList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DatVon", txtAbfertDat.Text & " 00:00:00"))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DatBis", txtAbfertDatBis.Text & " 23:59:59"))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GMR", ("%" & txtGMR.Text & "%").Replace("*", "%").Replace("/", "").Replace(" ", "")))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Personalnummer", cboSachbearbeiter._value))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Kennzeichen", ("%" & txtKennzeichen.Text & "%").Replace("*", "%").Replace("/", "").Replace(" ", "")))
Return list
End Function
Sub showDGV()
With MyDatagridview1
If .ColumnCount = 0 Then Me.Cursor = Cursors.Default : Exit Sub
.RowHeadersVisible = False
.ReadOnly = True
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
.MultiSelect = False
.Columns("gvms_id").Visible = False
'.Columns("sms_id").Visible = False
'.Columns("sms_BatchId").Visible = False
'.Columns("sms_MessageIds").Visible = False
'.Columns("sms_Datum").Width = 100
'.Columns("sms_Datum").HeaderText = "Datum"
'.Columns("sms_Datum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
'.Columns("sms_Sachbearbeiter").Width = 100
'.Columns("sms_Sachbearbeiter").HeaderText = "Erfassung SB"
'.Columns("sms_Account").Visible = False
'.Columns("Nummer").Width = 150
'.Columns("Nummer").HeaderText = "Handy Nummer"
'.Columns("sms_Nachricht").MinimumWidth = 100
'.Columns("sms_Nachricht").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
'.Columns("sms_Nachricht").HeaderText = "Nachricht"
' lblErgebnis.Text = "Ergebnise: " & .RowCount
End With
End Sub
Private Sub FlatButton7_Click(sender As Object, e As EventArgs) Handles FlatButton7.Click
MyDatagridview1.RELOAD()
setDGVOptions()
End Sub
Sub setDGVOptions()
Try
Exit Sub
With MyDatagridview1
For Each r As DataGridViewRow In .Rows
If r.Cells("sdlAb_Storniert").Value IsNot DBNull.Value AndAlso r.Cells("sdlAb_Storniert").Value Then
r.DefaultCellStyle.ForeColor = Color.Red
r.DefaultCellStyle.SelectionForeColor = Color.Red
' r.DefaultCellStyle.SelectionBackColor = Color.White
ElseIf r.Cells("sdlAb_Abgeholt").Value IsNot DBNull.Value AndAlso r.Cells("sdlAb_Abgeholt").Value Then
r.DefaultCellStyle.ForeColor = Color.DarkGreen
r.DefaultCellStyle.SelectionForeColor = Color.DarkGreen
' r.DefaultCellStyle.SelectionBackColor = Color.White
End If
Next
End With
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub btnExcel_Click(sender As Object, e As EventArgs) Handles btnExcel.Click
Me.Cursor = Cursors.WaitCursor
SDL.cProgramFunctions.genExcelFromDGV_NEW(MyDatagridview1, False)
Me.Cursor = Cursors.Default
End Sub
Private Sub MyDatagridview1_CellMouseClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles MyDatagridview1.CellMouseClick
Exit Sub
If e.Button = Windows.Forms.MouseButtons.Right Then
MyDatagridview1.ClearSelection()
MyDatagridview1.Rows(e.RowIndex).Selected = True
' MyDatagridview1.CurrentCell = MyDatagridview1.Rows(e.RowIndex).Cells("sms_Handynummer")
MyDatagridview1.Rows(e.RowIndex).Selected = True
cntxtOptionen.Show(System.Windows.Forms.Cursor.Position)
End If
End Sub
Private Sub MyDatagridview1_SelectionChanged(sender As Object, e As EventArgs) Handles MyDatagridview1.SelectionChanged
If MyDatagridview1.SelectedRows.Count > 0 Then
End If
End Sub
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
srcTAG = srcTAG.AddDays(-1)
initBtns("Tag")
End Sub
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
srcTAG = srcTAG.AddDays(1)
initBtns("Tag")
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
initBtns("Tag")
End Sub
Private Sub btnMonat_Click(sender As Object, e As EventArgs) Handles btnMonat.Click
initBtns("Monat")
End Sub
Private Sub btnJahr_Click(sender As Object, e As EventArgs) Handles btnJahr.Click
initBtns("Jahr")
End Sub
Private Sub btnBisMonat_Click(sender As Object, e As EventArgs) Handles btnBisMonat.Click
MONAT = MONAT.AddMonths(1)
initBtns("Monat")
End Sub
Private Sub btnVonMonat_Click(sender As Object, e As EventArgs) Handles btnVonMonat.Click
MONAT = MONAT.AddMonths(-1)
initBtns("Monat")
End Sub
Private Sub btnBisJahr_Click(sender As Object, e As EventArgs) Handles btnBisJahr.Click
JAHR = JAHR.AddYears(1)
initBtns("Jahr")
End Sub
Private Sub btnVonJahr_Click(sender As Object, e As EventArgs) Handles btnVonJahr.Click
JAHR = JAHR.AddYears(-1)
initBtns("Jahr")
End Sub '
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim f As New frmGVMSNew
If f.ShowDialog(Me) = DialogResult.OK Then
Threading.Thread.Sleep(500) ' Bissi warten, ob GMR schon gneriert wurde..
GET_NOTIFICATIONS() ' ... GMR laden
If f.GVMS IsNot Nothing Then
f.GVMS.LOAD()
If If(f.GVMS.gvms_GMR, "") <> "" Then
MsgBox("GMR in Zwischenablage kopiert: " & f.GVMS.gvms_GMR)
Clipboard.SetText(f.GVMS.gvms_GMR)
End If
End If
End If
MyDatagridview1.RELOAD()
End Sub
Private Sub txtAuftragsnr_KeyDown(sender As Object, e As KeyEventArgs) Handles txtGMR.KeyDown
If e.KeyCode = Keys.Return Then
btnSuche.PerformClick()
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
GET_NOTIFICATIONS()
MyDatagridview1.RELOAD()
End Sub
Sub GET_NOTIFICATIONS()
Try
Me.Cursor = Cursors.WaitCursor
Dim dt = SQL.loadDgvBySql("SELECT distinct([gvms_notification_boxid]) FROM [tblGVMS] where gvms_GMR is null and gvms_notification_boxid is not null", "FMZOLL")
If dt IsNot Nothing Then
For Each row In dt.Rows
cHMRC.GET_NOTIFICATIONS(row("gvms_notification_boxid"))
Next
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Me.Cursor = Cursors.Default
End Sub
Private Sub MyDatagridview1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles MyDatagridview1.CellDoubleClick
If e.RowIndex > 0 Then
Dim GVMS = New VERAG_PROG_ALLGEMEIN.cGVMS(MyDatagridview1.Rows(e.RowIndex).Cells("gvms_id").Value)
If GVMS.hasEntry Then
Dim hasGMR = (If(GVMS.gvms_GMR, "") <> "")
Dim f As New frmGVMSNew(GVMS)
If f.ShowDialog(Me) = DialogResult.OK Then
Threading.Thread.Sleep(500) ' Bissi warten, ob GMR schon gneriert wurde..
GET_NOTIFICATIONS() ' ... GMR laden
If f.GVMS IsNot Nothing Then
f.GVMS.LOAD()
If Not hasGMR Then
If If(f.GVMS.gvms_GMR, "") <> "" Then
MsgBox("GMR in Zwischenablage kopiert: " & f.GVMS.gvms_GMR)
Clipboard.SetText(f.GVMS.gvms_GMR)
End If
End If
End If
End If
MyDatagridview1.RELOAD()
End If
End If
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
If MyDatagridview1.SelectedRows.Count() = 1 Then
Dim GVMS = New VERAG_PROG_ALLGEMEIN.cGVMS(MyDatagridview1.SelectedRows(0).Cells("gvms_id").Value)
If GVMS.hasEntry AndAlso If(GVMS.gvms_GMR, "") <> "" Then
cHMRC.DELETE_GMR(GVMS)
End If
ElseIf MyDatagridview1.SelectedRows.Count() = 0 Then
Else
MsgBox("Bitte nur einen Eintrag auswählen.")
End If
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
cHMRC.GET_GVMS_LIST()
End Sub
Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
If MyDatagridview1.SelectedRows.Count() = 1 Then
Dim GVMS = New VERAG_PROG_ALLGEMEIN.cGVMS(MyDatagridview1.SelectedRows(0).Cells("gvms_id").Value)
If GVMS.hasEntry AndAlso If(GVMS.gvms_GMR, "") <> "" Then
cHMRC.GET_GVMS_GMR(GVMS.gvms_GMR)
End If
ElseIf MyDatagridview1.SelectedRows.Count() = 0 Then
Else
MsgBox("Bitte nur einen Eintrag auswählen.")
End If
End Sub
Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
cHMRC.getGVMS_RefData()
End Sub
Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
If MyDatagridview1.SelectedRows.Count() = 1 Then
Dim GVMS = New VERAG_PROG_ALLGEMEIN.cGVMS(MyDatagridview1.SelectedRows(0).Cells("gvms_id").Value)
If GVMS.hasEntry AndAlso If(GVMS.gvms_notification_boxid, "") <> "" AndAlso If(GVMS.gvms_notification_id, "") <> "" Then
cHMRC.Acknowledge_NOTIFICATIONS(GVMS.gvms_notification_boxid, GVMS.gvms_notification_id)
End If
ElseIf MyDatagridview1.SelectedRows.Count() = 0 Then
Else
MsgBox("Bitte nur einen Eintrag auswählen.")
End If
End Sub
End Class

570
Aviso/GVMS/frmGVMSNew.Designer.vb generated Normal file
View File

@@ -0,0 +1,570 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmGVMSNew
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmGVMSNew))
Me.Label3 = New System.Windows.Forms.Label()
Me.cboDirection = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.pic = New System.Windows.Forms.PictureBox()
Me.btnOK = New System.Windows.Forms.Button()
Me.txtKennzeichen = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.lbl = New System.Windows.Forms.Label()
Me.Button26 = New System.Windows.Forms.Button()
Me.cboCarrier = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cboPortVon = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.cboPortNach = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label5 = New System.Windows.Forms.Label()
Me.lblRoute = New System.Windows.Forms.Label()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.Label6 = New System.Windows.Forms.Label()
Me.cbxUngebleitet = New System.Windows.Forms.CheckBox()
Me.cbxLeer = New System.Windows.Forms.CheckBox()
Me.dgvDeclarations = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.clmnArt = New System.Windows.Forms.DataGridViewComboBoxColumn()
Me.clmnRef = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.clmnSS = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.Label7 = New System.Windows.Forms.Label()
Me.txtTrailor = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label8 = New System.Windows.Forms.Label()
Me.datAbfahrt = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cboLeerVertrag = New System.Windows.Forms.CheckBox()
Me.Label9 = New System.Windows.Forms.Label()
Me.txtSS = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.Label10 = New System.Windows.Forms.Label()
Me.Button2 = New System.Windows.Forms.Button()
Me.datAbfahrtTime = New VERAG_PROG_ALLGEMEIN.MyTextBox()
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.dgvDeclarations, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.Label3.Location = New System.Drawing.Point(204, 91)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(68, 17)
Me.Label3.TabIndex = 42
Me.Label3.Text = "Direction:"
'
'cboDirection
'
Me.cboDirection._allowedValuesFreiText = Nothing
Me.cboDirection._allowFreiText = True
Me.cboDirection._value = ""
Me.cboDirection.DropDownWidth = 250
Me.cboDirection.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.cboDirection.FormattingEnabled = True
Me.cboDirection.Location = New System.Drawing.Point(278, 88)
Me.cboDirection.Name = "cboDirection"
Me.cboDirection.Size = New System.Drawing.Size(125, 24)
Me.cboDirection.TabIndex = 3
'
'pic
'
Me.pic.BackgroundImage = Global.AVISO.My.Resources.Resources.GVMS_image
Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.pic.Location = New System.Drawing.Point(422, 217)
Me.pic.Name = "pic"
Me.pic.Size = New System.Drawing.Size(139, 171)
Me.pic.TabIndex = 58
Me.pic.TabStop = False
'
'btnOK
'
Me.btnOK.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnOK.Image = Global.AVISO.My.Resources.Resources.ok
Me.btnOK.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnOK.Location = New System.Drawing.Point(420, 403)
Me.btnOK.Name = "btnOK"
Me.btnOK.Size = New System.Drawing.Size(139, 57)
Me.btnOK.TabIndex = 13
Me.btnOK.Text = "GMR erzeugen"
Me.btnOK.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnOK.UseVisualStyleBackColor = True
'
'txtKennzeichen
'
Me.txtKennzeichen._DateTimeOnly = False
Me.txtKennzeichen._numbersOnly = False
Me.txtKennzeichen._numbersOnlyKommastellen = ""
Me.txtKennzeichen._Prozent = False
Me.txtKennzeichen._ShortDateNew = False
Me.txtKennzeichen._ShortDateOnly = False
Me.txtKennzeichen._TimeOnly = False
Me.txtKennzeichen._value = ""
Me.txtKennzeichen._Waehrung = False
Me.txtKennzeichen._WaehrungZeichen = True
Me.txtKennzeichen.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
Me.txtKennzeichen.ForeColor = System.Drawing.Color.Black
Me.txtKennzeichen.Location = New System.Drawing.Point(15, 54)
Me.txtKennzeichen.MaxLength = 30
Me.txtKennzeichen.MaxLineLength = -1
Me.txtKennzeichen.MaxLines_Warning = ""
Me.txtKennzeichen.MaxLines_Warning_Label = Nothing
Me.txtKennzeichen.Multiline = True
Me.txtKennzeichen.Name = "txtKennzeichen"
Me.txtKennzeichen.Size = New System.Drawing.Size(183, 28)
Me.txtKennzeichen.TabIndex = 0
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.Label2.Location = New System.Drawing.Point(12, 91)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(55, 17)
Me.Label2.TabIndex = 41
Me.Label2.Text = "Carrier:"
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.Label1.Location = New System.Drawing.Point(12, 37)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(72, 17)
Me.Label1.TabIndex = 39
Me.Label1.Text = "Fahrzeug:"
'
'lbl
'
Me.lbl.AutoSize = True
Me.lbl.Location = New System.Drawing.Point(12, 9)
Me.lbl.Name = "lbl"
Me.lbl.Size = New System.Drawing.Size(284, 13)
Me.lbl.TabIndex = 38
Me.lbl.Text = "Bitten geben Sie eine Handynummer und die Nachricht an:"
'
'Button26
'
Me.Button26.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button26.Image = Global.AVISO.My.Resources.Resources.del
Me.Button26.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button26.Location = New System.Drawing.Point(420, 459)
Me.Button26.Name = "Button26"
Me.Button26.Size = New System.Drawing.Size(139, 41)
Me.Button26.TabIndex = 14
Me.Button26.Text = "Abbrechen"
Me.Button26.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button26.UseVisualStyleBackColor = True
'
'cboCarrier
'
Me.cboCarrier._allowedValuesFreiText = Nothing
Me.cboCarrier._allowFreiText = True
Me.cboCarrier._value = ""
Me.cboCarrier.DropDownWidth = 250
Me.cboCarrier.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.cboCarrier.FormattingEnabled = True
Me.cboCarrier.Location = New System.Drawing.Point(73, 88)
Me.cboCarrier.Name = "cboCarrier"
Me.cboCarrier.Size = New System.Drawing.Size(125, 24)
Me.cboCarrier.TabIndex = 2
'
'cboPortVon
'
Me.cboPortVon._allowedValuesFreiText = Nothing
Me.cboPortVon._allowFreiText = True
Me.cboPortVon._value = ""
Me.cboPortVon.DropDownWidth = 250
Me.cboPortVon.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.cboPortVon.FormattingEnabled = True
Me.cboPortVon.Location = New System.Drawing.Point(73, 118)
Me.cboPortVon.Name = "cboPortVon"
Me.cboPortVon.Size = New System.Drawing.Size(125, 24)
Me.cboPortVon.TabIndex = 4
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.Label4.Location = New System.Drawing.Point(204, 121)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(43, 17)
Me.Label4.TabIndex = 79
Me.Label4.Text = "nach:"
'
'cboPortNach
'
Me.cboPortNach._allowedValuesFreiText = Nothing
Me.cboPortNach._allowFreiText = True
Me.cboPortNach._value = ""
Me.cboPortNach.DropDownWidth = 250
Me.cboPortNach.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.cboPortNach.FormattingEnabled = True
Me.cboPortNach.Location = New System.Drawing.Point(278, 118)
Me.cboPortNach.Name = "cboPortNach"
Me.cboPortNach.Size = New System.Drawing.Size(125, 24)
Me.cboPortNach.TabIndex = 5
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.Label5.Location = New System.Drawing.Point(12, 121)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(35, 17)
Me.Label5.TabIndex = 78
Me.Label5.Text = "von:"
'
'lblRoute
'
Me.lblRoute.AutoSize = True
Me.lblRoute.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold)
Me.lblRoute.Location = New System.Drawing.Point(70, 186)
Me.lblRoute.Name = "lblRoute"
Me.lblRoute.Size = New System.Drawing.Size(14, 17)
Me.lblRoute.TabIndex = 91
Me.lblRoute.Text = "-"
'
'PictureBox1
'
Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox1.Location = New System.Drawing.Point(129, 183)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(47, 28)
Me.PictureBox1.TabIndex = 92
Me.PictureBox1.TabStop = False
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.Label6.Location = New System.Drawing.Point(12, 186)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(50, 17)
Me.Label6.TabIndex = 93
Me.Label6.Text = "Route:"
'
'cbxUngebleitet
'
Me.cbxUngebleitet.AutoSize = True
Me.cbxUngebleitet.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.cbxUngebleitet.Location = New System.Drawing.Point(306, 151)
Me.cbxUngebleitet.Name = "cbxUngebleitet"
Me.cbxUngebleitet.Size = New System.Drawing.Size(97, 21)
Me.cbxUngebleitet.TabIndex = 8
Me.cbxUngebleitet.Text = "unbegleitet"
Me.cbxUngebleitet.UseVisualStyleBackColor = True
'
'cbxLeer
'
Me.cbxLeer.AutoSize = True
Me.cbxLeer.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.cbxLeer.Location = New System.Drawing.Point(15, 151)
Me.cbxLeer.Name = "cbxLeer"
Me.cbxLeer.Size = New System.Drawing.Size(109, 21)
Me.cbxLeer.TabIndex = 6
Me.cbxLeer.Text = "LEERFAHRT"
Me.cbxLeer.UseVisualStyleBackColor = True
'
'dgvDeclarations
'
Me.dgvDeclarations.AKTUALISIERUNGS_INTERVALL = -1
Me.dgvDeclarations.AllowUserToResizeColumns = False
Me.dgvDeclarations.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvDeclarations.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnArt, Me.clmnRef, Me.clmnSS})
Me.dgvDeclarations.Location = New System.Drawing.Point(15, 217)
Me.dgvDeclarations.Name = "dgvDeclarations"
Me.dgvDeclarations.RowHeadersVisible = False
Me.dgvDeclarations.Size = New System.Drawing.Size(388, 256)
Me.dgvDeclarations.TabIndex = 11
'
'clmnArt
'
Me.clmnArt.HeaderText = "Art"
Me.clmnArt.Items.AddRange(New Object() {"EIDR ", "EXPORT (CDS/CHIEF)", "IMPORT (CDS/CHIEF)", "TRANSIT (TAD)", "TRANSIT (TSAD)", "ATA CARNET", "TIR CARNET"})
Me.clmnArt.Name = "clmnArt"
'
'clmnRef
'
Me.clmnRef.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
Me.clmnRef.HeaderText = "RefNr"
Me.clmnRef.Name = "clmnRef"
'
'clmnSS
'
Me.clmnSS.HeaderText = "S&S "
Me.clmnSS.Name = "clmnSS"
Me.clmnSS.Width = 125
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.Label7.Location = New System.Drawing.Point(204, 37)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(74, 17)
Me.Label7.TabIndex = 100
Me.Label7.Text = "Anhänger:"
'
'txtTrailor
'
Me.txtTrailor._DateTimeOnly = False
Me.txtTrailor._numbersOnly = False
Me.txtTrailor._numbersOnlyKommastellen = ""
Me.txtTrailor._Prozent = False
Me.txtTrailor._ShortDateNew = False
Me.txtTrailor._ShortDateOnly = False
Me.txtTrailor._TimeOnly = False
Me.txtTrailor._value = ""
Me.txtTrailor._Waehrung = False
Me.txtTrailor._WaehrungZeichen = True
Me.txtTrailor.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
Me.txtTrailor.ForeColor = System.Drawing.Color.Black
Me.txtTrailor.Location = New System.Drawing.Point(207, 54)
Me.txtTrailor.MaxLength = 30
Me.txtTrailor.MaxLineLength = -1
Me.txtTrailor.MaxLines_Warning = ""
Me.txtTrailor.MaxLines_Warning_Label = Nothing
Me.txtTrailor.Multiline = True
Me.txtTrailor.Name = "txtTrailor"
Me.txtTrailor.Size = New System.Drawing.Size(196, 28)
Me.txtTrailor.TabIndex = 1
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.Label8.Location = New System.Drawing.Point(204, 186)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(69, 17)
Me.Label8.TabIndex = 102
Me.Label8.Text = "Dat./Uhr.:"
'
'datAbfahrt
'
Me.datAbfahrt._DateTimeOnly = False
Me.datAbfahrt._numbersOnly = False
Me.datAbfahrt._numbersOnlyKommastellen = ""
Me.datAbfahrt._Prozent = False
Me.datAbfahrt._ShortDateNew = True
Me.datAbfahrt._ShortDateOnly = False
Me.datAbfahrt._TimeOnly = False
Me.datAbfahrt._value = ""
Me.datAbfahrt._Waehrung = False
Me.datAbfahrt._WaehrungZeichen = True
Me.datAbfahrt.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.datAbfahrt.ForeColor = System.Drawing.Color.Black
Me.datAbfahrt.Location = New System.Drawing.Point(278, 183)
Me.datAbfahrt.MaxLength = 10
Me.datAbfahrt.MaxLineLength = -1
Me.datAbfahrt.MaxLines_Warning = ""
Me.datAbfahrt.MaxLines_Warning_Label = Nothing
Me.datAbfahrt.Multiline = True
Me.datAbfahrt.Name = "datAbfahrt"
Me.datAbfahrt.Size = New System.Drawing.Size(79, 28)
Me.datAbfahrt.TabIndex = 9
'
'cboLeerVertrag
'
Me.cboLeerVertrag.AutoSize = True
Me.cboLeerVertrag.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.cboLeerVertrag.Location = New System.Drawing.Point(129, 151)
Me.cboLeerVertrag.Name = "cboLeerVertrag"
Me.cboLeerVertrag.Size = New System.Drawing.Size(158, 21)
Me.cboLeerVertrag.TabIndex = 7
Me.cboLeerVertrag.Text = "Beförderungsvertrag"
Me.cboLeerVertrag.UseVisualStyleBackColor = True
Me.cboLeerVertrag.Visible = False
'
'Label9
'
Me.Label9.AutoSize = True
Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.Label9.Location = New System.Drawing.Point(12, 482)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(114, 13)
Me.Label9.TabIndex = 108
Me.Label9.Text = "S&S (ganzes Fahrzeug):"
'
'txtSS
'
Me.txtSS._DateTimeOnly = False
Me.txtSS._numbersOnly = False
Me.txtSS._numbersOnlyKommastellen = ""
Me.txtSS._Prozent = False
Me.txtSS._ShortDateNew = False
Me.txtSS._ShortDateOnly = False
Me.txtSS._TimeOnly = False
Me.txtSS._value = ""
Me.txtSS._Waehrung = False
Me.txtSS._WaehrungZeichen = True
Me.txtSS.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.txtSS.ForeColor = System.Drawing.Color.Black
Me.txtSS.Location = New System.Drawing.Point(132, 479)
Me.txtSS.MaxLength = 30
Me.txtSS.MaxLineLength = -1
Me.txtSS.MaxLines_Warning = ""
Me.txtSS.MaxLines_Warning_Label = Nothing
Me.txtSS.Multiline = True
Me.txtSS.Name = "txtSS"
Me.txtSS.Size = New System.Drawing.Size(271, 21)
Me.txtSS.TabIndex = 12
'
'Button1
'
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button1.Location = New System.Drawing.Point(422, 55)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(139, 27)
Me.Button1.TabIndex = 110
Me.Button1.Text = "UK/Dover --> FR/Calais"
Me.Button1.UseVisualStyleBackColor = True
'
'Label10
'
Me.Label10.AutoSize = True
Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.Label10.Location = New System.Drawing.Point(419, 37)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(121, 17)
Me.Label10.TabIndex = 111
Me.Label10.Text = "Standard-Routen:"
'
'Button2
'
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button2.Location = New System.Drawing.Point(422, 81)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(139, 27)
Me.Button2.TabIndex = 112
Me.Button2.Text = "FR/Calais --> UK/Dover"
Me.Button2.UseVisualStyleBackColor = True
'
'datAbfahrtTime
'
Me.datAbfahrtTime._DateTimeOnly = False
Me.datAbfahrtTime._numbersOnly = False
Me.datAbfahrtTime._numbersOnlyKommastellen = ""
Me.datAbfahrtTime._Prozent = False
Me.datAbfahrtTime._ShortDateNew = False
Me.datAbfahrtTime._ShortDateOnly = False
Me.datAbfahrtTime._TimeOnly = True
Me.datAbfahrtTime._value = ""
Me.datAbfahrtTime._Waehrung = False
Me.datAbfahrtTime._WaehrungZeichen = True
Me.datAbfahrtTime.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.datAbfahrtTime.ForeColor = System.Drawing.Color.Red
Me.datAbfahrtTime.Location = New System.Drawing.Point(356, 183)
Me.datAbfahrtTime.MaxLength = 8
Me.datAbfahrtTime.MaxLineLength = -1
Me.datAbfahrtTime.MaxLines_Warning = ""
Me.datAbfahrtTime.MaxLines_Warning_Label = Nothing
Me.datAbfahrtTime.Multiline = True
Me.datAbfahrtTime.Name = "datAbfahrtTime"
Me.datAbfahrtTime.Size = New System.Drawing.Size(47, 28)
Me.datAbfahrtTime.TabIndex = 10
'
'frmGVMSNew
'
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(569, 512)
Me.Controls.Add(Me.datAbfahrtTime)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Label10)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.txtSS)
Me.Controls.Add(Me.Label9)
Me.Controls.Add(Me.cboLeerVertrag)
Me.Controls.Add(Me.datAbfahrt)
Me.Controls.Add(Me.Label8)
Me.Controls.Add(Me.txtTrailor)
Me.Controls.Add(Me.Label7)
Me.Controls.Add(Me.dgvDeclarations)
Me.Controls.Add(Me.cbxLeer)
Me.Controls.Add(Me.cbxUngebleitet)
Me.Controls.Add(Me.Label6)
Me.Controls.Add(Me.PictureBox1)
Me.Controls.Add(Me.lblRoute)
Me.Controls.Add(Me.cboPortVon)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.cboPortNach)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.cboCarrier)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.cboDirection)
Me.Controls.Add(Me.pic)
Me.Controls.Add(Me.btnOK)
Me.Controls.Add(Me.txtKennzeichen)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.lbl)
Me.Controls.Add(Me.Button26)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmGVMSNew"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "GVMS Eintrag"
CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.dgvDeclarations, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents Label3 As Label
Friend WithEvents cboDirection As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents pic As PictureBox
Friend WithEvents btnOK As Button
Friend WithEvents txtKennzeichen As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label2 As Label
Friend WithEvents Label1 As Label
Friend WithEvents lbl As Label
Friend WithEvents Button26 As Button
Friend WithEvents cboCarrier As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents cboPortVon As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label4 As Label
Friend WithEvents cboPortNach As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label5 As Label
Friend WithEvents lblRoute As Label
Friend WithEvents PictureBox1 As PictureBox
Friend WithEvents Label6 As Label
Friend WithEvents cbxUngebleitet As CheckBox
Friend WithEvents cbxLeer As CheckBox
Friend WithEvents dgvDeclarations As VERAG_PROG_ALLGEMEIN.MyDatagridview
Friend WithEvents Label7 As Label
Friend WithEvents txtTrailor As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label8 As Label
Friend WithEvents datAbfahrt As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents cboLeerVertrag As CheckBox
Friend WithEvents clmnArt As DataGridViewComboBoxColumn
Friend WithEvents clmnRef As DataGridViewTextBoxColumn
Friend WithEvents clmnSS As DataGridViewTextBoxColumn
Friend WithEvents Label9 As Label
Friend WithEvents txtSS As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Button1 As Button
Friend WithEvents Label10 As Label
Friend WithEvents Button2 As Button
Friend WithEvents datAbfahrtTime As VERAG_PROG_ALLGEMEIN.MyTextBox
End Class

1262
Aviso/GVMS/frmGVMSNew.resx Normal file
View File

File diff suppressed because it is too large Load Diff

283
Aviso/GVMS/frmGVMSNew.vb Normal file
View File

@@ -0,0 +1,283 @@
Imports System.Text.RegularExpressions
Public Class frmGVMSNew
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim RouteId As Integer = -1
Public GVMS As VERAG_PROG_ALLGEMEIN.cGVMS = Nothing
Sub New()
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Sub New(GVMS As VERAG_PROG_ALLGEMEIN.cGVMS)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.GVMS = GVMS
End Sub
Private Sub frmGVMSNew_Load(sender As Object, e As EventArgs) Handles Me.Load
cboCarrier.fillWithSQL("SELECT [carrierId],[carrierName] + '(' + [countryCode] + ')' carrierName FROM [tblGVMS_Carriers]", False, "FMZOLL", True)
cboDirection.fillWithSQL("SELECT distinct([routeDirection]) FROM [VERAG].[dbo].[tblGVMS_Routes] where [routeEffectiveFrom] <= GETDATE() and ([routeEffectiveTo]<= GETDATE() OR [routeEffectiveTo] is null) ORDER BY [routeDirection] DESC", False, "FMZOLL", True)
cboPortVon.fillWithSQL("SELECT [portId],[portDescription]+ '(' + [portcountryCode] + ')' portDescription FROM [tblGVMS_Ports] WHERE [portEffectiveFrom] <= GETDATE() and ([portEffectiveTo]<= GETDATE() OR [portEffectiveTo] is null) ORDER BY [portDescription] ", False, "FMZOLL", True)
cboPortNach.fillWithSQL("SELECT [portId],[portDescription]+ '(' + [portcountryCode] + ')' portDescription FROM [tblGVMS_Ports] WHERE [portEffectiveFrom] <= GETDATE() and ([portEffectiveTo]<= GETDATE() OR [portEffectiveTo] is null) ORDER BY [portDescription] ", False, "FMZOLL", True)
If GVMS IsNot Nothing Then
setGVMS()
End If
End Sub
Private Sub cboCarrier_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboCarrier.SelectedIndexChanged, cboDirection.SelectedIndexChanged, cboPortVon.SelectedIndexChanged, cboPortNach.SelectedIndexChanged
findRoute()
End Sub
Function findRoute() As Boolean
RouteId = -1
lblRoute.Text = "-"
PictureBox1.Image = Nothing
If cboCarrier._value = "" Then Return False
If cboDirection._value = "" Then Return False
If cboPortVon._value = "" Then Return False
If cboPortNach._value = "" Then Return False
Dim dt As DataTable = SQL.loadDgvBySql("SELECT [routeId] FROM [tblGVMS_Routes] where [routeEffectiveFrom] <= GETDATE() and ([routeEffectiveTo]<= GETDATE() OR [routeEffectiveTo] is null)
AND [routeDirection]='" & cboDirection._value & "'
AND [departurePortId]='" & cboPortVon._value & "'
AND [arrivalPortId]='" & cboPortNach._value & "'
AND CarrierId='" & cboCarrier._value & "'
", "FMZOLL")
If dt Is Nothing Then Return False
If dt.Rows.Count = 1 Then
RouteId = dt(0)("routeId")
lblRoute.Text = RouteId
PictureBox1.Image = My.Resources.ok
Return True
ElseIf dt.Rows.Count > 1 Then
PictureBox1.Image = My.Resources.del
End If
Return False
End Function
Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
If createGMR() Then
Me.DialogResult = DialogResult.OK
Else
Me.DialogResult = DialogResult.None
End If
End Sub
Function loadDGVPOS(ByRef GVMS As VERAG_PROG_ALLGEMEIN.cGVMS) As Boolean
Dim formtErr As Boolean = False
For Each r As DataGridViewRow In dgvDeclarations.Rows
For Each C As DataGridViewCell In r.Cells
C.Style.BackColor = Color.White
Next
Next
For Each r As DataGridViewRow In dgvDeclarations.Rows
If r.Cells("clmnArt").Value <> "" Then
Dim POS As New VERAG_PROG_ALLGEMEIN.cGVMS_POS
POS.gvms_art = getArt(r.Cells("clmnArt").Value)
POS.gvms_RefNum = r.Cells("clmnRef").Value
POS.gvms_SS = If(r.Cells("clmnss").Value <> "", r.Cells("clmnss").Value, Nothing)
Dim RegExRef = ""
Dim RegExSS = "^[A-Z0-9-)(/]{1,200}$"
Select Case POS.gvms_art
Case "EIDR" : RegExRef = "^[A-Z]{2}[0-9]{12,15}$"
Case "EXPORT", "IMPORT" : RegExRef = "^[A-Z0-9-)(/]{1,200}$"
'Case "IMPORT": RegExRef = "^[A-Z0-9-)(/]{1,200}$"
Case "TAD" : RegExRef = "^\d{2}[A-Z]{2}[A-Z0-9]{14}$"
Case "TSAD" : RegExRef = "^\d{2}[A-Z]{2}[A-Z0-9]{14}$"
Case "ATA" : RegExRef = "^.{1,200}$"
Case "TIR" : RegExRef = "^.{1,200}$"
' Case "ORAL" : RegExRef = ""
' Case "INDIRECT" : RegExRef = ""
End Select
If RegExRef <> "" AndAlso Not Regex.IsMatch(POS.gvms_RefNum, RegExRef) Then
r.Cells("clmnRef").Style.BackColor = Color.PapayaWhip
formtErr = True
End If
If RegExSS <> "" AndAlso Not Regex.IsMatch(POS.gvms_RefNum, RegExSS) Then
r.Cells("clmnRef").Style.BackColor = Color.PapayaWhip
formtErr = True
End If
GVMS.GVMS_POSITIONEN.Add(POS)
End If
Next
If formtErr Then Return False
Return True
End Function
Function getArt(art As String) As String
Select Case True
Case art Like "EIDR" : Return VERAG_PROG_ALLGEMEIN.cGVMS_POS_DecArt.EIDR
Case art Like "EXPORT*" : Return VERAG_PROG_ALLGEMEIN.cGVMS_POS_DecArt.EXPORT
Case art Like "IMPORT*" : Return VERAG_PROG_ALLGEMEIN.cGVMS_POS_DecArt.IMPORT
Case art Like "*TAD*" : Return VERAG_PROG_ALLGEMEIN.cGVMS_POS_DecArt.TAD
Case art Like "*TSAD*" : Return VERAG_PROG_ALLGEMEIN.cGVMS_POS_DecArt.TSAD
Case art Like "ATA*" : Return VERAG_PROG_ALLGEMEIN.cGVMS_POS_DecArt.ATA
Case art Like "TIR*" : Return VERAG_PROG_ALLGEMEIN.cGVMS_POS_DecArt.TIR
Case art Like "ORAL*" : Return VERAG_PROG_ALLGEMEIN.cGVMS_POS_DecArt.ORAL
Case art Like "INDIRECT*" : Return VERAG_PROG_ALLGEMEIN.cGVMS_POS_DecArt.INDIRECT
End Select
'Select Case art
' Case "EIDR" : Return VERAG_PROG_ALLGEMEIN.cGVMS_POS_DecArt.EIDR
' Case "EXPORT (CDS / CHIEF)" : Return VERAG_PROG_ALLGEMEIN.cGVMS_POS_DecArt.EXPORT
' Case "IMPORT (CDS / CHIEF)" : Return VERAG_PROG_ALLGEMEIN.cGVMS_POS_DecArt.IMPORT
' Case "TRANSIT (TAD)" : Return VERAG_PROG_ALLGEMEIN.cGVMS_POS_DecArt.TAD
' Case "TRANSIT (TSAD)" : Return VERAG_PROG_ALLGEMEIN.cGVMS_POS_DecArt.TSAD
' Case "ATA CARNET" : Return VERAG_PROG_ALLGEMEIN.cGVMS_POS_DecArt.ATA
' Case "TIR CARNET" : Return VERAG_PROG_ALLGEMEIN.cGVMS_POS_DecArt.TIR
' Case "ORAL Or BY CONDUCT" : Return VERAG_PROG_ALLGEMEIN.cGVMS_POS_DecArt.ORAL
' Case "INDIRECT EXPORT DECLARATION" : Return VERAG_PROG_ALLGEMEIN.cGVMS_POS_DecArt.INDIRECT
'End Select
Return ""
End Function
Function setArt(art As String) As String
'For Each i In DirectCast(dgvDeclarations.Columns(""), DataGridViewComboBoxColumn).Items
' 'Dim ii = DirectCast(dgvDeclarations.Columns(""), DataGridViewComboBoxColumn).Items(0)
' Dim item = i
' If art Like "" Then
' Select Case True
' Case art Like "EIDR" : Return item
' Case art Like "EXPORT*" : Return item
' Case art Like "IMPORT*" : Return item
' Case art Like "*TAD*" : Return item
' Case art Like "*TSAD*" : Return item
' Case art Like "ATA*" : Return item
' Case art Like "TIR*" : Return item
' Case art Like "ORAL*" : Return item
' Case art Like "INDIRECT*" : Return item
' End Select
'Next
Return ""
End Function
Function createGMR() As Boolean
If cbxUngebleitet.Checked Then
If txtTrailor.Text.Trim = "" Then MsgBox("Anhänger angeben!") : Return False
End If
If RouteId <= 0 Then MsgBox("Route fehlt!") : Return False
If txtKennzeichen.Text = "" Then MsgBox("Kennzeichen angeben!") : Return False
If Not Regex.IsMatch(txtKennzeichen.Text, "^[A-Z0-9-](?:[A-Z0-9 -]{1,30})?$") Then
MsgBox("Formatfehler: Kennzeichen Fahrzeug.") : Return False
End If
If txtTrailor.Text <> "" AndAlso Not Regex.IsMatch(txtTrailor.Text, "^[A-Z0-9-](?:[A-Z0-9 -]{1,199})?$") Then
MsgBox("Formatfehler: Kennzeichen Anhänger.") : Return False
End If
If txtSS.Text <> "" AndAlso Not Regex.IsMatch(txtSS.Text, "^[A-Z0-9-)(/]{1,200}$") Then
MsgBox("Formatfehler: S&S MRN") : Return False
End If
If datAbfahrt._value = "" Or datAbfahrtTime._value = "" Then MsgBox("Datum/Uhrzeit angeben!") : Return False
If Not cbxLeer.Checked Then
If dgvDeclarations.Rows.Count <= 1 Then MsgBox("Keine Positionen!") : Return False
End If
If GVMS Is Nothing Then GVMS = New VERAG_PROG_ALLGEMEIN.cGVMS
If Not loadDGVPOS(GVMS) Then Return False
GVMS.gvms_firma = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
' GVMS.gvms_notification_id As Object = Nothing
' GVMS.gvms_notification_boxid As Object = Nothing
' GVMS.gvms_status As Object = Nothing
' GVMS.gvms_GMR As Object = Nothing
' GVMS.gvms_gmr_creationDate As Object = Nothing
' GVMS.gvms_gmr_statusVersion As Object = Nothing
GVMS.gvms_routeId = RouteId
GVMS.gvms_direction = cboDirection._value
GVMS.gvms_vehicleRegNum = txtKennzeichen.Text
If txtTrailor.Text <> "" Then GVMS.gvms_trailorRegNum = txtTrailor.Text
GVMS.gvms_isUnaccompanied = cbxUngebleitet.Checked
GVMS.gvms_empty = cbxLeer.Checked
If GVMS.gvms_empty Then GVMS.gvms_emptyisOwn = Not cboLeerVertrag.Checked
GVMS.gvms_locateDateTimeOfDeparture = CDate(datAbfahrt._value).ToShortDateString & " " & datAbfahrtTime.Text
If txtSS.Text <> "" Then GVMS.gvms_SS = txtSS.Text
If GVMS.SAVE() Then
If If(GVMS.gvms_GMR, "") <> "" Then
cHMRC.SEND_GVMS(GVMS, GVMS.gvms_GMR) 'UPDATE
Else
cHMRC.SEND_GVMS(GVMS)
End If
Return True
End If
Return False
End Function
Sub setGVMS()
If GVMS Is Nothing OrElse Not GVMS.hasEntry Then Exit Sub
cboDirection.changeItem(GVMS.gvms_direction)
txtKennzeichen.Text = If(GVMS.gvms_vehicleRegNum, "")
txtTrailor.Text = If(GVMS.gvms_trailorRegNum, "")
cbxUngebleitet.Checked = If(GVMS.gvms_isUnaccompanied, False)
cbxLeer.Checked = If(GVMS.gvms_empty, False)
If GVMS.gvms_empty Then
cboLeerVertrag.Checked = If(GVMS.gvms_emptyisOwn, False)
End If
If IsDate(If(GVMS.gvms_locateDateTimeOfDeparture, "")) Then
datAbfahrt._value = CDate(GVMS.gvms_locateDateTimeOfDeparture).ToShortDateString
datAbfahrtTime._value = CDate(GVMS.gvms_locateDateTimeOfDeparture).ToString("HH:mm")
End If
For Each POS In GVMS.GVMS_POSITIONEN
dgvDeclarations.Rows.Add({POS.gvms_art, POS.gvms_RefNum, POS.gvms_SS})
Next
txtSS.Text = If(GVMS.gvms_SS, "")
End Sub
Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles cbxLeer.CheckedChanged
'dgvSfd.Visible = Not cbxLeer.Checked
'dgvTAD.Visible = Not cbxLeer.Checked
'dgvEIDR.Visible = Not cbxLeer.Checked
'dgvATA.Visible = Not cbxLeer.Checked
dgvDeclarations.Visible = Not cbxLeer.Checked
cboLeerVertrag.Visible = cbxLeer.Checked
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
cboPortVon._value = "7054"
cboPortNach._value = "1401"
cboDirection._value = "UK_OUTBOUND"
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
cboPortVon._value = "1401"
cboPortNach._value = "7054"
cboDirection._value = "UK_INBOUND"
End Sub
End Class

2
Aviso/My Project/Application.myapp
View File

@@ -1,5 +1,5 @@
<?xml version="1.0" encoding="utf-8"?>
<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<MyApplicationData xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
<MySubMain>true</MySubMain>
<MainForm>frmLogin</MainForm>
<SingleInstance>false</SingleInstance>

16
Aviso/My Project/AssemblyInfo.vb
View File

@@ -8,12 +8,12 @@ Imports System.Runtime.InteropServices
' Die Werte der Assemblyattribute überprüfen
<Assembly: AssemblyTitle("Aviso")>
<Assembly: AssemblyDescription("LKW-Aviso verwalten")>
<Assembly: AssemblyCompany("VERAG Spedition AG")>
<Assembly: AssemblyProduct("Aviso")>
<Assembly: AssemblyCopyright("Copyright © 2013 VERAG Spedition AG")>
<Assembly: AssemblyTrademark("VERAG Spedition AG")>
<Assembly: AssemblyTitle("Aviso")>
<Assembly: AssemblyDescription("LKW-Aviso verwalten")>
<Assembly: AssemblyCompany("VERAG Spedition AG")>
<Assembly: AssemblyProduct("Aviso")>
<Assembly: AssemblyCopyright("Copyright © 2013 VERAG Spedition AG")>
<Assembly: AssemblyTrademark("VERAG Spedition AG")>
<Assembly: ComVisible(False)>
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("3.7.1.7")>
<Assembly: AssemblyFileVersion("3.7.1.7")>
<Assembly: AssemblyVersion("3.7.4.5")>
<Assembly: AssemblyFileVersion("3.7.4.5")>

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

@@ -670,11 +670,12 @@ Namespace My.Resources
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die ähnelt.
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property gfh2fgh1fg2hfghfgh() As String
Friend ReadOnly Property GVMS_image() As System.Drawing.Bitmap
Get
Return ResourceManager.GetString("gfh2fgh1fg2hfghfgh", resourceCulture)
Dim obj As Object = ResourceManager.GetObject("GVMS-image", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
@@ -1547,15 +1548,6 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die 3.7.1.7 ähnelt.
'''</summary>
Friend ReadOnly Property Version() As String
Get
Return ResourceManager.GetString("Version", resourceCulture)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die Version 3.1.5.0 vom 28.11.2017:
'''- Anbindng ATILLA-Aviso an VERAG Datenbank

181
Aviso/My Project/Resources.resx
View File

@@ -121,8 +121,8 @@
<data name="personInaktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\personInaktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="lorry" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\lorry.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<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="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>
@@ -136,6 +136,9 @@
<data name="els" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\els.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="_SUB" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\SUB.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="mitarbeiter_s" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\mitarbeiter_s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -178,11 +181,14 @@
<data name="nellenquack" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\nellenquack.jpg;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="abfetigungTR_aktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\..\Diverses\miniButtons\abfetigungTR_aktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="del_gray" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\del_gray.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="Verag_AG_Logopng" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Verag-AG-Logopng.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="plus" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\plus.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="digitalerAkt" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\digitalerAkt.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -220,9 +226,6 @@
<data name="mitarbeiter" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\mitarbeiter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="statusBtn_vorbereitet_Aktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\statusBtn_vorbereitet_Aktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="parkplatz" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\parkplatz.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -232,6 +235,9 @@
<data name="statusBtn_vorbereitet_InAktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\statusBtn_vorbereitet_InAktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="android_clock_s" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\android-clock_s.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="arrow_left_a" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\arrow-left-a.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -256,8 +262,8 @@
<data name="zoll" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\zoll.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="pdfprint" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\pdfprint.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="statistik" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\statistik.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="auftrag3" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\auftrag3.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -268,9 +274,6 @@
<data name="searchGG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\searchGG.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>
<data name="Unisped_logo" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Unisped_logo.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -298,17 +301,23 @@
<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="FrontOfficeSUB_Horizontal" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Logo_blue_globe_Horizontal.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="vermerkBtn" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\vermerkBtn.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="handy" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\handy.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="warning" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\warning.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="avisoNewMsg" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\avisoNewMsg.ico;System.Drawing.Icon, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="_SUB" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\SUB.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="pdfprint" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\pdfprint.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="dakosy_dy" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\dakosy_dy.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -322,6 +331,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="ATANAK_Instructions_Export" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ATANAK_Instructions_Export.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="pdfprint1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\pdfprint1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -343,9 +355,21 @@
<data name="IMEX_LOGO_simple" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\IMEX-LOGO_simple.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="kasse1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\kasse1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="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>
<data name="statusBtn_vorgeschrieben_InAktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\statusBtn_vorgeschrieben_InAktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="weiterleiten_small1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\weiterleiten_small.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<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="refresh" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\refresh.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -358,12 +382,21 @@
<data name="WAI" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\WAI.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 name="unisped_aeo_DE" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\unisped_aeo_DE.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="MUSTER" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\MUSTER.nlc;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="FO" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>F:\Grafik\VERAG\VERAG_Akten\eigAkt\FO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="SBG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\SBG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="fragezeichen1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\fragezeichen1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="zoll_m" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\zoll_mm.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -373,12 +406,6 @@
<data name="digitalerAkt_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\digitalerAkt_small.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="kasse" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\kasse.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="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="personCheck" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\personCheck.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -391,6 +418,9 @@
<data name="vorauszahlung2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\vorauszahlung2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="sprinter_white" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\sprinter_white.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="dakosy" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\dakosy.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -406,6 +436,9 @@
<data name="speditionsbuchInaktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\speditionsbuchInaktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<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="tan" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\tan.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -415,8 +448,8 @@
<data name="zoll_mmm" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\zoll_mmm.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="android_clock_s" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\android-clock_s.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<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>
<data name="search" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\search.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -427,17 +460,14 @@
<data name="wheel" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\wheel.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="speditionsbuchAktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\speditionsbuchAktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="warning2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\warning2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="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="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 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>
</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>
@@ -457,6 +487,9 @@
<data name="abgeklaertAktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\abgeklaertAktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="FrontOfficeSUB_Horizontal" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Logo_blue_globe_Horizontal.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="email" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\email.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -469,26 +502,26 @@
<data name="UpdaterVersion" xml:space="preserve">
<value>6.0</value>
</data>
<data name="statistik" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\statistik.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<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="vorauszahlung1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\vorauszahlung1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="kasse1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\kasse1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="info" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\info.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ImageIcon" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ImageIcon.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="handy" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\handy.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="_3s" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\3s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="vermerk" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\vermerk.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="_3s" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\3s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="ATANAK_Instructions_Import" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ATANAK_Instructions_Import.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="zeus" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\zeus.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -499,9 +532,6 @@
<data name="igl" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\igl.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="MUSTER" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\MUSTER.nlc;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="kasse_sw_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\kasse_sw_small.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -523,20 +553,20 @@
<data name="noAviso_s1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\noAviso_s1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="del_gray" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\del_gray.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<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>
<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>
<data name="del" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\del.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="plus" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\plus.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Version" xml:space="preserve">
<value>3.7.1.7</value>
<data name="lorry" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\lorry.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="statusBtn_vorgeschrieben_Aktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\statusBtn_vorgeschrieben_Aktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -550,8 +580,8 @@
<data name="beleg" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\beleg.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="vermerkBtn" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\vermerkBtn.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="statusBtn_vorbereitet_Aktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\statusBtn_vorbereitet_Aktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="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>
@@ -559,8 +589,8 @@
<data name="image_443x282" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\image_443x282.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="statusBtn_vorgeschrieben_InAktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\statusBtn_vorgeschrieben_InAktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="kasse" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\kasse.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="truck_black" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\truck_black.ico;System.Drawing.Icon, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -571,55 +601,22 @@
<data name="word1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\word.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="del" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\del.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="abklaerungTR_Inaktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\abklaerungTR_Inaktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Verag_AG_Logopng" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Verag-AG-Logopng.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="speditionsbuchAktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\speditionsbuchAktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="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="fragezeichen1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\fragezeichen1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="unisped_aeo_DE" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\unisped_aeo_DE.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<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="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="ATANAK_Instructions_Import" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ATANAK_Instructions_Import.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="ATANAK_Instructions_Export" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ATANAK_Instructions_Export.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="ATANAK_Instructions_Export_T1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ATANAK_Instructions_Export_T1.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<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="sprinter_white" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\sprinter_white.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="abfetigungTR_aktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\..\Diverses\miniButtons\abfetigungTR_aktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="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="FO" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>F:\Grafik\VERAG\VERAG_Akten\eigAkt\FO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="gfh2fgh1fg2hfghfgh" xml:space="preserve">
<value />
<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>
</root>

2
Aviso/My Project/Settings.Designer.vb generated
View File

@@ -15,7 +15,7 @@ Option Explicit On
Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.0.2.0"), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.1.0.0"), _
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase

195
Aviso/frmAbfertigungTR_ExportAnz.Designer.vb generated Normal file
View File

@@ -0,0 +1,195 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmAbfertigungTR_ExportAnz
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAbfertigungTR_ExportAnz))
Me.pnl = New System.Windows.Forms.Panel()
Me.txtAnzPos = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtAnz = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.Button1 = New System.Windows.Forms.Button()
Me.Label6 = New System.Windows.Forms.Label()
Me.Label16 = New System.Windows.Forms.Label()
Me.btn = New System.Windows.Forms.Button()
Me.pnl.SuspendLayout()
Me.Panel1.SuspendLayout()
Me.SuspendLayout()
'
'pnl
'
Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnl.Controls.Add(Me.txtAnzPos)
Me.pnl.Controls.Add(Me.txtAnz)
Me.pnl.Controls.Add(Me.Label1)
Me.pnl.Controls.Add(Me.Panel1)
Me.pnl.Controls.Add(Me.Label16)
Me.pnl.Controls.Add(Me.btn)
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(261, 211)
Me.pnl.TabIndex = 0
'
'txtAnzPos
'
Me.txtAnzPos._DateTimeOnly = False
Me.txtAnzPos._numbersOnly = True
Me.txtAnzPos._numbersOnlyKommastellen = ""
Me.txtAnzPos._Prozent = False
Me.txtAnzPos._ShortDateNew = False
Me.txtAnzPos._ShortDateOnly = False
Me.txtAnzPos._TimeOnly = False
Me.txtAnzPos._value = ""
Me.txtAnzPos._Waehrung = False
Me.txtAnzPos._WaehrungZeichen = True
Me.txtAnzPos.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
Me.txtAnzPos.ForeColor = System.Drawing.Color.Black
Me.txtAnzPos.Location = New System.Drawing.Point(142, 95)
Me.txtAnzPos.MaxLineLength = -1
Me.txtAnzPos.MaxLines_Warning = ""
Me.txtAnzPos.MaxLines_Warning_Label = Nothing
Me.txtAnzPos.Name = "txtAnzPos"
Me.txtAnzPos.Size = New System.Drawing.Size(100, 26)
Me.txtAnzPos.TabIndex = 2
'
'txtAnz
'
Me.txtAnz._DateTimeOnly = False
Me.txtAnz._numbersOnly = True
Me.txtAnz._numbersOnlyKommastellen = ""
Me.txtAnz._Prozent = False
Me.txtAnz._ShortDateNew = False
Me.txtAnz._ShortDateOnly = False
Me.txtAnz._TimeOnly = False
Me.txtAnz._value = ""
Me.txtAnz._Waehrung = False
Me.txtAnz._WaehrungZeichen = True
Me.txtAnz.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
Me.txtAnz.ForeColor = System.Drawing.Color.Black
Me.txtAnz.Location = New System.Drawing.Point(142, 63)
Me.txtAnz.MaxLineLength = -1
Me.txtAnz.MaxLines_Warning = ""
Me.txtAnz.MaxLines_Warning_Label = Nothing
Me.txtAnz.Name = "txtAnz"
Me.txtAnz.Size = New System.Drawing.Size(100, 26)
Me.txtAnz.TabIndex = 1
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(13, 103)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(123, 13)
Me.Label1.TabIndex = 54
Me.Label1.Text = "Gesmtanzahl Positionen:"
'
'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.Button1)
Me.Panel1.Controls.Add(Me.Label6)
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(259, 41)
Me.Panel1.TabIndex = 53
'
'Button1
'
Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button1.BackColor = System.Drawing.Color.Red
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
Me.Button1.ForeColor = System.Drawing.Color.White
Me.Button1.Location = New System.Drawing.Point(175, -1)
Me.Button1.Margin = New System.Windows.Forms.Padding(0)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(85, 33)
Me.Button1.TabIndex = 4
Me.Button1.Text = "x"
Me.Button1.UseVisualStyleBackColor = False
'
'Label6
'
Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
Me.Label6.ForeColor = System.Drawing.Color.White
Me.Label6.Location = New System.Drawing.Point(13, 6)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(467, 26)
Me.Label6.TabIndex = 51
Me.Label6.Text = "TR Abfertigung"
Me.Label6.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'Label16
'
Me.Label16.AutoSize = True
Me.Label16.Location = New System.Drawing.Point(13, 71)
Me.Label16.Name = "Label16"
Me.Label16.Size = New System.Drawing.Size(76, 13)
Me.Label16.TabIndex = 46
Me.Label16.Text = "Anzahl T1/T2:"
'
'btn
'
Me.btn.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btn.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
Me.btn.ForeColor = System.Drawing.Color.White
Me.btn.Location = New System.Drawing.Point(16, 160)
Me.btn.Name = "btn"
Me.btn.Size = New System.Drawing.Size(229, 38)
Me.btn.TabIndex = 3
Me.btn.Text = "OK"
Me.btn.UseVisualStyleBackColor = False
'
'frmAbfertigungTR_ExportAnz
'
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(261, 211)
Me.Controls.Add(Me.pnl)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmAbfertigungTR_ExportAnz"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
Me.Text = "Ankunft setzen"
Me.pnl.ResumeLayout(False)
Me.pnl.PerformLayout()
Me.Panel1.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
Friend WithEvents pnl As Panel
Friend WithEvents Button1 As Button
Friend WithEvents btn As Button
Friend WithEvents Label16 As Label
Friend WithEvents Panel1 As Panel
Friend WithEvents Label6 As Label
Friend WithEvents Label1 As Label
Friend WithEvents txtAnzPos As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtAnz As VERAG_PROG_ALLGEMEIN.MyTextBox
End Class

1253
Aviso/frmAbfertigungTR_ExportAnz.resx Normal file
View File

File diff suppressed because it is too large Load Diff

39
Aviso/frmAbfertigungTR_ExportAnz.vb Normal file
View File

@@ -0,0 +1,39 @@
Public Class frmAbfertigungTR_ExportAnz
Sub New()
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub frmAnkunftSetzen_Load(sender As Object, e As EventArgs) Handles Me.Load
txtAnz.Focus()
End Sub
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
If txtAnz._value = "" Then Me.DialogResult = DialogResult.None : Exit Sub
If txtAnzPos._value = "" Then Me.DialogResult = DialogResult.None : Exit Sub
Me.DialogResult = DialogResult.OK
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.DialogResult = DialogResult.Cancel
End Sub
Private Sub frmAnkunftSetzen_KeyDown(sender As Object, e As KeyEventArgs)
If e.KeyCode = Keys.Return Then
btn.PerformClick()
End If
End Sub
End Class

120
Aviso/frmAddAktenvermerkShort.Designer.vb generated
View File

@@ -30,10 +30,12 @@ Partial Class frmAddAktenvermerkShort
Me.btnSBG = New System.Windows.Forms.Button()
Me.btnWAI = New System.Windows.Forms.Button()
Me.btnNKD = New System.Windows.Forms.Button()
Me.btnSFD = New System.Windows.Forms.Button()
Me.btnQS = New System.Windows.Forms.Button()
Me.Label14 = New System.Windows.Forms.Label()
Me.btnNichtAvisiert = New System.Windows.Forms.Button()
Me.txtFreigabeInfo = New System.Windows.Forms.TextBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.btnSFD = New System.Windows.Forms.Button()
Me.btnDispoangefordert = New System.Windows.Forms.Button()
Me.Button3 = New System.Windows.Forms.Button()
Me.Label3 = New System.Windows.Forms.Label()
@@ -52,7 +54,6 @@ Partial Class frmAddAktenvermerkShort
Me.btnVorbereitet = New System.Windows.Forms.Button()
Me.btnVorgeschrieben = New System.Windows.Forms.Button()
Me.btnSpaetAvisiert = New System.Windows.Forms.Button()
Me.btnNichtAvisiert = New System.Windows.Forms.Button()
Me.btnLKWStandzeitFeierteage = New System.Windows.Forms.Button()
Me.btnLKWStandzeitWE = New System.Windows.Forms.Button()
Me.btnZollDEEingereicht = New System.Windows.Forms.Button()
@@ -60,7 +61,7 @@ Partial Class frmAddAktenvermerkShort
Me.optKeineAuswahl = New System.Windows.Forms.RadioButton()
Me.Label15 = New System.Windows.Forms.Label()
Me.Label16 = New System.Windows.Forms.Label()
Me.Label14 = New System.Windows.Forms.Label()
Me.btnLKWumgemeldet = New System.Windows.Forms.Button()
Me.pnlAktenVermerk.SuspendLayout()
Me.Panel1.SuspendLayout()
Me.pnl.SuspendLayout()
@@ -70,6 +71,7 @@ Partial Class frmAddAktenvermerkShort
'
Me.pnlAktenVermerk.BackColor = System.Drawing.Color.White
Me.pnlAktenVermerk.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnlAktenVermerk.Controls.Add(Me.btnLKWumgemeldet)
Me.pnlAktenVermerk.Controls.Add(Me.btnDEZollDIGITAL)
Me.pnlAktenVermerk.Controls.Add(Me.Panel1)
Me.pnlAktenVermerk.Controls.Add(Me.txtFreigabeInfo)
@@ -96,7 +98,7 @@ Partial Class frmAddAktenvermerkShort
Me.pnlAktenVermerk.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnlAktenVermerk.Location = New System.Drawing.Point(0, 0)
Me.pnlAktenVermerk.Name = "pnlAktenVermerk"
Me.pnlAktenVermerk.Size = New System.Drawing.Size(401, 482)
Me.pnlAktenVermerk.Size = New System.Drawing.Size(401, 509)
Me.pnlAktenVermerk.TabIndex = 0
'
'btnDEZollDIGITAL
@@ -123,7 +125,7 @@ Partial Class frmAddAktenvermerkShort
Me.Panel1.Controls.Add(Me.btnQS)
Me.Panel1.Controls.Add(Me.Label14)
Me.Panel1.Controls.Add(Me.btnNichtAvisiert)
Me.Panel1.Location = New System.Drawing.Point(308, 228)
Me.Panel1.Location = New System.Drawing.Point(308, 255)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(70, 25)
Me.Panel1.TabIndex = 106
@@ -178,19 +180,6 @@ Partial Class frmAddAktenvermerkShort
Me.btnNKD.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnNKD.UseVisualStyleBackColor = True
'
'btnSFD
'
Me.btnSFD.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnSFD.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnSFD.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnSFD.Location = New System.Drawing.Point(11, 256)
Me.btnSFD.Name = "btnSFD"
Me.btnSFD.Size = New System.Drawing.Size(182, 27)
Me.btnSFD.TabIndex = 89
Me.btnSFD.Text = "nach Spielfeld (Lex)"
Me.btnSFD.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnSFD.UseVisualStyleBackColor = True
'
'btnQS
'
Me.btnQS.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -204,11 +193,38 @@ Partial Class frmAddAktenvermerkShort
Me.btnQS.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnQS.UseVisualStyleBackColor = True
'
'Label14
'
Me.Label14.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.Label14.AutoSize = True
Me.Label14.BackColor = System.Drawing.Color.Transparent
Me.Label14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label14.Location = New System.Drawing.Point(29, 0)
Me.Label14.Name = "Label14"
Me.Label14.Size = New System.Drawing.Size(38, 13)
Me.Label14.TabIndex = 2
Me.Label14.Text = "Aviso"
'
'btnNichtAvisiert
'
Me.btnNichtAvisiert.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.btnNichtAvisiert.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnNichtAvisiert.Image = Global.AVISO.My.Resources.Resources.noAviso_s1
Me.btnNichtAvisiert.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnNichtAvisiert.Location = New System.Drawing.Point(32, 16)
Me.btnNichtAvisiert.Margin = New System.Windows.Forms.Padding(0)
Me.btnNichtAvisiert.Name = "btnNichtAvisiert"
Me.btnNichtAvisiert.Size = New System.Drawing.Size(89, 83)
Me.btnNichtAvisiert.TabIndex = 90
Me.btnNichtAvisiert.Text = "nicht" & Global.Microsoft.VisualBasic.ChrW(10) & "avisiert"
Me.btnNichtAvisiert.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.btnNichtAvisiert.UseVisualStyleBackColor = True
'
'txtFreigabeInfo
'
Me.txtFreigabeInfo.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.txtFreigabeInfo.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtFreigabeInfo.Location = New System.Drawing.Point(11, 437)
Me.txtFreigabeInfo.Location = New System.Drawing.Point(11, 464)
Me.txtFreigabeInfo.Multiline = True
Me.txtFreigabeInfo.Name = "txtFreigabeInfo"
Me.txtFreigabeInfo.Size = New System.Drawing.Size(182, 40)
@@ -219,19 +235,32 @@ Partial Class frmAddAktenvermerkShort
Me.Label4.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.Label4.AutoSize = True
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label4.Location = New System.Drawing.Point(11, 421)
Me.Label4.Location = New System.Drawing.Point(11, 448)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(86, 13)
Me.Label4.TabIndex = 104
Me.Label4.Text = "Freigabe Info:"
'
'btnSFD
'
Me.btnSFD.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnSFD.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnSFD.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnSFD.Location = New System.Drawing.Point(11, 256)
Me.btnSFD.Name = "btnSFD"
Me.btnSFD.Size = New System.Drawing.Size(182, 27)
Me.btnSFD.TabIndex = 89
Me.btnSFD.Text = "nach Spielfeld (Lex)"
Me.btnSFD.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnSFD.UseVisualStyleBackColor = True
'
'btnDispoangefordert
'
Me.btnDispoangefordert.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.btnDispoangefordert.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnDispoangefordert.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnDispoangefordert.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnDispoangefordert.Location = New System.Drawing.Point(11, 318)
Me.btnDispoangefordert.Location = New System.Drawing.Point(11, 342)
Me.btnDispoangefordert.Name = "btnDispoangefordert"
Me.btnDispoangefordert.Size = New System.Drawing.Size(182, 27)
Me.btnDispoangefordert.TabIndex = 103
@@ -245,7 +274,7 @@ Partial Class frmAddAktenvermerkShort
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button3.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.Button3.Location = New System.Drawing.Point(11, 289)
Me.Button3.Location = New System.Drawing.Point(11, 316)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(182, 27)
Me.Button3.TabIndex = 102
@@ -258,7 +287,7 @@ Partial Class frmAddAktenvermerkShort
Me.Label3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.Label3.AutoSize = True
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.Location = New System.Drawing.Point(11, 352)
Me.Label3.Location = New System.Drawing.Point(11, 379)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(66, 13)
Me.Label3.TabIndex = 101
@@ -268,7 +297,7 @@ Partial Class frmAddAktenvermerkShort
'
Me.txtSonstiges.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.txtSonstiges.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtSonstiges.Location = New System.Drawing.Point(11, 368)
Me.txtSonstiges.Location = New System.Drawing.Point(11, 395)
Me.txtSonstiges.Multiline = True
Me.txtSonstiges.Name = "txtSonstiges"
Me.txtSonstiges.Size = New System.Drawing.Size(137, 46)
@@ -280,7 +309,7 @@ Partial Class frmAddAktenvermerkShort
Me.btnSonstiges.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnSonstiges.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnSonstiges.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnSonstiges.Location = New System.Drawing.Point(154, 368)
Me.btnSonstiges.Location = New System.Drawing.Point(154, 395)
Me.btnSonstiges.Name = "btnSonstiges"
Me.btnSonstiges.Size = New System.Drawing.Size(39, 46)
Me.btnSonstiges.TabIndex = 99
@@ -357,7 +386,7 @@ Partial Class frmAddAktenvermerkShort
Me.pnl.Controls.Add(Me.btnErfasst)
Me.pnl.Controls.Add(Me.btnVorbereitet)
Me.pnl.Controls.Add(Me.btnVorgeschrieben)
Me.pnl.Location = New System.Drawing.Point(212, 256)
Me.pnl.Location = New System.Drawing.Point(212, 283)
Me.pnl.Name = "pnl"
Me.pnl.Size = New System.Drawing.Size(197, 225)
Me.pnl.TabIndex = 93
@@ -477,21 +506,6 @@ Partial Class frmAddAktenvermerkShort
Me.btnSpaetAvisiert.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.btnSpaetAvisiert.UseVisualStyleBackColor = True
'
'btnNichtAvisiert
'
Me.btnNichtAvisiert.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.btnNichtAvisiert.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnNichtAvisiert.Image = Global.AVISO.My.Resources.Resources.noAviso_s1
Me.btnNichtAvisiert.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnNichtAvisiert.Location = New System.Drawing.Point(32, 16)
Me.btnNichtAvisiert.Margin = New System.Windows.Forms.Padding(0)
Me.btnNichtAvisiert.Name = "btnNichtAvisiert"
Me.btnNichtAvisiert.Size = New System.Drawing.Size(89, 83)
Me.btnNichtAvisiert.TabIndex = 90
Me.btnNichtAvisiert.Text = "nicht" & Global.Microsoft.VisualBasic.ChrW(10) & "avisiert"
Me.btnNichtAvisiert.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.btnNichtAvisiert.UseVisualStyleBackColor = True
'
'btnLKWStandzeitFeierteage
'
Me.btnLKWStandzeitFeierteage.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -582,23 +596,24 @@ Partial Class frmAddAktenvermerkShort
Me.Label16.TabIndex = 9
Me.Label16.Text = "Standzeit"
'
'Label14
'btnLKWumgemeldet
'
Me.Label14.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.Label14.AutoSize = True
Me.Label14.BackColor = System.Drawing.Color.Transparent
Me.Label14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label14.Location = New System.Drawing.Point(29, 0)
Me.Label14.Name = "Label14"
Me.Label14.Size = New System.Drawing.Size(38, 13)
Me.Label14.TabIndex = 2
Me.Label14.Text = "Aviso"
Me.btnLKWumgemeldet.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnLKWumgemeldet.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnLKWumgemeldet.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnLKWumgemeldet.Location = New System.Drawing.Point(11, 282)
Me.btnLKWumgemeldet.Name = "btnLKWumgemeldet"
Me.btnLKWumgemeldet.Size = New System.Drawing.Size(182, 27)
Me.btnLKWumgemeldet.TabIndex = 108
Me.btnLKWumgemeldet.Text = "LKW umgemeldet"
Me.btnLKWumgemeldet.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnLKWumgemeldet.UseVisualStyleBackColor = True
'
'frmAddAktenvermerkShort
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(401, 482)
Me.ClientSize = New System.Drawing.Size(401, 509)
Me.Controls.Add(Me.pnlAktenVermerk)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
@@ -653,4 +668,5 @@ Partial Class frmAddAktenvermerkShort
Friend WithEvents Label4 As Label
Friend WithEvents btnDEZollDIGITAL As Button
Friend WithEvents Panel1 As Panel
Friend WithEvents btnLKWumgemeldet As Button
End Class

5
Aviso/frmAddAktenvermerkShort.vb
View File

@@ -105,7 +105,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
btnFreigabe.Click, btnNichtEingetroffen.Click, btnNichtAvisiert.Click, btnAktUebernehmen.Click, btnLKWFertig.Click, btnSonstiges.Click, btnDispoangefordert.Click, btnDEZollDIGITAL.Click, btnLKWumgemeldet.Click
If sender Is Nothing Then
MsgBox("Es wurde kein Vermerk ausgewählt. Der Datensatz kann nicht gespeichert werden.", vbInformation)
@@ -176,6 +176,8 @@ btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Cli
VermerkeDAL.UpdateGrenzstelle(myAviso.AvisoID, "WAI")
ElseIf sender Is btnNKD Then
insertVermerk("Nach NKD weitergegeben", 40)
ElseIf sender Is btnLKWumgemeldet Then
insertVermerk("LKW umgemeldet", 94)
ElseIf sender Is btnSFD Then
insertVermerk("Nach Spielfeld (Lex) weitergegeben", 41)
ElseIf sender Is btnQS Then
@@ -282,4 +284,5 @@ btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Cli
End Try
End Sub
End Class

84
Aviso/frmAddSendungsvermerkShort.Designer.vb generated
View File

@@ -27,6 +27,7 @@ Partial Class frmAddSendungsvermerkShort
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.pnlMain = New System.Windows.Forms.Panel()
Me.pnlSendungsVermker = New System.Windows.Forms.Panel()
Me.cbxPackliste = New System.Windows.Forms.CheckBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.optFremd_ATB = New System.Windows.Forms.CheckBox()
Me.optFremd_SendungAvisiert = New System.Windows.Forms.CheckBox()
@@ -69,14 +70,13 @@ Partial Class frmAddSendungsvermerkShort
Me.cbxRechnung = New System.Windows.Forms.CheckBox()
Me.Label20 = New System.Windows.Forms.Label()
Me.cbxAuftrag = New System.Windows.Forms.CheckBox()
Me.PictureBox4 = New System.Windows.Forms.PictureBox()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.PictureBox4 = New System.Windows.Forms.PictureBox()
Me.Panel4 = New System.Windows.Forms.Panel()
Me.cbxPackliste = New System.Windows.Forms.CheckBox()
Me.pnlMain.SuspendLayout()
Me.pnlSendungsVermker.SuspendLayout()
CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'ContextMenuStrip1
@@ -91,7 +91,7 @@ Partial Class frmAddSendungsvermerkShort
Me.pnlMain.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnlMain.Location = New System.Drawing.Point(0, 0)
Me.pnlMain.Name = "pnlMain"
Me.pnlMain.Size = New System.Drawing.Size(453, 481)
Me.pnlMain.Size = New System.Drawing.Size(454, 503)
Me.pnlMain.TabIndex = 0
'
'pnlSendungsVermker
@@ -141,20 +141,31 @@ Partial Class frmAddSendungsvermerkShort
Me.pnlSendungsVermker.Controls.Add(Me.cbxRechnung)
Me.pnlSendungsVermker.Controls.Add(Me.Label20)
Me.pnlSendungsVermker.Controls.Add(Me.cbxAuftrag)
Me.pnlSendungsVermker.Controls.Add(Me.PictureBox4)
Me.pnlSendungsVermker.Controls.Add(Me.PictureBox1)
Me.pnlSendungsVermker.Controls.Add(Me.PictureBox4)
Me.pnlSendungsVermker.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnlSendungsVermker.Location = New System.Drawing.Point(0, 0)
Me.pnlSendungsVermker.Name = "pnlSendungsVermker"
Me.pnlSendungsVermker.Size = New System.Drawing.Size(453, 481)
Me.pnlSendungsVermker.Size = New System.Drawing.Size(454, 503)
Me.pnlSendungsVermker.TabIndex = 0
'
'cbxPackliste
'
Me.cbxPackliste.AutoSize = True
Me.cbxPackliste.BackColor = System.Drawing.Color.WhiteSmoke
Me.cbxPackliste.Location = New System.Drawing.Point(308, 75)
Me.cbxPackliste.Name = "cbxPackliste"
Me.cbxPackliste.Size = New System.Drawing.Size(69, 17)
Me.cbxPackliste.TabIndex = 97
Me.cbxPackliste.Text = "Packliste"
Me.cbxPackliste.UseVisualStyleBackColor = False
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.BackColor = System.Drawing.Color.WhiteSmoke
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label4.Location = New System.Drawing.Point(11, 314)
Me.Label4.Location = New System.Drawing.Point(11, 333)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(125, 17)
Me.Label4.TabIndex = 96
@@ -164,7 +175,7 @@ Partial Class frmAddSendungsvermerkShort
'
Me.optFremd_ATB.AutoSize = True
Me.optFremd_ATB.BackColor = System.Drawing.Color.WhiteSmoke
Me.optFremd_ATB.Location = New System.Drawing.Point(12, 361)
Me.optFremd_ATB.Location = New System.Drawing.Point(12, 380)
Me.optFremd_ATB.Name = "optFremd_ATB"
Me.optFremd_ATB.Size = New System.Drawing.Size(130, 17)
Me.optFremd_ATB.TabIndex = 94
@@ -175,7 +186,7 @@ Partial Class frmAddSendungsvermerkShort
'
Me.optFremd_SendungAvisiert.AutoSize = True
Me.optFremd_SendungAvisiert.BackColor = System.Drawing.Color.WhiteSmoke
Me.optFremd_SendungAvisiert.Location = New System.Drawing.Point(12, 338)
Me.optFremd_SendungAvisiert.Location = New System.Drawing.Point(12, 357)
Me.optFremd_SendungAvisiert.Name = "optFremd_SendungAvisiert"
Me.optFremd_SendungAvisiert.Size = New System.Drawing.Size(193, 17)
Me.optFremd_SendungAvisiert.TabIndex = 93
@@ -272,7 +283,7 @@ Partial Class frmAddSendungsvermerkShort
Me.lblErrGrund.AutoSize = True
Me.lblErrGrund.BackColor = System.Drawing.Color.WhiteSmoke
Me.lblErrGrund.ForeColor = System.Drawing.Color.Red
Me.lblErrGrund.Location = New System.Drawing.Point(120, 297)
Me.lblErrGrund.Location = New System.Drawing.Point(147, 297)
Me.lblErrGrund.Name = "lblErrGrund"
Me.lblErrGrund.Size = New System.Drawing.Size(149, 13)
Me.lblErrGrund.TabIndex = 26
@@ -288,7 +299,7 @@ Partial Class frmAddSendungsvermerkShort
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button1.ForeColor = System.Drawing.Color.White
Me.Button1.Location = New System.Drawing.Point(398, -1)
Me.Button1.Location = New System.Drawing.Point(399, -1)
Me.Button1.Name = "Button1"
Me.Button1.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.Button1.Size = New System.Drawing.Size(54, 20)
@@ -376,7 +387,7 @@ Partial Class frmAddSendungsvermerkShort
'
Me.optATAangefordert.AutoSize = True
Me.optATAangefordert.BackColor = System.Drawing.Color.WhiteSmoke
Me.optATAangefordert.Location = New System.Drawing.Point(164, 361)
Me.optATAangefordert.Location = New System.Drawing.Point(164, 380)
Me.optATAangefordert.Name = "optATAangefordert"
Me.optATAangefordert.Size = New System.Drawing.Size(208, 17)
Me.optATAangefordert.TabIndex = 15
@@ -417,7 +428,7 @@ Partial Class frmAddSendungsvermerkShort
'
Me.lblErr240Zeichen.AutoSize = True
Me.lblErr240Zeichen.ForeColor = System.Drawing.Color.Red
Me.lblErr240Zeichen.Location = New System.Drawing.Point(219, 403)
Me.lblErr240Zeichen.Location = New System.Drawing.Point(219, 418)
Me.lblErr240Zeichen.Name = "lblErr240Zeichen"
Me.lblErr240Zeichen.Size = New System.Drawing.Size(95, 13)
Me.lblErr240Zeichen.TabIndex = 32
@@ -429,7 +440,7 @@ Partial Class frmAddSendungsvermerkShort
Me.txtDetail.AcceptsReturn = True
Me.txtDetail.BackColor = System.Drawing.Color.White
Me.txtDetail.ForeColor = System.Drawing.SystemColors.InfoText
Me.txtDetail.Location = New System.Drawing.Point(12, 419)
Me.txtDetail.Location = New System.Drawing.Point(12, 434)
Me.txtDetail.MaxLength = 240
Me.txtDetail.Multiline = True
Me.txtDetail.Name = "txtDetail"
@@ -442,7 +453,7 @@ Partial Class frmAddSendungsvermerkShort
'Label18
'
Me.Label18.AutoSize = True
Me.Label18.Location = New System.Drawing.Point(9, 403)
Me.Label18.Location = New System.Drawing.Point(9, 418)
Me.Label18.Name = "Label18"
Me.Label18.Size = New System.Drawing.Size(142, 13)
Me.Label18.TabIndex = 31
@@ -473,7 +484,7 @@ Partial Class frmAddSendungsvermerkShort
'btnOK
'
Me.btnOK.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnOK.Location = New System.Drawing.Point(320, 419)
Me.btnOK.Location = New System.Drawing.Point(320, 434)
Me.btnOK.Name = "btnOK"
Me.btnOK.Size = New System.Drawing.Size(124, 54)
Me.btnOK.TabIndex = 34
@@ -495,7 +506,7 @@ Partial Class frmAddSendungsvermerkShort
Me.Label9.AutoSize = True
Me.Label9.BackColor = System.Drawing.Color.WhiteSmoke
Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!)
Me.Label9.Location = New System.Drawing.Point(332, 297)
Me.Label9.Location = New System.Drawing.Point(354, 297)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(90, 13)
Me.Label9.TabIndex = 30
@@ -528,7 +539,7 @@ Partial Class frmAddSendungsvermerkShort
Me.Label17.AutoSize = True
Me.Label17.BackColor = System.Drawing.Color.WhiteSmoke
Me.Label17.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Italic)
Me.Label17.Location = New System.Drawing.Point(119, 297)
Me.Label17.Location = New System.Drawing.Point(144, 297)
Me.Label17.Name = "Label17"
Me.Label17.Size = New System.Drawing.Size(182, 13)
Me.Label17.TabIndex = 29
@@ -608,16 +619,6 @@ Partial Class frmAddSendungsvermerkShort
Me.cbxAuftrag.Text = "Auftrag"
Me.cbxAuftrag.UseVisualStyleBackColor = False
'
'PictureBox4
'
Me.PictureBox4.BackColor = System.Drawing.Color.WhiteSmoke
Me.PictureBox4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.PictureBox4.Location = New System.Drawing.Point(-1, 218)
Me.PictureBox4.Name = "PictureBox4"
Me.PictureBox4.Size = New System.Drawing.Size(453, 176)
Me.PictureBox4.TabIndex = 78
Me.PictureBox4.TabStop = False
'
'PictureBox1
'
Me.PictureBox1.BackColor = System.Drawing.Color.WhiteSmoke
@@ -628,6 +629,16 @@ Partial Class frmAddSendungsvermerkShort
Me.PictureBox1.TabIndex = 83
Me.PictureBox1.TabStop = False
'
'PictureBox4
'
Me.PictureBox4.BackColor = System.Drawing.Color.WhiteSmoke
Me.PictureBox4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.PictureBox4.Location = New System.Drawing.Point(-1, 219)
Me.PictureBox4.Name = "PictureBox4"
Me.PictureBox4.Size = New System.Drawing.Size(453, 189)
Me.PictureBox4.TabIndex = 78
Me.PictureBox4.TabStop = False
'
'Panel4
'
Me.Panel4.BackColor = System.Drawing.Color.White
@@ -635,25 +646,14 @@ Partial Class frmAddSendungsvermerkShort
Me.Panel4.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel4.Location = New System.Drawing.Point(0, 0)
Me.Panel4.Name = "Panel4"
Me.Panel4.Size = New System.Drawing.Size(453, 0)
Me.Panel4.Size = New System.Drawing.Size(454, 0)
Me.Panel4.TabIndex = 1
'
'cbxPackliste
'
Me.cbxPackliste.AutoSize = True
Me.cbxPackliste.BackColor = System.Drawing.Color.WhiteSmoke
Me.cbxPackliste.Location = New System.Drawing.Point(308, 75)
Me.cbxPackliste.Name = "cbxPackliste"
Me.cbxPackliste.Size = New System.Drawing.Size(69, 17)
Me.cbxPackliste.TabIndex = 97
Me.cbxPackliste.Text = "Packliste"
Me.cbxPackliste.UseVisualStyleBackColor = False
'
'frmAddSendungsvermerkShort
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(453, 481)
Me.ClientSize = New System.Drawing.Size(454, 503)
Me.Controls.Add(Me.pnlMain)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
@@ -665,8 +665,8 @@ Partial Class frmAddSendungsvermerkShort
Me.pnlMain.ResumeLayout(False)
Me.pnlSendungsVermker.ResumeLayout(False)
Me.pnlSendungsVermker.PerformLayout()
CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub

1
Aviso/frmAddSendungsvermerkShort.vb
View File

@@ -157,6 +157,7 @@ Public Class frmAddSendungsvermerkShort
If optFahrerKeinATR.Checked Then insertSendungsVermerk(SendungID, myAviso.AvisoID, "Fahrer ohne A.TR bei Sendung '" & txtSendung.Text.Trim & "'", 71)
If optFremd_ATB.Checked Then insertSendungsVermerk(SendungID, myAviso.AvisoID, "ATB von Fremdeinsteller erhalten bei Sendung '" & txtSendung.Text.Trim & "' ", 72)
If optFremd_SendungAvisiert.Checked Then insertSendungsVermerk(SendungID, myAviso.AvisoID, "Sendung '" & txtSendung.Text.Trim & "' an Fremdeinsteller avisiert", 73)
' If optSndUmmelden.Checked Then insertSendungsVermerk(SendungID, myAviso.AvisoID, "Sendung '" & txtSendung.Text.Trim & "' umgemeldet", 94)
If optUeberwachungsdok.Checked Then insertSendungsVermerk(SendungID, myAviso.AvisoID, "Ü-Dok bei Sendung '" & txtSendung.Text.Trim & "' - angefordert", 53)

68
Aviso/frmEintragAviso.designer.vb generated
View File

@@ -75,6 +75,8 @@ Partial Class frmEintragAviso
Me.cboGrenzstelle = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.lblAktenuebersicht = New System.Windows.Forms.Label()
Me.grpAviso = New System.Windows.Forms.GroupBox()
Me.lblTeamFraechter = New System.Windows.Forms.Label()
Me.lblTeamAvisierer = New System.Windows.Forms.Label()
Me.cboTransportmittelart = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
@@ -149,8 +151,6 @@ Partial Class frmEintragAviso
Me.clmnPfad = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.lblTeamAvisierer = New System.Windows.Forms.Label()
Me.lblTeamFraechter = New System.Windows.Forms.Label()
Me.UsrCntlAviso_Vorpapiere1 = New AVISO.usrCntlAviso_Vorpapiere()
Me.UsrCntlEintragAvisoAtilla = New AVISO.usrCntlEintragAvisoAtilla()
Me.panAdmin.SuspendLayout()
@@ -787,6 +787,36 @@ Partial Class frmEintragAviso
Me.grpAviso.TabStop = False
Me.grpAviso.Text = "Aviso"
'
'lblTeamFraechter
'
Me.lblTeamFraechter.BackColor = System.Drawing.Color.Transparent
Me.lblTeamFraechter.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblTeamFraechter.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.lblTeamFraechter.Location = New System.Drawing.Point(258, 249)
Me.lblTeamFraechter.Name = "lblTeamFraechter"
Me.lblTeamFraechter.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.lblTeamFraechter.Size = New System.Drawing.Size(88, 13)
Me.lblTeamFraechter.TabIndex = 50
Me.lblTeamFraechter.Text = "TEAM"
Me.lblTeamFraechter.TextAlign = System.Drawing.ContentAlignment.TopRight
Me.lblTeamFraechter.UseCompatibleTextRendering = True
Me.lblTeamFraechter.Visible = False
'
'lblTeamAvisierer
'
Me.lblTeamAvisierer.BackColor = System.Drawing.Color.Transparent
Me.lblTeamAvisierer.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblTeamAvisierer.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.lblTeamAvisierer.Location = New System.Drawing.Point(258, 288)
Me.lblTeamAvisierer.Name = "lblTeamAvisierer"
Me.lblTeamAvisierer.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.lblTeamAvisierer.Size = New System.Drawing.Size(88, 13)
Me.lblTeamAvisierer.TabIndex = 49
Me.lblTeamAvisierer.Text = "TEAM"
Me.lblTeamAvisierer.TextAlign = System.Drawing.ContentAlignment.TopRight
Me.lblTeamAvisierer.UseCompatibleTextRendering = True
Me.lblTeamAvisierer.Visible = False
'
'cboTransportmittelart
'
Me.cboTransportmittelart._allowedValuesFreiText = Nothing
@@ -1492,6 +1522,7 @@ Partial Class frmEintragAviso
Me.txtSendungen._ShortDateNew = False
Me.txtSendungen._ShortDateOnly = False
Me.txtSendungen._TimeOnly = False
Me.txtSendungen._TimeOnly_Seconds = False
Me.txtSendungen._value = ""
Me.txtSendungen._Waehrung = False
Me.txtSendungen._WaehrungZeichen = True
@@ -1542,6 +1573,7 @@ Partial Class frmEintragAviso
Me.txtSndFremd._ShortDateNew = False
Me.txtSndFremd._ShortDateOnly = False
Me.txtSndFremd._TimeOnly = False
Me.txtSndFremd._TimeOnly_Seconds = False
Me.txtSndFremd._value = ""
Me.txtSndFremd._Waehrung = False
Me.txtSndFremd._WaehrungZeichen = True
@@ -1604,6 +1636,7 @@ Partial Class frmEintragAviso
Me.txtSndFiskalDE._ShortDateNew = False
Me.txtSndFiskalDE._ShortDateOnly = False
Me.txtSndFiskalDE._TimeOnly = False
Me.txtSndFiskalDE._TimeOnly_Seconds = False
Me.txtSndFiskalDE._value = ""
Me.txtSndFiskalDE._Waehrung = False
Me.txtSndFiskalDE._WaehrungZeichen = True
@@ -1637,6 +1670,7 @@ Partial Class frmEintragAviso
Me.txtSndFiskalAT._ShortDateNew = False
Me.txtSndFiskalAT._ShortDateOnly = False
Me.txtSndFiskalAT._TimeOnly = False
Me.txtSndFiskalAT._TimeOnly_Seconds = False
Me.txtSndFiskalAT._value = ""
Me.txtSndFiskalAT._Waehrung = False
Me.txtSndFiskalAT._WaehrungZeichen = True
@@ -1771,36 +1805,6 @@ Partial Class frmEintragAviso
Me.Label2.TabIndex = 5
Me.Label2.Text = "FIRMA:"
'
'lblTeamAvisierer
'
Me.lblTeamAvisierer.BackColor = System.Drawing.Color.Transparent
Me.lblTeamAvisierer.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblTeamAvisierer.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.lblTeamAvisierer.Location = New System.Drawing.Point(258, 288)
Me.lblTeamAvisierer.Name = "lblTeamAvisierer"
Me.lblTeamAvisierer.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.lblTeamAvisierer.Size = New System.Drawing.Size(88, 13)
Me.lblTeamAvisierer.TabIndex = 49
Me.lblTeamAvisierer.Text = "TEAM"
Me.lblTeamAvisierer.TextAlign = System.Drawing.ContentAlignment.TopRight
Me.lblTeamAvisierer.UseCompatibleTextRendering = True
Me.lblTeamAvisierer.Visible = False
'
'lblTeamFraechter
'
Me.lblTeamFraechter.BackColor = System.Drawing.Color.Transparent
Me.lblTeamFraechter.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblTeamFraechter.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.lblTeamFraechter.Location = New System.Drawing.Point(258, 249)
Me.lblTeamFraechter.Name = "lblTeamFraechter"
Me.lblTeamFraechter.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.lblTeamFraechter.Size = New System.Drawing.Size(88, 13)
Me.lblTeamFraechter.TabIndex = 50
Me.lblTeamFraechter.Text = "TEAM"
Me.lblTeamFraechter.TextAlign = System.Drawing.ContentAlignment.TopRight
Me.lblTeamFraechter.UseCompatibleTextRendering = True
Me.lblTeamFraechter.Visible = False
'
'UsrCntlAviso_Vorpapiere1
'
Me.UsrCntlAviso_Vorpapiere1.BackColor = System.Drawing.Color.White

6
Aviso/frmEintragAviso.resx
View File

@@ -216,12 +216,6 @@
<metadata name="clmnPfad.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="columnName.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="clmnPfad.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAEAgIAAAAEAIAAoCAEAFgAAACgAAACAAAAAAAEAAAEAIAAAAAAAAAgBABMLAAATCwAAAAAAAAAA

17
Aviso/frmEintragAviso.vb
View File

@@ -616,6 +616,7 @@ Public Class frmEintragAviso
'If Neuanlage Then
' If optAvisoEingang.Checked Then
' If optAvisoEingang.Checked Thensend
' If dtpAvisoEingangDatum.Value < Now.Date Then
' Dim antwort As MsgBoxResult = MsgBox("Das Aviso-Eingangsdatum liegt in der Vergangenheit. Wollen Sie den Eintrag trotzdem speichern?", CType(MsgBoxStyle.YesNo + MsgBoxStyle.Exclamation, MsgBoxStyle),
' "Aviso speichern")
@@ -998,9 +999,11 @@ Public Class frmEintragAviso
Dim tmpId = AvisoDAL.SpeichernAviso(myAviso)
myAviso.AvisoID = tmpId
AvisoDAL.addAenderung(tmpId, aendart, aendText)
'VORPAPIER
If UsrCntlAviso_Vorpapiere1.checkDouble() Then
MsgBox("Vorpapiere: Doppelte Einträge!")
@@ -1144,6 +1147,9 @@ Public Class frmEintragAviso
If Neuanlage Then
AvisoStatusFunctions.SendStatusEmail(myAviso)
End If
' If Not IsNumeric(txtSendungen.Text) Or txtSendungen.Text = "0" Then
'txtSendungen.Text = "1"
@@ -1801,7 +1807,14 @@ Public Class frmEintragAviso
End Try
End Sub
Private Sub Button5_Click_1(sender As Object, e As EventArgs) Handles Button5.Click
Private Sub kdAvisierer_KeyDown(sender As Object, e As KeyEventArgs) Handles kdAvisierer.KeyDown
If e.Modifiers = Keys.Control And e.KeyCode = Keys.D0 Then
Label17_Click(Label17, New EventArgs)
End If
End Sub
Private Sub kdAuftraggeber_KeyDown(sender As Object, e As KeyEventArgs) Handles kdAuftraggeber.KeyDown
If e.Modifiers = Keys.Control And e.KeyCode = Keys.D0 Then
lblAtrAvis_Click(lblAtrAvis, New EventArgs)
End If
End Sub
End Class

212
Aviso/frmFreigabeSetzenAnhaenge.Designer.vb generated Normal file
View File

@@ -0,0 +1,212 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmFreigabeSetzenAnhaenge
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmFreigabeSetzenAnhaenge))
Me.pnl = New System.Windows.Forms.Panel()
Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.btn = New System.Windows.Forms.Button()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.Button1 = New System.Windows.Forms.Button()
Me.Label6 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.rtbSonstigeInfo = New System.Windows.Forms.RichTextBox()
Me.rtbDokumente = New System.Windows.Forms.RichTextBox()
Me.lblText = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.cbxInfoblattFurDigitalabfertigungDrucken = New System.Windows.Forms.CheckBox()
Me.pnl.SuspendLayout()
CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel1.SuspendLayout()
Me.SuspendLayout()
'
'pnl
'
Me.pnl.BackColor = System.Drawing.Color.White
Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnl.Controls.Add(Me.MyDatagridview1)
Me.pnl.Controls.Add(Me.btn)
Me.pnl.Controls.Add(Me.Panel1)
Me.pnl.Controls.Add(Me.cbxInfoblattFurDigitalabfertigungDrucken)
Me.pnl.Controls.Add(Me.Label2)
Me.pnl.Controls.Add(Me.rtbSonstigeInfo)
Me.pnl.Controls.Add(Me.rtbDokumente)
Me.pnl.Controls.Add(Me.lblText)
Me.pnl.Controls.Add(Me.Label1)
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(494, 568)
Me.pnl.TabIndex = 0
'
'MyDatagridview1
'
Me.MyDatagridview1.AKTUALISIERUNGS_INTERVALL = -1
Me.MyDatagridview1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.MyDatagridview1.Location = New System.Drawing.Point(6, 74)
Me.MyDatagridview1.Name = "MyDatagridview1"
Me.MyDatagridview1.Size = New System.Drawing.Size(474, 210)
Me.MyDatagridview1.TabIndex = 102
'
'btn
'
Me.btn.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
Me.btn.ForeColor = System.Drawing.Color.White
Me.btn.Location = New System.Drawing.Point(274, 493)
Me.btn.Name = "btn"
Me.btn.Size = New System.Drawing.Size(206, 62)
Me.btn.TabIndex = 99
Me.btn.Text = "OK"
Me.btn.UseVisualStyleBackColor = 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.Button1)
Me.Panel1.Controls.Add(Me.Label6)
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(492, 41)
Me.Panel1.TabIndex = 98
'
'Button1
'
Me.Button1.BackColor = System.Drawing.Color.Red
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
Me.Button1.ForeColor = System.Drawing.Color.White
Me.Button1.Location = New System.Drawing.Point(408, -1)
Me.Button1.Margin = New System.Windows.Forms.Padding(0)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(85, 33)
Me.Button1.TabIndex = 1
Me.Button1.Text = "x"
Me.Button1.UseVisualStyleBackColor = False
'
'Label6
'
Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
Me.Label6.ForeColor = System.Drawing.Color.White
Me.Label6.Location = New System.Drawing.Point(13, 6)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(467, 26)
Me.Label6.TabIndex = 51
Me.Label6.Text = "Freigabe setzen"
Me.Label6.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'Label2
'
Me.Label2.Cursor = System.Windows.Forms.Cursors.Hand
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.Location = New System.Drawing.Point(3, 287)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(422, 25)
Me.Label2.TabIndex = 96
Me.Label2.Text = "Sonstige Info:"
Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'rtbSonstigeInfo
'
Me.rtbSonstigeInfo.Location = New System.Drawing.Point(6, 315)
Me.rtbSonstigeInfo.Name = "rtbSonstigeInfo"
Me.rtbSonstigeInfo.Size = New System.Drawing.Size(474, 94)
Me.rtbSonstigeInfo.TabIndex = 95
Me.rtbSonstigeInfo.Text = ""
'
'rtbDokumente
'
Me.rtbDokumente.Location = New System.Drawing.Point(6, 473)
Me.rtbDokumente.Name = "rtbDokumente"
Me.rtbDokumente.Size = New System.Drawing.Size(262, 85)
Me.rtbDokumente.TabIndex = 94
Me.rtbDokumente.Text = ""
'
'lblText
'
Me.lblText.Cursor = System.Windows.Forms.Cursors.Hand
Me.lblText.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblText.Location = New System.Drawing.Point(3, 442)
Me.lblText.Name = "lblText"
Me.lblText.Size = New System.Drawing.Size(422, 35)
Me.lblText.TabIndex = 89
Me.lblText.Text = "Folgende Dokumente sind an den Kunden zu senden:"
Me.lblText.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'Label1
'
Me.Label1.Cursor = System.Windows.Forms.Cursors.Hand
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(3, 46)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(422, 25)
Me.Label1.TabIndex = 103
Me.Label1.Text = "Anhänge Sendungsliste:"
Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'cbxInfoblattFurDigitalabfertigungDrucken
'
Me.cbxInfoblattFurDigitalabfertigungDrucken.AutoSize = True
Me.cbxInfoblattFurDigitalabfertigungDrucken.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
Me.cbxInfoblattFurDigitalabfertigungDrucken.Location = New System.Drawing.Point(6, 415)
Me.cbxInfoblattFurDigitalabfertigungDrucken.Name = "cbxInfoblattFurDigitalabfertigungDrucken"
Me.cbxInfoblattFurDigitalabfertigungDrucken.Size = New System.Drawing.Size(300, 24)
Me.cbxInfoblattFurDigitalabfertigungDrucken.TabIndex = 97
Me.cbxInfoblattFurDigitalabfertigungDrucken.Text = "Infoblatt für Digitalabfertigung drucken"
Me.cbxInfoblattFurDigitalabfertigungDrucken.UseVisualStyleBackColor = True
Me.cbxInfoblattFurDigitalabfertigungDrucken.Visible = False
'
'frmFreigabeSetzenAnhaenge
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(494, 568)
Me.Controls.Add(Me.pnl)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmFreigabeSetzenAnhaenge"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "frmDokumenteSchicken"
Me.pnl.ResumeLayout(False)
Me.pnl.PerformLayout()
CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel1.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
Friend WithEvents pnl As System.Windows.Forms.Panel
Public WithEvents lblText As System.Windows.Forms.Label
Public WithEvents rtbDokumente As System.Windows.Forms.RichTextBox
Public WithEvents Label2 As Label
Public WithEvents rtbSonstigeInfo As RichTextBox
Friend WithEvents Panel1 As Panel
Friend WithEvents Label6 As Label
Friend WithEvents Button1 As Button
Friend WithEvents btn As Button
Friend WithEvents MyDatagridview1 As VERAG_PROG_ALLGEMEIN.MyDatagridview
Public WithEvents Label1 As Label
Friend WithEvents cbxInfoblattFurDigitalabfertigungDrucken As CheckBox
End Class

1253
Aviso/frmFreigabeSetzenAnhaenge.resx Normal file
View File

File diff suppressed because it is too large Load Diff

110
Aviso/frmFreigabeSetzenAnhaenge.vb Normal file
View File

@@ -0,0 +1,110 @@
Public Class frmFreigabeSetzenAnhaenge
Dim AVISO As VERAG_PROG_ALLGEMEIN.cAviso
Sub New(AVISO As VERAG_PROG_ALLGEMEIN.cAviso)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.AVISO = AVISO
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub frmDokumenteSchicken_Shown(sender As Object, e As EventArgs) Handles Me.Shown
btn.Focus()
End Sub
Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btn.Click
If False Then
Try
If cbxInfoblattFurDigitalabfertigungDrucken.Checked And cbxInfoblattFurDigitalabfertigungDrucken.Visible Then
Dim path = SDL.FormularManagerNEU.Finish_AVISO(AVISO)
Dim oPS As New System.Drawing.Printing.PrinterSettings
If path <> "" Then VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaGS(path, oPS.PrinterName)
End If
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
End If
Me.DialogResult = DialogResult.OK
Me.Close()
End Sub
Private Sub frmDokumenteSchicken_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("PRINT_Freigabe_FinishDigital") Then
cbxInfoblattFurDigitalabfertigungDrucken.Visible = False
End If
initAnhaenge()
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.DialogResult = DialogResult.Cancel
End Sub
Sub initAnhaenge()
With MyDatagridview1
Dim SENDUNG_LIST = AVISO.getSENDUNG_LIST
.Rows.Clear()
Dim ANH_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge)
VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge.LOAD_LIST_ByAviso(ANH_LIST, AVISO.AvisoID) 'LÄDT alle Aviso-Anhänge
For Each s In SENDUNG_LIST
Select Case s.FilialenNr
Case "5701"
For Each l In ANH_LIST
If s.tblSnd_SendungID = l.anh_SendungsId Then
'Rechnung, CMR; Ausfuhr, werden immer gesendet. In letzter Zeit werden COO und auch Packlisten verlangt.
Select Case l.anh_Art.ToString.ToUpper
Case "CMR", "Rechnung", "Ausfuhr", "CoO", "Packliste"
.Rows.Add(l.anh_id, l.anh_Name, l.anh_docId)
End Select
End If
Next
End Select
Next
''If loadAttachRg Then
'If False Then
' If False Then
' 'Falls CMR, Vorpapier in den Unterlagen vorhanden, werden diese beigefügt
' For Each l In ANH_LIST
' Select Case l.anh_Art.ToString.ToUpper
' Case "VORPAPIER" ', "CMR"
' .Rows.Add(l.anh_id, l.anh_Name, l.anh_docId)
' End Select
' Next
' End If
' If False Then
' For Each s In SENDUNG_LIST
' Select Case s.tblSnd_Abfertigungsart_ID
' 'Falls RECHNUNGen in den Unterlagen vorhanden, werden diese beigefügt
' Case "5", "45", "28", "26", "38" 'T1, Ü-T1, DE-FISK
' Dim ANH_LIST_SND As New List(Of VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge)
' VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge.LOAD_LIST_BySendung(ANH_LIST_SND, s.tblSnd_SendungID) 'LÄDT alle Aviso-Anhänge
' For Each l In ANH_LIST_SND
' Select Case l.anh_Art.ToString.ToUpper
' Case "RECHNUNG", "HANDELSRECHNUNG"
' .Rows.Add(l.anh_id, l.anh_Name, l.anh_docId)
' 'Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(l.anh_docId), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
' End Select
' Next
' End Select
' Next
' End If
' 'Markierte Anhänge
' For Each l In ANH_LIST
' 'Markierte:
' If l.anh_GestellungslisteAnfuegen Then
' .Rows.Add(l.anh_id, l.anh_Name, l.anh_docId)
' ' Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(l.anh_docId), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
' End If
' Next
'End If
End With
End Sub
End Class

229
Aviso/frmHauptfenster.Designer.vb generated
View File

@@ -159,6 +159,7 @@ Partial Class frmHauptfenster
Me.CMRToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.Einheitspapier0735VersandverfahrenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.BREXITToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.GVMSToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.GVMSUKIMportToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.GVMSBeschreibungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator14 = New System.Windows.Forms.ToolStripSeparator()
@@ -187,8 +188,14 @@ Partial Class frmHauptfenster
Me.VerfahrenshandbuchVERAGGmbHZollWOToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ChecklistenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ChecklisteWOCHECKLISTEZEallgemein = New System.Windows.Forms.ToolStripMenuItem()
Me.WOCECKLISTEZEWDHToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ZEVerfahrensanleitungGestellungSumAToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ZEVerfahrensanleitungGestellungSumAFremdpersonalToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator22 = New System.Windows.Forms.ToolStripSeparator()
Me.WOCHECKLISTEZVAllgemeinToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ZEVerfahrensanleitungGestellungSumAToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator21 = New System.Windows.Forms.ToolStripSeparator()
Me.WOCECKLISTEAbgangVerwahrungsortZVToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.WOCECKLISTEZEWDHToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.HandbuchToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.btnWoche = New System.Windows.Forms.Button()
Me.btnGestern = New System.Windows.Forms.Button()
@@ -248,6 +255,7 @@ Partial Class frmHauptfenster
Me.cntxtAtilla = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ToolStripMenuItem17 = New System.Windows.Forms.ToolStripMenuItem()
Me.SplitContainer3 = New System.Windows.Forms.SplitContainer()
Me.UsrCntlBenachrichtigungen1 = New AVISO.usrCntlBenachrichtigungen()
Me.pnl = New System.Windows.Forms.Panel()
Me.Button10 = New System.Windows.Forms.Button()
Me.gridMyAviso = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
@@ -331,7 +339,7 @@ Partial Class frmHauptfenster
Me.EUTaricToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.Timer_REFRESH = New System.Windows.Forms.Timer(Me.components)
Me.UsrCntlTestsystem1 = New VERAG_PROG_ALLGEMEIN.usrCntlTestsystem()
Me.UsrCntlBenachrichtigungen1 = New AVISO.usrCntlBenachrichtigungen()
Me.AlleStatusMailsSchickenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.conMenuAviso.SuspendLayout()
Me.MenuStrip1.SuspendLayout()
Me.Top.SuspendLayout()
@@ -514,7 +522,7 @@ Partial Class frmHauptfenster
'
'AdministrationToolStripMenuItem
'
Me.AdministrationToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.KdNrZuordnenToolStripMenuItem, Me.OptionenToolStripMenuItem1, Me.VorlagenUploadToolStripMenuItem, Me.BarcodeTestToolStripMenuItem, Me.TabellenToolStripMenuItem, Me.SMSTestToolStripMenuItem, Me.QSTeamsToolStripMenuItem, Me.LeereRechnungToolStripMenuItem, Me.EMAILTESTToolStripMenuItem, Me.FreigabeMailTestToolStripMenuItem, Me.SDLProgrammStartenToolStripMenuItem, Me.TESTToolStripMenuItem})
Me.AdministrationToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.KdNrZuordnenToolStripMenuItem, Me.OptionenToolStripMenuItem1, Me.VorlagenUploadToolStripMenuItem, Me.BarcodeTestToolStripMenuItem, Me.TabellenToolStripMenuItem, Me.SMSTestToolStripMenuItem, Me.QSTeamsToolStripMenuItem, Me.LeereRechnungToolStripMenuItem, Me.EMAILTESTToolStripMenuItem, Me.FreigabeMailTestToolStripMenuItem, Me.SDLProgrammStartenToolStripMenuItem, Me.TESTToolStripMenuItem, Me.AlleStatusMailsSchickenToolStripMenuItem})
Me.AdministrationToolStripMenuItem.Name = "AdministrationToolStripMenuItem"
Me.AdministrationToolStripMenuItem.Size = New System.Drawing.Size(184, 22)
Me.AdministrationToolStripMenuItem.Text = "Administration"
@@ -523,79 +531,79 @@ Partial Class frmHauptfenster
'KdNrZuordnenToolStripMenuItem
'
Me.KdNrZuordnenToolStripMenuItem.Name = "KdNrZuordnenToolStripMenuItem"
Me.KdNrZuordnenToolStripMenuItem.Size = New System.Drawing.Size(193, 22)
Me.KdNrZuordnenToolStripMenuItem.Size = New System.Drawing.Size(209, 22)
Me.KdNrZuordnenToolStripMenuItem.Text = "KdNr Zuordnen"
'
'OptionenToolStripMenuItem1
'
Me.OptionenToolStripMenuItem1.Name = "OptionenToolStripMenuItem1"
Me.OptionenToolStripMenuItem1.Size = New System.Drawing.Size(193, 22)
Me.OptionenToolStripMenuItem1.Size = New System.Drawing.Size(209, 22)
Me.OptionenToolStripMenuItem1.Text = "Optionen"
'
'VorlagenUploadToolStripMenuItem
'
Me.VorlagenUploadToolStripMenuItem.Name = "VorlagenUploadToolStripMenuItem"
Me.VorlagenUploadToolStripMenuItem.Size = New System.Drawing.Size(193, 22)
Me.VorlagenUploadToolStripMenuItem.Size = New System.Drawing.Size(209, 22)
Me.VorlagenUploadToolStripMenuItem.Text = "Vorlagen Upload"
'
'BarcodeTestToolStripMenuItem
'
Me.BarcodeTestToolStripMenuItem.Name = "BarcodeTestToolStripMenuItem"
Me.BarcodeTestToolStripMenuItem.Size = New System.Drawing.Size(193, 22)
Me.BarcodeTestToolStripMenuItem.Size = New System.Drawing.Size(209, 22)
Me.BarcodeTestToolStripMenuItem.Text = "Barcode Test"
'
'TabellenToolStripMenuItem
'
Me.TabellenToolStripMenuItem.Name = "TabellenToolStripMenuItem"
Me.TabellenToolStripMenuItem.Size = New System.Drawing.Size(193, 22)
Me.TabellenToolStripMenuItem.Size = New System.Drawing.Size(209, 22)
Me.TabellenToolStripMenuItem.Text = "Tabellen"
'
'SMSTestToolStripMenuItem
'
Me.SMSTestToolStripMenuItem.Name = "SMSTestToolStripMenuItem"
Me.SMSTestToolStripMenuItem.Size = New System.Drawing.Size(193, 22)
Me.SMSTestToolStripMenuItem.Size = New System.Drawing.Size(209, 22)
Me.SMSTestToolStripMenuItem.Text = "SMS Test"
'
'QSTeamsToolStripMenuItem
'
Me.QSTeamsToolStripMenuItem.Name = "QSTeamsToolStripMenuItem"
Me.QSTeamsToolStripMenuItem.Size = New System.Drawing.Size(193, 22)
Me.QSTeamsToolStripMenuItem.Size = New System.Drawing.Size(209, 22)
Me.QSTeamsToolStripMenuItem.Text = "QS Teams"
'
'LeereRechnungToolStripMenuItem
'
Me.LeereRechnungToolStripMenuItem.Name = "LeereRechnungToolStripMenuItem"
Me.LeereRechnungToolStripMenuItem.Size = New System.Drawing.Size(193, 22)
Me.LeereRechnungToolStripMenuItem.Size = New System.Drawing.Size(209, 22)
Me.LeereRechnungToolStripMenuItem.Text = "leere Rechnung TEST"
'
'EMAILTESTToolStripMenuItem
'
Me.EMAILTESTToolStripMenuItem.Name = "EMAILTESTToolStripMenuItem"
Me.EMAILTESTToolStripMenuItem.Size = New System.Drawing.Size(193, 22)
Me.EMAILTESTToolStripMenuItem.Size = New System.Drawing.Size(209, 22)
Me.EMAILTESTToolStripMenuItem.Text = "EMAILTEST"
'
'FreigabeMailTestToolStripMenuItem
'
Me.FreigabeMailTestToolStripMenuItem.Name = "FreigabeMailTestToolStripMenuItem"
Me.FreigabeMailTestToolStripMenuItem.Size = New System.Drawing.Size(193, 22)
Me.FreigabeMailTestToolStripMenuItem.Size = New System.Drawing.Size(209, 22)
Me.FreigabeMailTestToolStripMenuItem.Text = "FreigabeMail test"
'
'SDLProgrammStartenToolStripMenuItem
'
Me.SDLProgrammStartenToolStripMenuItem.Name = "SDLProgrammStartenToolStripMenuItem"
Me.SDLProgrammStartenToolStripMenuItem.Size = New System.Drawing.Size(193, 22)
Me.SDLProgrammStartenToolStripMenuItem.Size = New System.Drawing.Size(209, 22)
Me.SDLProgrammStartenToolStripMenuItem.Text = "SDL Programm starten"
'
'TESTToolStripMenuItem
'
Me.TESTToolStripMenuItem.Name = "TESTToolStripMenuItem"
Me.TESTToolStripMenuItem.Size = New System.Drawing.Size(193, 22)
Me.TESTToolStripMenuItem.Size = New System.Drawing.Size(209, 22)
Me.TESTToolStripMenuItem.Text = "TEST"
'
'ToolStripSeparator4
'
Me.ToolStripSeparator4.Name = "ToolStripSeparator4"
Me.ToolStripSeparator4.Size = New System.Drawing.Size(119, 6)
Me.ToolStripSeparator4.Size = New System.Drawing.Size(181, 6)
'
'FirmaWechselnToolStripMenuItem
'
@@ -802,7 +810,7 @@ Partial Class frmHauptfenster
'ToolStripSeparator12
'
Me.ToolStripSeparator12.Name = "ToolStripSeparator12"
Me.ToolStripSeparator12.Size = New System.Drawing.Size(252, 6)
Me.ToolStripSeparator12.Size = New System.Drawing.Size(380, 6)
'
'ToolStripMenuItem3
'
@@ -853,7 +861,7 @@ Partial Class frmHauptfenster
'ToolStripSeparator10
'
Me.ToolStripSeparator10.Name = "ToolStripSeparator10"
Me.ToolStripSeparator10.Size = New System.Drawing.Size(252, 6)
Me.ToolStripSeparator10.Size = New System.Drawing.Size(380, 6)
'
'DAKOSYToolStripMenuItem
'
@@ -871,7 +879,7 @@ Partial Class frmHauptfenster
'ToolStripSeparator11
'
Me.ToolStripSeparator11.Name = "ToolStripSeparator11"
Me.ToolStripSeparator11.Size = New System.Drawing.Size(252, 6)
Me.ToolStripSeparator11.Size = New System.Drawing.Size(380, 6)
'
'SDLAbholaufträgeToolStripMenuItem
'
@@ -942,7 +950,7 @@ Partial Class frmHauptfenster
'ToolStripSeparator8
'
Me.ToolStripSeparator8.Name = "ToolStripSeparator8"
Me.ToolStripSeparator8.Size = New System.Drawing.Size(153, 6)
Me.ToolStripSeparator8.Size = New System.Drawing.Size(231, 6)
'
'BürgschafrtsbuchungenFremdToolStripMenuItem
'
@@ -959,7 +967,7 @@ Partial Class frmHauptfenster
'ToolStripSeparator7
'
Me.ToolStripSeparator7.Name = "ToolStripSeparator7"
Me.ToolStripSeparator7.Size = New System.Drawing.Size(153, 6)
Me.ToolStripSeparator7.Size = New System.Drawing.Size(231, 6)
'
'SDLAuswertungenToolStripMenuItem
'
@@ -995,7 +1003,7 @@ Partial Class frmHauptfenster
'ToolStripSeparator3
'
Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
Me.ToolStripSeparator3.Size = New System.Drawing.Size(181, 6)
Me.ToolStripSeparator3.Size = New System.Drawing.Size(274, 6)
'
'ToolStripMenuItem2
'
@@ -1093,7 +1101,7 @@ Partial Class frmHauptfenster
'ToolStripSeparator9
'
Me.ToolStripSeparator9.Name = "ToolStripSeparator9"
Me.ToolStripSeparator9.Size = New System.Drawing.Size(181, 6)
Me.ToolStripSeparator9.Size = New System.Drawing.Size(274, 6)
'
'VerzollungsunterlagenToolStripMenuItem
'
@@ -1110,7 +1118,7 @@ Partial Class frmHauptfenster
'ToolStripSeparator6
'
Me.ToolStripSeparator6.Name = "ToolStripSeparator6"
Me.ToolStripSeparator6.Size = New System.Drawing.Size(181, 6)
Me.ToolStripSeparator6.Size = New System.Drawing.Size(274, 6)
'
'WAIDHAUSToolStripMenuItem
'
@@ -1152,7 +1160,7 @@ Partial Class frmHauptfenster
'ToolStripSeparator13
'
Me.ToolStripSeparator13.Name = "ToolStripSeparator13"
Me.ToolStripSeparator13.Size = New System.Drawing.Size(181, 6)
Me.ToolStripSeparator13.Size = New System.Drawing.Size(274, 6)
'
'EinheitspapierToolStripMenuItem
'
@@ -1174,84 +1182,91 @@ Partial Class frmHauptfenster
'
'BREXITToolStripMenuItem
'
Me.BREXITToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.GVMSUKIMportToolStripMenuItem, Me.GVMSBeschreibungToolStripMenuItem, Me.ToolStripSeparator14, Me.TicketIBFInlandBorderFacilitiesToolStripMenuItem, Me.TicketIBFBeschreibungToolStripMenuItem, Me.IBFStatusToolStripMenuItem, Me.ToolStripSeparator15, Me.FREnveloppeSmartBorderToolStripMenuItem, Me.ToolStripSeparator16, Me.PBNIrelandFähreToolStripMenuItem, Me.ToolStripSeparator20, Me.WARENORTToolStripMenuItem, Me.ToolStripMenuItem14, Me.ToolStripSeparator18, Me.EORIUKGeneriertenToolStripMenuItem, Me.KAPKentAccessPermitToolStripMenuItem})
Me.BREXITToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.GVMSToolStripMenuItem, Me.GVMSUKIMportToolStripMenuItem, Me.GVMSBeschreibungToolStripMenuItem, Me.ToolStripSeparator14, Me.TicketIBFInlandBorderFacilitiesToolStripMenuItem, Me.TicketIBFBeschreibungToolStripMenuItem, Me.IBFStatusToolStripMenuItem, Me.ToolStripSeparator15, Me.FREnveloppeSmartBorderToolStripMenuItem, Me.ToolStripSeparator16, Me.PBNIrelandFähreToolStripMenuItem, Me.ToolStripSeparator20, Me.WARENORTToolStripMenuItem, Me.ToolStripMenuItem14, Me.ToolStripSeparator18, Me.EORIUKGeneriertenToolStripMenuItem, Me.KAPKentAccessPermitToolStripMenuItem})
Me.BREXITToolStripMenuItem.Name = "BREXITToolStripMenuItem"
Me.BREXITToolStripMenuItem.Size = New System.Drawing.Size(56, 20)
Me.BREXITToolStripMenuItem.Text = "BREXIT"
Me.BREXITToolStripMenuItem.Visible = False
'
'GVMSToolStripMenuItem
'
Me.GVMSToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1
Me.GVMSToolStripMenuItem.Name = "GVMSToolStripMenuItem"
Me.GVMSToolStripMenuItem.Size = New System.Drawing.Size(257, 30)
Me.GVMSToolStripMenuItem.Text = "GVMS"
'
'GVMSUKIMportToolStripMenuItem
'
Me.GVMSUKIMportToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1
Me.GVMSUKIMportToolStripMenuItem.Name = "GVMSUKIMportToolStripMenuItem"
Me.GVMSUKIMportToolStripMenuItem.Size = New System.Drawing.Size(249, 22)
Me.GVMSUKIMportToolStripMenuItem.Size = New System.Drawing.Size(257, 30)
Me.GVMSUKIMportToolStripMenuItem.Text = "GVMS (UK Import)"
'
'GVMSBeschreibungToolStripMenuItem
'
Me.GVMSBeschreibungToolStripMenuItem.Enabled = False
Me.GVMSBeschreibungToolStripMenuItem.Name = "GVMSBeschreibungToolStripMenuItem"
Me.GVMSBeschreibungToolStripMenuItem.Size = New System.Drawing.Size(249, 22)
Me.GVMSBeschreibungToolStripMenuItem.Size = New System.Drawing.Size(257, 30)
Me.GVMSBeschreibungToolStripMenuItem.Text = "GVMS Beschreibung"
'
'ToolStripSeparator14
'
Me.ToolStripSeparator14.Name = "ToolStripSeparator14"
Me.ToolStripSeparator14.Size = New System.Drawing.Size(163, 6)
Me.ToolStripSeparator14.Size = New System.Drawing.Size(254, 6)
'
'TicketIBFInlandBorderFacilitiesToolStripMenuItem
'
Me.TicketIBFInlandBorderFacilitiesToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1
Me.TicketIBFInlandBorderFacilitiesToolStripMenuItem.Name = "TicketIBFInlandBorderFacilitiesToolStripMenuItem"
Me.TicketIBFInlandBorderFacilitiesToolStripMenuItem.Size = New System.Drawing.Size(249, 22)
Me.TicketIBFInlandBorderFacilitiesToolStripMenuItem.Size = New System.Drawing.Size(257, 30)
Me.TicketIBFInlandBorderFacilitiesToolStripMenuItem.Text = "Ticket IBF (InlandBorderFacilities)"
'
'TicketIBFBeschreibungToolStripMenuItem
'
Me.TicketIBFBeschreibungToolStripMenuItem.Name = "TicketIBFBeschreibungToolStripMenuItem"
Me.TicketIBFBeschreibungToolStripMenuItem.Size = New System.Drawing.Size(249, 22)
Me.TicketIBFBeschreibungToolStripMenuItem.Size = New System.Drawing.Size(257, 30)
Me.TicketIBFBeschreibungToolStripMenuItem.Text = "Ticket IBF Beschreibung"
'
'IBFStatusToolStripMenuItem
'
Me.IBFStatusToolStripMenuItem.Name = "IBFStatusToolStripMenuItem"
Me.IBFStatusToolStripMenuItem.Size = New System.Drawing.Size(249, 22)
Me.IBFStatusToolStripMenuItem.Size = New System.Drawing.Size(257, 30)
Me.IBFStatusToolStripMenuItem.Text = "IBF Status"
'
'ToolStripSeparator15
'
Me.ToolStripSeparator15.Name = "ToolStripSeparator15"
Me.ToolStripSeparator15.Size = New System.Drawing.Size(163, 6)
Me.ToolStripSeparator15.Size = New System.Drawing.Size(254, 6)
'
'FREnveloppeSmartBorderToolStripMenuItem
'
Me.FREnveloppeSmartBorderToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1
Me.FREnveloppeSmartBorderToolStripMenuItem.Name = "FREnveloppeSmartBorderToolStripMenuItem"
Me.FREnveloppeSmartBorderToolStripMenuItem.Size = New System.Drawing.Size(249, 22)
Me.FREnveloppeSmartBorderToolStripMenuItem.Size = New System.Drawing.Size(257, 30)
Me.FREnveloppeSmartBorderToolStripMenuItem.Text = "FR: Enveloppe (SmartBorder)"
'
'ToolStripSeparator16
'
Me.ToolStripSeparator16.Name = "ToolStripSeparator16"
Me.ToolStripSeparator16.Size = New System.Drawing.Size(163, 6)
Me.ToolStripSeparator16.Size = New System.Drawing.Size(254, 6)
'
'PBNIrelandFähreToolStripMenuItem
'
Me.PBNIrelandFähreToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1
Me.PBNIrelandFähreToolStripMenuItem.Name = "PBNIrelandFähreToolStripMenuItem"
Me.PBNIrelandFähreToolStripMenuItem.Size = New System.Drawing.Size(249, 22)
Me.PBNIrelandFähreToolStripMenuItem.Size = New System.Drawing.Size(257, 30)
Me.PBNIrelandFähreToolStripMenuItem.Text = "PBN (Ireland Fähre)"
'
'ToolStripSeparator20
'
Me.ToolStripSeparator20.Name = "ToolStripSeparator20"
Me.ToolStripSeparator20.Size = New System.Drawing.Size(163, 6)
Me.ToolStripSeparator20.Size = New System.Drawing.Size(254, 6)
'
'WARENORTToolStripMenuItem
'
Me.WARENORTToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ATFormularZa282ToolStripMenuItem, Me.ATInfoToolStripMenuItem, Me.ToolStripSeparator17, Me.DEFormular0442ToolStripMenuItem, Me.DEInfoToolStripMenuItem})
Me.WARENORTToolStripMenuItem.Name = "WARENORTToolStripMenuItem"
Me.WARENORTToolStripMenuItem.Size = New System.Drawing.Size(249, 22)
Me.WARENORTToolStripMenuItem.Size = New System.Drawing.Size(257, 30)
Me.WARENORTToolStripMenuItem.Text = "REX"
'
'ATFormularZa282ToolStripMenuItem
@@ -1269,7 +1284,7 @@ Partial Class frmHauptfenster
'ToolStripSeparator17
'
Me.ToolStripSeparator17.Name = "ToolStripSeparator17"
Me.ToolStripSeparator17.Size = New System.Drawing.Size(112, 6)
Me.ToolStripSeparator17.Size = New System.Drawing.Size(170, 6)
'
'DEFormular0442ToolStripMenuItem
'
@@ -1287,7 +1302,7 @@ Partial Class frmHauptfenster
'
Me.ToolStripMenuItem14.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem16, Me.ToolStripSeparator19})
Me.ToolStripMenuItem14.Name = "ToolStripMenuItem14"
Me.ToolStripMenuItem14.Size = New System.Drawing.Size(249, 22)
Me.ToolStripMenuItem14.Size = New System.Drawing.Size(257, 30)
Me.ToolStripMenuItem14.Text = "WARENORT"
'
'ToolStripMenuItem16
@@ -1299,25 +1314,25 @@ Partial Class frmHauptfenster
'ToolStripSeparator19
'
Me.ToolStripSeparator19.Name = "ToolStripSeparator19"
Me.ToolStripSeparator19.Size = New System.Drawing.Size(112, 6)
Me.ToolStripSeparator19.Size = New System.Drawing.Size(170, 6)
'
'ToolStripSeparator18
'
Me.ToolStripSeparator18.Name = "ToolStripSeparator18"
Me.ToolStripSeparator18.Size = New System.Drawing.Size(163, 6)
Me.ToolStripSeparator18.Size = New System.Drawing.Size(254, 6)
'
'EORIUKGeneriertenToolStripMenuItem
'
Me.EORIUKGeneriertenToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.fragezeichen1
Me.EORIUKGeneriertenToolStripMenuItem.Name = "EORIUKGeneriertenToolStripMenuItem"
Me.EORIUKGeneriertenToolStripMenuItem.Size = New System.Drawing.Size(249, 22)
Me.EORIUKGeneriertenToolStripMenuItem.Size = New System.Drawing.Size(257, 30)
Me.EORIUKGeneriertenToolStripMenuItem.Text = "EORI UK generierten"
'
'KAPKentAccessPermitToolStripMenuItem
'
Me.KAPKentAccessPermitToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.fragezeichen
Me.KAPKentAccessPermitToolStripMenuItem.Name = "KAPKentAccessPermitToolStripMenuItem"
Me.KAPKentAccessPermitToolStripMenuItem.Size = New System.Drawing.Size(249, 22)
Me.KAPKentAccessPermitToolStripMenuItem.Size = New System.Drawing.Size(257, 30)
Me.KAPKentAccessPermitToolStripMenuItem.Text = "KAP (KentAccessPermit)"
'
'mnuFragezeichen
@@ -1344,7 +1359,7 @@ Partial Class frmHauptfenster
'
'ChecklistenToolStripMenuItem
'
Me.ChecklistenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ChecklisteWOCHECKLISTEZEallgemein, Me.WOCECKLISTEZEWDHToolStripMenuItem, Me.WOCECKLISTEAbgangVerwahrungsortZVToolStripMenuItem})
Me.ChecklistenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ChecklisteWOCHECKLISTEZEallgemein, Me.ZEVerfahrensanleitungGestellungSumAToolStripMenuItem, Me.ZEVerfahrensanleitungGestellungSumAFremdpersonalToolStripMenuItem, Me.ToolStripSeparator22, Me.WOCHECKLISTEZVAllgemeinToolStripMenuItem, Me.ZEVerfahrensanleitungGestellungSumAToolStripMenuItem1, Me.ToolStripSeparator21, Me.WOCECKLISTEAbgangVerwahrungsortZVToolStripMenuItem, Me.WOCECKLISTEZEWDHToolStripMenuItem})
Me.ChecklistenToolStripMenuItem.Name = "ChecklistenToolStripMenuItem"
Me.ChecklistenToolStripMenuItem.Size = New System.Drawing.Size(193, 22)
Me.ChecklistenToolStripMenuItem.Text = "Checklisten"
@@ -1352,21 +1367,55 @@ Partial Class frmHauptfenster
'ChecklisteWOCHECKLISTEZEallgemein
'
Me.ChecklisteWOCHECKLISTEZEallgemein.Name = "ChecklisteWOCHECKLISTEZEallgemein"
Me.ChecklisteWOCHECKLISTEZEallgemein.Size = New System.Drawing.Size(311, 22)
Me.ChecklisteWOCHECKLISTEZEallgemein.Text = "WO CHECKLISTE ZE allgemein"
Me.ChecklisteWOCHECKLISTEZEallgemein.Size = New System.Drawing.Size(381, 22)
Me.ChecklisteWOCHECKLISTEZEallgemein.Text = "ZE WO CHECKLISTE ZE allgemein"
'
'WOCECKLISTEZEWDHToolStripMenuItem
'ZEVerfahrensanleitungGestellungSumAToolStripMenuItem
'
Me.WOCECKLISTEZEWDHToolStripMenuItem.Name = "WOCECKLISTEZEWDHToolStripMenuItem"
Me.WOCECKLISTEZEWDHToolStripMenuItem.Size = New System.Drawing.Size(311, 22)
Me.WOCECKLISTEZEWDHToolStripMenuItem.Text = "WO CHECKLISTE ZE WDH"
Me.ZEVerfahrensanleitungGestellungSumAToolStripMenuItem.Name = "ZEVerfahrensanleitungGestellungSumAToolStripMenuItem"
Me.ZEVerfahrensanleitungGestellungSumAToolStripMenuItem.Size = New System.Drawing.Size(381, 22)
Me.ZEVerfahrensanleitungGestellungSumAToolStripMenuItem.Text = "ZE Verfahrensanleitung Gestellung/SumA"
'
'ZEVerfahrensanleitungGestellungSumAFremdpersonalToolStripMenuItem
'
Me.ZEVerfahrensanleitungGestellungSumAFremdpersonalToolStripMenuItem.Name = "ZEVerfahrensanleitungGestellungSumAFremdpersonalToolStripMenuItem"
Me.ZEVerfahrensanleitungGestellungSumAFremdpersonalToolStripMenuItem.Size = New System.Drawing.Size(381, 22)
Me.ZEVerfahrensanleitungGestellungSumAFremdpersonalToolStripMenuItem.Text = "ZE Verfahrensanleitung Gestellung/SumA - Fremdpersonal"
'
'ToolStripSeparator22
'
Me.ToolStripSeparator22.Name = "ToolStripSeparator22"
Me.ToolStripSeparator22.Size = New System.Drawing.Size(378, 6)
'
'WOCHECKLISTEZVAllgemeinToolStripMenuItem
'
Me.WOCHECKLISTEZVAllgemeinToolStripMenuItem.Name = "WOCHECKLISTEZVAllgemeinToolStripMenuItem"
Me.WOCHECKLISTEZVAllgemeinToolStripMenuItem.Size = New System.Drawing.Size(381, 22)
Me.WOCHECKLISTEZVAllgemeinToolStripMenuItem.Text = "ZV WO CHECKLISTE ZV allgemein"
'
'ZEVerfahrensanleitungGestellungSumAToolStripMenuItem1
'
Me.ZEVerfahrensanleitungGestellungSumAToolStripMenuItem1.Name = "ZEVerfahrensanleitungGestellungSumAToolStripMenuItem1"
Me.ZEVerfahrensanleitungGestellungSumAToolStripMenuItem1.Size = New System.Drawing.Size(381, 22)
Me.ZEVerfahrensanleitungGestellungSumAToolStripMenuItem1.Text = "ZV Verfahrensanleitung"
'
'ToolStripSeparator21
'
Me.ToolStripSeparator21.Name = "ToolStripSeparator21"
Me.ToolStripSeparator21.Size = New System.Drawing.Size(378, 6)
'
'WOCECKLISTEAbgangVerwahrungsortZVToolStripMenuItem
'
Me.WOCECKLISTEAbgangVerwahrungsortZVToolStripMenuItem.Name = "WOCECKLISTEAbgangVerwahrungsortZVToolStripMenuItem"
Me.WOCECKLISTEAbgangVerwahrungsortZVToolStripMenuItem.Size = New System.Drawing.Size(311, 22)
Me.WOCECKLISTEAbgangVerwahrungsortZVToolStripMenuItem.Size = New System.Drawing.Size(381, 22)
Me.WOCECKLISTEAbgangVerwahrungsortZVToolStripMenuItem.Text = "WO CHECKLISTE Abgang Verwahrungsort ZV"
'
'WOCECKLISTEZEWDHToolStripMenuItem
'
Me.WOCECKLISTEZEWDHToolStripMenuItem.Name = "WOCECKLISTEZEWDHToolStripMenuItem"
Me.WOCECKLISTEZEWDHToolStripMenuItem.Size = New System.Drawing.Size(381, 22)
Me.WOCECKLISTEZEWDHToolStripMenuItem.Text = "WO CHECKLISTE ZE WDH"
'
'HandbuchToolStripMenuItem
'
Me.HandbuchToolStripMenuItem.Name = "HandbuchToolStripMenuItem"
@@ -1915,7 +1964,7 @@ Partial Class frmHauptfenster
Me.SplitContainer2.Panel2.Controls.Add(Me.SplitContainer3)
Me.SplitContainer2.Panel2MinSize = 650
Me.SplitContainer2.Size = New System.Drawing.Size(884, 300)
Me.SplitContainer2.SplitterDistance = 231
Me.SplitContainer2.SplitterDistance = 233
Me.SplitContainer2.SplitterWidth = 1
Me.SplitContainer2.TabIndex = 0
'
@@ -1932,7 +1981,7 @@ Partial Class frmHauptfenster
Me.pnlLinks.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnlLinks.Location = New System.Drawing.Point(0, 86)
Me.pnlLinks.Name = "pnlLinks"
Me.pnlLinks.Size = New System.Drawing.Size(231, 214)
Me.pnlLinks.Size = New System.Drawing.Size(233, 214)
Me.pnlLinks.TabIndex = 0
'
'lblFimaAviso
@@ -1957,7 +2006,7 @@ Partial Class frmHauptfenster
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel2.Location = New System.Drawing.Point(0, 0)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(231, 111)
Me.Panel2.Size = New System.Drawing.Size(233, 111)
Me.Panel2.TabIndex = 10
'
'Label7
@@ -1979,7 +2028,7 @@ Partial Class frmHauptfenster
Me.lblErrVermerk.ForeColor = System.Drawing.Color.Red
Me.lblErrVermerk.Location = New System.Drawing.Point(12, 158)
Me.lblErrVermerk.Name = "lblErrVermerk"
Me.lblErrVermerk.Size = New System.Drawing.Size(205, 27)
Me.lblErrVermerk.Size = New System.Drawing.Size(207, 27)
Me.lblErrVermerk.TabIndex = 1
Me.lblErrVermerk.Text = "Bei diesem Status kann kein Vermerk erfasst werden!"
Me.lblErrVermerk.TextAlign = System.Drawing.ContentAlignment.BottomLeft
@@ -2054,7 +2103,7 @@ Partial Class frmHauptfenster
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(231, 86)
Me.pnlLinksOben.Size = New System.Drawing.Size(233, 86)
Me.pnlLinksOben.TabIndex = 1
'
'Label22
@@ -2129,10 +2178,19 @@ Partial Class frmHauptfenster
'SplitContainer3.Panel2
'
Me.SplitContainer3.Panel2.Controls.Add(Me.pnl)
Me.SplitContainer3.Size = New System.Drawing.Size(652, 300)
Me.SplitContainer3.SplitterDistance = 162
Me.SplitContainer3.Size = New System.Drawing.Size(650, 300)
Me.SplitContainer3.SplitterDistance = 161
Me.SplitContainer3.TabIndex = 3
'
'UsrCntlBenachrichtigungen1
'
Me.UsrCntlBenachrichtigungen1.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrCntlBenachrichtigungen1.Location = New System.Drawing.Point(0, 0)
Me.UsrCntlBenachrichtigungen1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.UsrCntlBenachrichtigungen1.Name = "UsrCntlBenachrichtigungen1"
Me.UsrCntlBenachrichtigungen1.Size = New System.Drawing.Size(161, 300)
Me.UsrCntlBenachrichtigungen1.TabIndex = 0
'
'pnl
'
Me.pnl.Controls.Add(Me.Button10)
@@ -2141,7 +2199,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(486, 300)
Me.pnl.Size = New System.Drawing.Size(485, 300)
Me.pnl.TabIndex = 0
'
'Button10
@@ -2175,7 +2233,7 @@ Partial Class frmHauptfenster
Me.gridMyAviso.ReadOnly = True
Me.gridMyAviso.RowHeadersVisible = False
Me.gridMyAviso.RowHeadersWidth = 62
Me.gridMyAviso.Size = New System.Drawing.Size(486, 277)
Me.gridMyAviso.Size = New System.Drawing.Size(485, 277)
Me.gridMyAviso.TabIndex = 0
'
'Panel6
@@ -2193,7 +2251,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(486, 21)
Me.Panel6.Size = New System.Drawing.Size(485, 21)
Me.Panel6.TabIndex = 1
'
'lblMeineAviso
@@ -2219,7 +2277,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(167, 1)
Me.cboMy_Grenzstelle.Location = New System.Drawing.Point(166, 1)
Me.cboMy_Grenzstelle.Name = "cboMy_Grenzstelle"
Me.cboMy_Grenzstelle.Size = New System.Drawing.Size(64, 21)
Me.cboMy_Grenzstelle.TabIndex = 26
@@ -2229,7 +2287,7 @@ Partial Class frmHauptfenster
Me.Label18.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label18.AutoSize = True
Me.Label18.ForeColor = System.Drawing.Color.White
Me.Label18.Location = New System.Drawing.Point(99, 4)
Me.Label18.Location = New System.Drawing.Point(98, 4)
Me.Label18.Name = "Label18"
Me.Label18.Size = New System.Drawing.Size(62, 13)
Me.Label18.TabIndex = 25
@@ -2240,7 +2298,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(43, 3)
Me.cbx_My_LKW.Location = New System.Drawing.Point(42, 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
@@ -2254,7 +2312,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(429, 3)
Me.cboMy_QS.Location = New System.Drawing.Point(428, 3)
Me.cboMy_QS.Name = "cboMy_QS"
Me.cboMy_QS.Size = New System.Drawing.Size(15, 14)
Me.cboMy_QS.TabIndex = 23
@@ -2268,7 +2326,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(450, 3)
Me.cboMy_VB.Location = New System.Drawing.Point(449, 3)
Me.cboMy_VB.Name = "cboMy_VB"
Me.cboMy_VB.Size = New System.Drawing.Size(15, 14)
Me.cboMy_VB.TabIndex = 22
@@ -2286,7 +2344,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(286, 1)
Me.cboMyAvisoAnzeige.Location = New System.Drawing.Point(285, 1)
Me.cboMyAvisoAnzeige.Name = "cboMyAvisoAnzeige"
Me.cboMyAvisoAnzeige.Size = New System.Drawing.Size(127, 21)
Me.cboMyAvisoAnzeige.TabIndex = 21
@@ -2296,7 +2354,7 @@ Partial Class frmHauptfenster
Me.Label17.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label17.AutoSize = True
Me.Label17.ForeColor = System.Drawing.Color.White
Me.Label17.Location = New System.Drawing.Point(237, 3)
Me.Label17.Location = New System.Drawing.Point(236, 3)
Me.Label17.Name = "Label17"
Me.Label17.Size = New System.Drawing.Size(48, 13)
Me.Label17.TabIndex = 20
@@ -2306,7 +2364,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(815, 6)
Me.lblAkte.Location = New System.Drawing.Point(814, 6)
Me.lblAkte.Name = "lblAkte"
Me.lblAkte.Size = New System.Drawing.Size(207, 19)
Me.lblAkte.TabIndex = 1
@@ -2341,7 +2399,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(145, 0)
Me.tabVorgeschrieben.Size = New System.Drawing.Size(876, 0)
Me.tabVorgeschrieben.TabIndex = 3
Me.tabVorgeschrieben.Text = "3.Vorgeschrieben"
'
@@ -2352,7 +2410,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(145, 0)
Me.tabFreigegeben.Size = New System.Drawing.Size(876, 0)
Me.tabFreigegeben.TabIndex = 5
Me.tabFreigegeben.Text = "5. Freigegeben"
'
@@ -2363,7 +2421,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(145, 0)
Me.tabNichtEingetroffen.Size = New System.Drawing.Size(876, 0)
Me.tabNichtEingetroffen.TabIndex = 6
Me.tabNichtEingetroffen.Text = "Nicht eingetroffen"
'
@@ -2374,7 +2432,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(145, 0)
Me.tabAnkunft.Size = New System.Drawing.Size(876, 0)
Me.tabAnkunft.TabIndex = 4
Me.tabAnkunft.Text = "4. Ankunft"
'
@@ -2385,7 +2443,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(145, 0)
Me.tabVorbereitet.Size = New System.Drawing.Size(876, 0)
Me.tabVorbereitet.TabIndex = 2
Me.tabVorbereitet.Text = "2.Vorbereitet QS"
'
@@ -2438,7 +2496,7 @@ 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(217, 0)
Me.tabAlle.Size = New System.Drawing.Size(876, 0)
Me.tabAlle.TabIndex = 0
Me.tabAlle.Text = "Alle"
'
@@ -3191,14 +3249,11 @@ Partial Class frmHauptfenster
Me.UsrCntlTestsystem1.Size = New System.Drawing.Size(152, 28)
Me.UsrCntlTestsystem1.TabIndex = 8
'
'UsrCntlBenachrichtigungen1
'AlleStatusMailsSchickenToolStripMenuItem
'
Me.UsrCntlBenachrichtigungen1.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrCntlBenachrichtigungen1.Location = New System.Drawing.Point(0, 0)
Me.UsrCntlBenachrichtigungen1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.UsrCntlBenachrichtigungen1.Name = "UsrCntlBenachrichtigungen1"
Me.UsrCntlBenachrichtigungen1.Size = New System.Drawing.Size(162, 300)
Me.UsrCntlBenachrichtigungen1.TabIndex = 0
Me.AlleStatusMailsSchickenToolStripMenuItem.Name = "AlleStatusMailsSchickenToolStripMenuItem"
Me.AlleStatusMailsSchickenToolStripMenuItem.Size = New System.Drawing.Size(209, 22)
Me.AlleStatusMailsSchickenToolStripMenuItem.Text = "Alle Status Mails schicken"
'
'frmHauptfenster
'
@@ -3573,4 +3628,12 @@ Partial Class frmHauptfenster
Friend WithEvents cntxtAtilla As ContextMenuStrip
Friend WithEvents ToolStripMenuItem17 As ToolStripMenuItem
Friend WithEvents lblFimaAviso As Label
Friend WithEvents GVMSToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ZEVerfahrensanleitungGestellungSumAToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ZEVerfahrensanleitungGestellungSumAFremdpersonalToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ToolStripSeparator22 As ToolStripSeparator
Friend WithEvents WOCHECKLISTEZVAllgemeinToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ZEVerfahrensanleitungGestellungSumAToolStripMenuItem1 As ToolStripMenuItem
Friend WithEvents ToolStripSeparator21 As ToolStripSeparator
Friend WithEvents AlleStatusMailsSchickenToolStripMenuItem As ToolStripMenuItem
End Class

492
Aviso/frmHauptfenster.vb
View File

@@ -62,8 +62,8 @@ Public Class frmHauptfenster
End Sub
Private Sub frmMain_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles MyBase.FormClosed
VERAG_PROG_ALLGEMEIN.cAllgemein.SESSION.LOGOUT()
If Not closeOK Then
VERAG_PROG_ALLGEMEIN.cAllgemein.SESSION.LOGOUT()
My.Settings.frmMainSize = Me.Size
My.Settings.frmMainPosition = Me.Location
My.Settings.Save()
@@ -180,7 +180,7 @@ Public Class frmHauptfenster
UpdateUpdater.Interval = 5000
UpdateUpdater.Enabled = True
lblVersion.Text = "V " & My.Resources.Version
lblVersion.Text = "V " & Application.ProductVersion 'My.Resources.Version2
UpdateSession.Interval = 60000
UpdateSession.Enabled = True
@@ -1775,8 +1775,9 @@ Public Class frmHauptfenster
Private Declare Function GetActiveWindow Lib "user32" Alias "GetActiveWindow" () As IntPtr
Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
If frmLogin.AnmeldungOK Then
Try
Try
If DateDiff(DateInterval.Second, hMerkZeit, Now) > 60 Then
avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) 'hMerkZeit wird in aviso_anzeigen aktualisiert
UsrCntlBenachrichtigungen1.initDgvAvisoBenachrichtigungen(Grid_aktiv, gridFont)
@@ -1786,28 +1787,29 @@ Public Class frmHauptfenster
End Try
If False Then 'NUR AKTUALISIEREN; WENN FENSTER AKTIV --> bei 2. Monitor PROBLEM
Try
If GetActiveWindow = Me.Handle Then
If False Then 'NUR AKTUALISIEREN; WENN FENSTER AKTIV --> bei 2. Monitor PROBLEM
Try
If GetActiveWindow = Me.Handle Then
If DateDiff(DateInterval.Second, hMerkZeit, Now) > 60 Then
' System.Threading.Thread.Sleep(1000) '? warum??
avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) 'hMerkZeit wird in aviso_anzeigen aktualisiert
UsrCntlBenachrichtigungen1.initDgvAvisoBenachrichtigungen(Grid_aktiv, gridFont)
If DateDiff(DateInterval.Second, hMerkZeit, Now) > 60 Then
' System.Threading.Thread.Sleep(1000) '? warum??
avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) 'hMerkZeit wird in aviso_anzeigen aktualisiert
UsrCntlBenachrichtigungen1.initDgvAvisoBenachrichtigungen(Grid_aktiv, gridFont)
End If
Else
hMerkZeit = hMerkZeit.AddSeconds(-60) 'Somit wird beid er nächste Aktiveierung aktualisiert
If DateDiff(DateInterval.Second, hMerkZeit2, Now) > 10 Then
gridAviso.RELOAD()
GridZeichnenAviso()
initDauerLKWFertig()
hMerkZeit2 = Now
End If
End If
Else
hMerkZeit = hMerkZeit.AddSeconds(-60) 'Somit wird beid er nächste Aktiveierung aktualisiert
If DateDiff(DateInterval.Second, hMerkZeit2, Now) > 10 Then
gridAviso.RELOAD()
GridZeichnenAviso()
initDauerLKWFertig()
hMerkZeit2 = Now
End If
End If
Catch ex As Exception
Catch ex As Exception
End Try
End Try
End If
End If
End Sub
@@ -2565,6 +2567,15 @@ Public Class frmHauptfenster
End Function
Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles Button3.Click
'Dim sms As New VERAG_PROG_ALLGEMEIN.cSMS
'sms.sms_Handynummer = "00436644178557"
'sms.sms_Nachricht = "Das ist ein TEST"
'sms.sms_Firma = "FRONTOFFICE"
'sms.sms_Account = "EX0252513"
'sms.sendWhatsApp(sms.sms_Firma)
'Exit Sub
cHMRC.hmrcTEST()
Exit Sub
@@ -2581,7 +2592,7 @@ Public Class frmHauptfenster
Dim mailTo = "al@verag.ag"
Dim betreff = "Betreff - TESTMAIL"
Dim htmlBody = "E-Mail Body <b> HTML </b>"
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(mailTo, betreff, htmlBody, , False, False)
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(mailTo, betreff, htmlBody, , False, False, ,,, 2)
Exit Sub
Exit Sub
@@ -3006,7 +3017,8 @@ Public Class frmHauptfenster
Private Sub TimerUPDATE_Tick(sender As Object, e As EventArgs) Handles TimerUPDATE.Tick
Dim cADMIN As New cADMIN
If CInt(cADMIN.getAktuelleVersion().Replace(".", "")) > CInt(My.Resources.Version.Replace(".", "")) Then
' If CInt(cADMIN.getAktuelleVersion().Replace(".", "")) > CInt(My.Resources.Version2.Replace(".", "")) Then
If CInt(cADMIN.getAktuelleVersion().Replace(".", "")) > CInt(Application.ProductVersion.Replace(".", "")) Then
Label9.Visible = True
End If
End Sub
@@ -3190,7 +3202,7 @@ Public Class frmHauptfenster
End Sub
Private Sub EMAILTESTToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EMAILTESTToolStripMenuItem.Click
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("luxbauer@gmail.com", "TESTMAIL", "TESTMAIL", , False, True)
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("luxbauer@gmail.com", "TESTMAIL", "TESTMAIL",, False, True, ,,, 2)
End Sub
@@ -3560,35 +3572,38 @@ Public Class frmHauptfenster
Exit Sub
End If
Try
If frmLogin.AnmeldungOK Then
' newNotify(frmNotify.cNotify_ART.NEUER_CHAT, 0, "XXX Chat-Nachricht!", -1) 'TEST
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_ChatBenutzer And picAVISOMessenger.Visible Then
Dim newMsg = VERAG_PROG_ALLGEMEIN.cMessenger.GET_NewMSG_COUNT()
Label20.Text = newMsg
Label20.Visible = (newMsg > 0)
If newMsg Then
Me.Icon = My.Resources.avisoNewMsg
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_ChatBenutzer And picAVISOMessenger.Visible Then
Dim newMsg = VERAG_PROG_ALLGEMEIN.cMessenger.GET_NewMSG_COUNT()
Label20.Text = newMsg
Label20.Visible = (newMsg > 0)
If newMsg Then
Me.Icon = My.Resources.avisoNewMsg
Dim isshown = False
For Each openForm In Application.OpenForms()
If TypeOf (openForm) Is frmNotify Then
isshown = True
End If
Next
Dim isInFront = False
For Each openForm In Application.OpenForms()
If TypeOf (openForm) Is VERAG_PROG_ALLGEMEIN.frmMessenger Then
' If DirectCast(openForm, VERAG_PROG_ALLGEMEIN.frmMessenger).Focused Then
If GetActiveWindow = DirectCast(openForm, VERAG_PROG_ALLGEMEIN.frmMessenger).Handle Then
isInFront = True
Dim isshown = False
For Each openForm In Application.OpenForms()
If TypeOf (openForm) Is frmNotify Then
isshown = True
End If
End If
Next
If Not isshown And Not isInFront Then newNotify(frmNotify.cNotify_ART.NEUER_CHAT, 0, "Neue Chat-Nachricht!", -1)
Else
Me.Icon = My.Resources.Aviso
Next
Dim isInFront = False
For Each openForm In Application.OpenForms()
If TypeOf (openForm) Is VERAG_PROG_ALLGEMEIN.frmMessenger Then
' If DirectCast(openForm, VERAG_PROG_ALLGEMEIN.frmMessenger).Focused Then
If GetActiveWindow = DirectCast(openForm, VERAG_PROG_ALLGEMEIN.frmMessenger).Handle Then
isInFront = True
End If
End If
Next
If Not isshown And Not isInFront Then newNotify(frmNotify.cNotify_ART.NEUER_CHAT, 0, "Neue Chat-Nachricht!", -1)
Else
Me.Icon = My.Resources.Aviso
End If
If Label20.Visible Then Label20.BringToFront()
End If
If Label20.Visible Then Label20.BringToFront()
End If
Catch ex As Exception
@@ -3816,7 +3831,45 @@ Public Class frmHauptfenster
ToolStripMenuItem17.Visible = (VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX")
End Sub
Private Sub GVMSToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles GVMSToolStripMenuItem.Click
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", "AVISO") Then
Dim f As New frmGVMS
f.Show()
Else
MsgBox("Noch nicht verfügbar")
End If
End Sub
Private Sub ZEVerfahrensanleitungGestellungSumAToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZEVerfahrensanleitungGestellungSumAToolStripMenuItem.Click
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "ZE_Verfahrensanleitung")
DS.OPEN_SINGLE()
End Sub
Private Sub ZEVerfahrensanleitungGestellungSumAFremdpersonalToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZEVerfahrensanleitungGestellungSumAFremdpersonalToolStripMenuItem.Click
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "ZE_Verfahrensanleitung_Fremdpersonal")
DS.OPEN_SINGLE()
End Sub
Private Sub WOCHECKLISTEZVAllgemeinToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles WOCHECKLISTEZVAllgemeinToolStripMenuItem.Click
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "ZV_Checkliste")
DS.OPEN_SINGLE()
End Sub
Private Sub ZEVerfahrensanleitungGestellungSumAToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ZEVerfahrensanleitungGestellungSumAToolStripMenuItem1.Click
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "ZV_Verfahrensanleitung")
DS.OPEN_SINGLE()
End Sub
Private Sub AlleStatusMailsSchickenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AlleStatusMailsSchickenToolStripMenuItem.Click
Dim dt = VERAGSQL.loadDgvBySql("SELECT [AvisoID] FROM [AVISO].[dbo].[Aviso] where datum >= '05.03.2022'
and Firma IN ('VERAG','IMEX') and (SELECT COUNT(*) FROM Vermerke where Vermerke.AvisoID=aviso.AvisoID and Hinweis_Vermerk LIKE 'Status E-Mail gesendet an:%') =0 and status NOT IN (1,2)", "AVISO")
For Each r In dt.Rows
'MsgBox("SO: " & (r("AvisoID")))
Dim AVISO = AvisoDAL.LesenAviso(r("AvisoID"), "")
AvisoStatusFunctions.SendStatusEmail(AVISO)
Next
End Sub
End Class
Public Class AvisoStatusFunctions
@@ -4003,7 +4056,7 @@ Public Class AvisoStatusFunctions
End Function
Shared Sub SendAnkunftEmail(AVISO As cAviso)
Shared Sub SendAnkunftEmail(AVISO As cAviso, Optional ForceMail As String = "")
Dim AvisoDAL As New cAvisoDAL
Dim art = 1
If AVISO.ImEx = "EXPORT" Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then art = 3
@@ -4020,12 +4073,11 @@ Public Class AvisoStatusFunctions
VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.eMails_einlesen(AVISO.Auftraggeber_KdNr, art, EMails, EMails_CC, EMails_BCC, Emails_list_sent)
Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, AVISO.Auftraggeber_KdNr)
Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, AVISO.Auftraggeber_KdNr, ForceMail)
'Frächter und Avisierer werden getrennt voneinander eingelesen, damit es kein Problem mit gesendeten VBD/Steuerbescheiden gibt!
If AVISO.Frächter_KdNr <> AVISO.Auftraggeber_KdNr Then
VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.eMails_einlesen(AVISO.Frächter_KdNr, art, EMails, EMails_CC, EMails_BCC, Emails_list_sent)
Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, AVISO.Frächter_KdNr)
Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, AVISO.Frächter_KdNr, ForceMail)
End If
Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
@@ -4034,14 +4086,14 @@ Public Class AvisoStatusFunctions
Next
For Each s In SENDUNG_LIST
VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.eMails_einlesen(s.tblSnd_EmpfaengerKdNr, art, EMails, EMails_CC, EMails_BCC, Emails_list_sent)
Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, s.tblSnd_EmpfaengerKdNr)
Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, s.tblSnd_EmpfaengerKdNr, ForceMail)
VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.eMails_einlesen(s.tblSnd_AuftraggeberKdNr, art, EMails, EMails_CC, EMails_BCC, Emails_list_sent)
Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, s.tblSnd_AuftraggeberKdNr)
Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, s.tblSnd_AuftraggeberKdNr, ForceMail)
VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.eMails_einlesen(s.tblSnd_FrachtfuehrerKdNr, art, EMails, EMails_CC, EMails_BCC, Emails_list_sent)
Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, s.tblSnd_FrachtfuehrerKdNr)
Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, s.tblSnd_FrachtfuehrerKdNr, ForceMail)
VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.eMails_einlesen(s.tblSnd_AvisiererKdNr, art, EMails, EMails_CC, EMails_BCC, Emails_list_sent)
Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, s.tblSnd_AvisiererKdNr)
Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, s.tblSnd_AvisiererKdNr, ForceMail)
Next
End Select
@@ -4076,6 +4128,7 @@ Public Class AvisoStatusFunctions
Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, AVISO.Frächter_KdNr, ForceMail)
End If
Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
For Each r In AvisoDAL.loadDataTableBySQL("SELECT tblSnd_SendungID FROM tblSendungen WHERE tblSnd_AvisoID=" & AVISO.AvisoID).Rows
SENDUNG_LIST.Add(New VERAG_PROG_ALLGEMEIN.cSendungen(r("tblSnd_SendungID")))
@@ -4096,11 +4149,61 @@ Public Class AvisoStatusFunctions
End Sub
Shared Sub SendStatusEmail(AVISO As cAviso, Optional ForceMail As String = "")
Dim AvisoDAL As New cAvisoDAL
Dim art = 5
' If AVISO.ImEx = "EXPORT" Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then art = 4
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "ATILLA"
'NED!
'Case "VERAG", "IMEX"
Case "VERAG", "IMEX"
'Mail-Adressen aus Firmentabelle holen
Dim EMails As String = ""
Dim EMails_CC As String = ""
Dim EMails_BCC As String = ""
Dim Emails_list_sent As New VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList
VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.eMails_einlesen(AVISO.Auftraggeber_KdNr, art, EMails, EMails_CC, EMails_BCC, Emails_list_sent)
Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, AVISO.Auftraggeber_KdNr, ForceMail)
'Frächter und Avisierer werden getrennt voneinander eingelesen, damit es kein Problem mit gesendeten VBD/Steuerbescheiden gibt!
If AVISO.Frächter_KdNr <> AVISO.Auftraggeber_KdNr Then
VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.eMails_einlesen(AVISO.Frächter_KdNr, art, EMails, EMails_CC, EMails_BCC, Emails_list_sent)
Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, AVISO.Frächter_KdNr, ForceMail)
End If
Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
For Each r In AvisoDAL.loadDataTableBySQL("SELECT tblSnd_SendungID FROM tblSendungen WHERE tblSnd_AvisoID=" & AVISO.AvisoID).Rows
SENDUNG_LIST.Add(New VERAG_PROG_ALLGEMEIN.cSendungen(r("tblSnd_SendungID")))
Next
For Each s In SENDUNG_LIST
VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.eMails_einlesen(s.tblSnd_EmpfaengerKdNr, art, EMails, EMails_CC, EMails_BCC, Emails_list_sent)
Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, s.tblSnd_EmpfaengerKdNr, ForceMail)
VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.eMails_einlesen(s.tblSnd_AuftraggeberKdNr, art, EMails, EMails_CC, EMails_BCC, Emails_list_sent)
Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, s.tblSnd_AuftraggeberKdNr, ForceMail)
VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.eMails_einlesen(s.tblSnd_FrachtfuehrerKdNr, art, EMails, EMails_CC, EMails_BCC, Emails_list_sent)
Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, s.tblSnd_FrachtfuehrerKdNr, ForceMail)
VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.eMails_einlesen(s.tblSnd_AvisiererKdNr, art, EMails, EMails_CC, EMails_BCC, Emails_list_sent)
Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, s.tblSnd_AvisiererKdNr, ForceMail)
Next
End Select
End Sub
Shared Sub Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, KundenNr, Optional ForceMail = "")
'art = 1 : Ankunft
'art = 2 : Freigabe
'art = 3 : Ankunft Export
'art = 4 : Freigabe Export
'art = 5 : Status
If KundenNr Is Nothing OrElse Not IsNumeric(KundenNr) Then Exit Sub
If KundenNr <= 0 Then Exit Sub
@@ -4111,17 +4214,47 @@ Public Class AvisoStatusFunctions
Exit Sub ' Keine Freigabe-Mail, wenn "BELEG" bei Freigabe gewählt wurde --> Der STB wird indem Fall pro Beleg geschickt.
End If
End If
If art = 4 Then ' Freigabe Export
'Dim KUNDE As New VERAG_PROG_ALLGEMEIN.cKunde(KundenNr)
Dim KUNDE_ERW As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(KundenNr)
If KUNDE_ERW.EmailFreigabe_Export And KUNDE_ERW.EmailFreigabe_Export_Art = "BLG" Then
Exit Sub ' Keine Freigabe-Mail, wenn "BELEG" bei Freigabe gewählt wurde --> Der STB wird indem Fall pro Beleg geschickt.
End If
End If
Dim Standorte As New cStandorteDAL
'nur Mail erstellen, falls mindestens ein Empfänger vorhanden
If EMails <> "" Or EMails_CC <> "" Or EMails_BCC <> "" Then
Dim hBetreff As String = If(art = 1 Or art = 3, VERAG_PROG_ALLGEMEIN.cGlobal.Optionen.eMail_Ankunft_Betreff, VERAG_PROG_ALLGEMEIN.cGlobal.Optionen.eMail_Freigabe_Betreff)
Dim hBody As String = If(art = 1 Or art = 3, VERAG_PROG_ALLGEMEIN.cGlobal.Optionen.eMail_Ankunft_Text, VERAG_PROG_ALLGEMEIN.cGlobal.Optionen.eMail_Freigabe_Text)
Select Case art 'DEFAULT!!
Case 1, 3
hBetreff = VERAG_PROG_ALLGEMEIN.cGlobal.Optionen.eMail_Ankunft_Betreff
hBody = VERAG_PROG_ALLGEMEIN.cGlobal.Optionen.eMail_Ankunft_Text
Case 2, 4
hBetreff = VERAG_PROG_ALLGEMEIN.cGlobal.Optionen.eMail_Freigabe_Betreff
hBody = VERAG_PROG_ALLGEMEIN.cGlobal.Optionen.eMail_Freigabe_Text
Case 5
hBetreff = VERAG_PROG_ALLGEMEIN.cGlobal.Optionen.eMail_Status_Betreff
hBody = VERAG_PROG_ALLGEMEIN.cGlobal.Optionen.eMail_Status_Text
End Select
'jetzt nachsehen, ob indiv. eMail-Text für Standort vorhanden
Dim GrenzstelleMail = AVISO.Grenzstelle.replace("?", "")
If GrenzstelleMail = "" Then GrenzstelleMail = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
GrenzstelleMail = GrenzstelleMail.replace("WO_GE", "") 'KEINE MAIL
GrenzstelleMail = GrenzstelleMail.replace("WO_KITA", "") 'KEINE MAIL
If GrenzstelleMail = "" And art <> 5 Then
'----------------------------------------
Exit Sub ' Wenn Grenzstelle leer / ??? --> Keine MAIL!
'If GrenzstelleMail = "" Then GrenzstelleMail = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
End If
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" Then GrenzstelleMail = "FO"
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED" Then GrenzstelleMail = "UNI"
@@ -4143,8 +4276,14 @@ Public Class AvisoStatusFunctions
hBetreff = Standort.eMail_Freigabe_Betreff
hBody = Standort.eMail_Freigabe_Text
End If
Case 5
If Standort.eMail_Status_Betreff <> "" Then
hBetreff = Standort.eMail_Status_Betreff
hBody = Standort.eMail_Status_Text
End If
End Select
End If
End If
Dim anhaenge As New List(Of String)
@@ -4162,6 +4301,16 @@ Public Class AvisoStatusFunctions
' hBody = hBody.Replace("VERAG", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA) 'hier der Ersatz
'End Select
Dim API = VERAG_PROG_ALLGEMEIN.cAPI.INSERT_API(VERAG_PROG_ALLGEMEIN.cAPI_INOUT.OUT, VERAG_PROG_ALLGEMEIN.cAPI_Type.MAIL, VERAG_PROG_ALLGEMEIN.cAPI_ART.AVISO_OUT_STATUSMAIL, art,,, KundenNr, AVISO.AvisoId)
API.api_EMail = EMails
API.api_EMailCC = EMails_CC
API.api_EMailBCC = EMails_BCC
API.api_EMailSubject = hBetreff
API.api_EMailText = hBody
API.api_EMailAttCnt = anhaenge.Count
If ForceMail <> "" Then
Dim mailsTXT = ""
mailsTXT &= "TO: " & EMails & "<br>"
@@ -4169,21 +4318,35 @@ Public Class AvisoStatusFunctions
mailsTXT &= "BCC: " & EMails_BCC & "<br><br>"
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(ForceMail, hBetreff, mailsTXT & hBody, VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.getAbsenderEmail(), False, False, "", "", anhaenge)
If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(ForceMail, hBetreff, mailsTXT & hBody, VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.getAbsenderEmail(), False, False, "", "", anhaenge, art) Then
API.UPDTAE_OK()
Else
API.UPDTAE_ERR()
End If
Else
EMails_BCC &= If(EMails_BCC <> "", ";", "") & VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.getAbsenderEmail() 'Damit Mails gespeichert werden.
If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, hBetreff, hBody, VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.getAbsenderEmail(), False, False, EMails_CC, EMails_BCC, anhaenge) Then
Dim MailArt = ""
Select Case art
Case 1, 3 : MailArt = "Ankunft"
Case 2, 4 : MailArt = "Freigabe"
Case 5 : MailArt = "Status"
End Select
If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, hBetreff, hBody, VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.getAbsenderEmail(), False, False, EMails_CC, EMails_BCC, anhaenge, art) Then
API.UPDTAE_OK()
Dim txt = " E-Mail gesendet an: " & EMails
If EMails_CC.ToString.Trim <> "" Then txt &= " CC: " & EMails_CC
If EMails_BCC.ToString.Trim <> "" Then txt &= " BCC: " & EMails_BCC
AvisoStatusFunctions.insertVermerkAllg(AVISO.AvisoId, If(art = 1 Or art = 3, "Ankunft", "Freigabe") & txt, 46, , "(AUTO)")
AvisoStatusFunctions.insertVermerkAllg(AVISO.AvisoId, MailArt & txt, 46, , "(AUTO)")
Else
AvisoStatusFunctions.insertVermerkAllg(AVISO.AvisoId, "ERR: " & If(art = 1 Or art = 3, "Ankunft", "Freigabe") & " E-Mail konnte nicht gesendet werden!", 46, , "(AUTO)")
API.UPDTAE_ERR()
AvisoStatusFunctions.insertVermerkAllg(AVISO.AvisoId, "ERR: " & MailArt & " E-Mail konnte nicht gesendet werden!", 46, , "(AUTO)")
End If
End If
@@ -4869,8 +5032,6 @@ Public Class AvisoStatusFunctions
SendFreigabeEmail(Aviso)
If True Then
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AUTONACHERFASSUNG", CONTROL.FindForm) Then
@@ -5279,10 +5440,16 @@ Public Class AvisoStatusFunctions
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId IsNot Nothing Then SENDUNG_TMP.tblSnd_TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
SENDUNG_TMP.tblSnd_Vorgeschrieben = Now 'SENDUNG_TMP.tblSnd_Status=VERAG_PROG_ALLGEMEIN.vor ' Status macht keinen Sinn..
AvisoDAL.addAenderung(AvisoID, "Sendung auf VORGESCHRIEBEN gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf VORGESCHRIEBEN gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kreditlimit_Check_SND_Vorgeschrieben", "AVISO") Then
frmSendungsdetailsNEU.checkKreditlimit_ID(frmHauptfenster, AvisoID, SendungsId, True, False) 'NOCH NICHT..
End If
Else
SENDUNG_TMP.tblSnd_Vorgeschrieben = Nothing
AvisoDAL.addAenderung(AvisoID, "Sendung auf NICHT VORGESCHRIEBEN gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf NICHT VORGESCHRIEBEN gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
End If
Return SENDUNG_TMP.SAVE()
End Function
@@ -5355,7 +5522,7 @@ Public Class AvisoStatusFunctions
End Function
Public Function setSendungAbfertigungTR(SendungsId, AvisoID, Optional anzahl = 1) As Boolean
Public Function setSendungAbfertigungTR(SendungsId, AvisoID, Optional anzahl = 1, Optional anzahlPos = 1) As Boolean
If SendungsId Is Nothing Then Return False
If Not IsNumeric(SendungsId) Then Return False
@@ -5376,6 +5543,7 @@ Public Class AvisoStatusFunctions
'End If
SENDUNG_TMP.tblSnd_anzahlHandling = anzahl
SENDUNG_TMP.tblSnd_anzahlHandlingPos = anzahlPos
If SENDUNG_TMP.tblSnd_AbfertigungTR Is Nothing Then
SENDUNG_TMP.tblSnd_AbfertigungTR_MA = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
@@ -5474,62 +5642,72 @@ Public Class AvisoStatusFunctions
Exit Function
End If
'hier werden alle möglichen Platzhalter ersetzt
hText = hText.Replace("%LKW%", hLKW)
hText = hText.Replace("%Standort%", getGrenzstelleZollstelle(hGrenzstelle, AVISO))
hText = hText.Replace("%Uhrzeit%", Format(Now, "dd.MM.yyyy HH:mm"))
hText = hText.Replace("&", "und")
Select Case art
Case "5"
Dim linkAviso = "https://login.verag.ag/status.aspx?AvisoId=" & VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(AVISO.AvisoID)
hText = hText.Replace("%Link%", "<div style=""border: 1px solid #333;width:300px;height:50px;background-color:#eee;color:#003680""><br>&emsp;<a href=""" & linkAviso & """><b>Tracking shipment status<br></b></a></div>")
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX"
hText = hText.Replace("%Firma_simple%", "IMEX")
hText = hText.Replace("%Firma%", "IMEX Customs Service GmbH")
hText = hText.Replace("%Platzhalter2%", "<br><br><span style=""font-family: calibri;font-size:14px"">Freundliche Grüße / Saygilarimizla / Best Regards<br>
<b>IMEX Customs Service GmbH</b><br>
Abteilung: Zollabfertigung<br>
Tel.: +43 7711 31630<br>
Fax: +43 7711 31630 - 1<br>
Mail: <a href=""mailto:info@imex-group.at"">info@imex-group.at</a><br>
</span>")
Case "UNISPED"
hText = hText.Replace("%Firma_simple%", "UNISPED")
hText = hText.Replace("%Firma%", "UNISPED Speditions GmbH")
hText = hText.Replace("%Platzhalter2%", "<br><br><span style=""font-family: calibri;font-size:14px"">Freundliche Grüße / Saygilarimizla / Best Regards<br>
<b>UNISPED Speditions GmbH</b><br>
Abteilung: Zollabfertigung<br>
Tel.: +43 7711 2677-0<br>
Mail: <a href=""mailto:office@unisped.at"">office@unisped.at</a><br>
</span>")
Case "ATILLA"
hText = hText.Replace("%Firma_simple%", "ATILLA")
hText = hText.Replace("%Firma%", "ATILLA Spedition GmbH")
Case "AMBAR"
hText = hText.Replace("%Firma_simple%", "AMBAR")
hText = hText.Replace("%FirmaTR%", "<b>Ambar Logistic Bad Reichenhall</b>")
hText = hText.Replace("%Firma%", "<b>Ambar Logistic in Bad Reichenhall</b>")
Case Else
hText = hText.Replace("%Platzhalter2%", "")
hText = hText.Replace("%Firma_simple%", "VERAG")
hText = hText.Replace("%Firma%", "VERAG Spedition AG")
End Select
hText = hText.Replace("%AbfertigungsNr%", abfertigungsNr)
'hier werden alle möglichen Platzhalter ersetzt
Dim KUNDE_ERW As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(KundenNr)
If (art = 2 Or art = 4) And (KUNDE_ERW.EmailFreigabeSendungsListe Or KUNDE_ERW.EmailFreigabe_VBDPDF Or KUNDE_ERW.EmailFreigabe_SteuerbescheidPDF) Then 'Freigabe
hText = hText.Replace("%Standort%", getGrenzstelleZollstelle(hGrenzstelle, AVISO))
hText = hText.Replace("%Uhrzeit%", Format(Now, "dd.MM.yyyy HH:mm"))
hText = hText.Replace("&", "und")
Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, 0, AVISO.AvisoID) 'LÄDT alle SENDUNGSDATEN
If SENDUNG_LIST.Count > 0 Then
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX"
hText = hText.Replace("%Firma_simple%", "IMEX")
hText = hText.Replace("%Firma%", "IMEX Customs Service GmbH")
hText = hText.Replace("%Platzhalter2%", "<br><br><span style=""font-family: calibri;font-size:14px"">Freundliche Grüße / Saygilarimizla / Best Regards<br>
<b>IMEX Customs Service GmbH</b><br>
Abteilung: Zollabfertigung<br>
Tel.: +43 7711 31630<br>
Fax: +43 7711 31630 - 1<br>
Mail: <a href=""mailto:info@imex-group.at"">info@imex-group.at</a><br>
</span>")
Case "UNISPED"
hText = hText.Replace("%Firma_simple%", "UNISPED")
hText = hText.Replace("%Firma%", "UNISPED Speditions GmbH")
hText = hText.Replace("%Platzhalter2%", "<br><br><span style=""font-family: calibri;font-size:14px"">Freundliche Grüße / Saygilarimizla / Best Regards<br>
<b>UNISPED Speditions GmbH</b><br>
Abteilung: Zollabfertigung<br>
Tel.: +43 7711 2677-0<br>
Mail: <a href=""mailto:office@unisped.at"">office@unisped.at</a><br>
</span>")
Case "ATILLA"
Dim SendungslistTXT = ""
SendungslistTXT &= "<span style=""font-family:calibri;font-size:14""><b>Sendungsliste:</b><br></span>"
SendungslistTXT &= "<table style=""font-family:calibri;font-size:18;background-color:#F2F8FE;padding:0;min-width:600px;"" border=""1"" bordercolor=""#003680"" cellspacing=""0"">"
hText = hText.Replace("%Firma_simple%", "ATILLA")
hText = hText.Replace("%Firma%", "ATILLA Spedition GmbH")
Case "AMBAR"
hText = hText.Replace("%Firma_simple%", "AMBAR")
hText = hText.Replace("%FirmaTR%", "<b>Ambar Logistic Bad Reichenhall</b>")
hText = hText.Replace("%Firma%", "<b>Ambar Logistic in Bad Reichenhall</b>")
Case Else
hText = hText.Replace("%Platzhalter2%", "")
hText = hText.Replace("%Firma_simple%", "VERAG")
hText = hText.Replace("%Firma%", "VERAG Spedition AG")
End Select
hText = hText.Replace("%AbfertigungsNr%", abfertigungsNr)
Dim KUNDE_ERW As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(KundenNr)
If (art = 2 Or art = 4) And (KUNDE_ERW.EmailFreigabeSendungsListe Or KUNDE_ERW.EmailFreigabe_VBDPDF Or KUNDE_ERW.EmailFreigabe_SteuerbescheidPDF) Then 'Freigabe
Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, 0, AVISO.AvisoID) 'LÄDT alle SENDUNGSDATEN
If SENDUNG_LIST.Count > 0 Then
Dim SendungslistTXT = ""
SendungslistTXT &= "<span style=""font-family:calibri;font-size:14""><b>Sendungsliste:</b><br></span>"
SendungslistTXT &= "<table style=""font-family:calibri;font-size:18;background-color:#F2F8FE;padding:0;min-width:600px;"" border=""1"" bordercolor=""#003680"" cellspacing=""0"">"
'If VERAG_PROG_ALLGEMEIN.cAllgemein.isCLUSTER Then
' SendungslistTXT &= "<tr style=""font-size:18;min-width:180;font-weight: bolder""><td> Nr. </td><td>Spedition</td><td> PosNr </td><td> Art </td><td> Empfänger </td><td> ATC/MRN </td><td> Frist (T1/T2) </td></tr>"
@@ -5569,8 +5747,8 @@ Public Class AvisoStatusFunctions
Case 7 'Ausfuhr
getDataFronDY_AES(s.tblSnd_SendungID, AtcMrn, DsId, s.FilialenNr, s.AbfertigungsNr, DsId2)
MsgBox(DsId)
If KUNDE_ERW.EmailFreigabe_ABDPDF And IsNumeric(DsId) Then 'VBD anhängen
' MsgBox(DsId)
If KUNDE_ERW.EmailFreigabe_ABDPDF And IsNumeric(DsId) Then 'VBD anhängen
Try
Dim PathTmp = (New VERAG_PROG_ALLGEMEIN.cDATENSERVER(DsId)).GET_TOP1_PATH(False)
If PathTmp <> "" Then anhaenge.Add(PathTmp) : found = True
@@ -5586,51 +5764,51 @@ Public Class AvisoStatusFunctions
If s.tblSnd_Abfertigungsart_ID = 23 Then
s.LOAD_HANDLING()
For Each hd In s.HANDLING
AtcMrn &= hd.sndhdg_nr & ", "
Next
If AtcMrn.EndsWith(", ") Then AtcMrn = AtcMrn.Substring(0, AtcMrn.Length - 2)
AtcMrn &= hd.sndhdg_nr & ", "
Next
If AtcMrn.EndsWith(", ") Then AtcMrn = AtcMrn.Substring(0, AtcMrn.Length - 2)
'If If(s.tblSnd_ATCMRN_Fremd, "") <> "" Then AtcMrn = s.tblSnd_ATCMRN_Fremd
End If
If KUNDE_ERW.EmailFreigabe_SteuerbescheidPDF And (IsNumeric(DsId) Or IsNumeric(DsId2)) Then 'Steuerbescheid anhängen
If checkSteuerbescheidbedingung(KundenNr, DsId) Or checkSteuerbescheidbedingung(KundenNr, DsId2) Then
Try
If IsNumeric(DsId) Then
Dim PathTmp = (New VERAG_PROG_ALLGEMEIN.cDATENSERVER(DsId)).GET_TOP1_PATH(False)
If PathTmp <> "" Then anhaenge.Add(PathTmp) : found = True
End If
If IsNumeric(DsId) Then
Dim PathTmp2 = (New VERAG_PROG_ALLGEMEIN.cDATENSERVER(DsId2)).GET_TOP1_PATH(False)
If PathTmp2 <> "" Then anhaenge.Add(PathTmp2) : found = True
End If
Catch ex As Exception : VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) : End Try
If Not found Then
AvisoStatusFunctions.insertSendungsVermerk(s.tblSnd_SendungID, AVISO.AvisoID, "ERR: Steuerbescheid nicht gefunden: " & s.FilialenNr & "/" & s.AbfertigungsNr, 47)
' AvisoStatusFunctions.insertVermerkAllg(AVISO.AvisoID, "ERR: Steuerbescheid nicht gefunden: " & s.FilialenNr & "/" & s.AbfertigungsNr, 46, , "(AUTO)")
MsgBox("ACHTUNG: Der Steuerbescheid konnte nicht automatisiert ermittelt werden." & vbNewLine & "Bitte dem Kunden den Steuerbescheid per E-Mail zustellen!" & vbNewLine & vbNewLine & "Sendung: " & s.FilialenNr & "/" & s.AbfertigungsNr)
'If If(s.tblSnd_ATCMRN_Fremd, "") <> "" Then AtcMrn = s.tblSnd_ATCMRN_Fremd
End If
End If
End If
End Select
If IsDate(frist) Then frist = CDate(frist).ToShortDateString
If KUNDE_ERW.EmailFreigabe_SteuerbescheidPDF And (IsNumeric(DsId) Or IsNumeric(DsId2)) Then 'Steuerbescheid anhängen
If checkSteuerbescheidbedingung(KundenNr, DsId) Or checkSteuerbescheidbedingung(KundenNr, DsId2) Then
Try
If IsNumeric(DsId) Then
Dim PathTmp = (New VERAG_PROG_ALLGEMEIN.cDATENSERVER(DsId)).GET_TOP1_PATH(False)
If PathTmp <> "" Then anhaenge.Add(PathTmp) : found = True
End If
If IsNumeric(DsId) Then
Dim PathTmp2 = (New VERAG_PROG_ALLGEMEIN.cDATENSERVER(DsId2)).GET_TOP1_PATH(False)
If PathTmp2 <> "" Then anhaenge.Add(PathTmp2) : found = True
End If
Catch ex As Exception : VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) : End Try
If Not found Then
AvisoStatusFunctions.insertSendungsVermerk(s.tblSnd_SendungID, AVISO.AvisoID, "ERR: Steuerbescheid nicht gefunden: " & s.FilialenNr & "/" & s.AbfertigungsNr, 47)
' AvisoStatusFunctions.insertVermerkAllg(AVISO.AvisoID, "ERR: Steuerbescheid nicht gefunden: " & s.FilialenNr & "/" & s.AbfertigungsNr, 46, , "(AUTO)")
MsgBox("ACHTUNG: Der Steuerbescheid konnte nicht automatisiert ermittelt werden." & vbNewLine & "Bitte dem Kunden den Steuerbescheid per E-Mail zustellen!" & vbNewLine & vbNewLine & "Sendung: " & s.FilialenNr & "/" & s.AbfertigungsNr)
End If
End If
End If
End Select
If IsDate(frist) Then frist = CDate(frist).ToShortDateString
Dim txtCluster = ""
' If VERAG_PROG_ALLGEMEIN.cAllgemein.isCLUSTER Then txtCluster = "<td>" & VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(s.FilialenNr, False) & "</td>"
txtCluster = "<td>" & VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(s.FilialenNr, False) & "</td>"
SendungslistTXT &= "<tr style=""font-size:18;min-width:180;""><td>" & cnt & "</td>" & txtCluster & "<td>" & If(s.FilialenNr > 0, s.FilialenNr, "") & "/" & If(s.AbfertigungsNr > 0, s.AbfertigungsNr, "") & "</td><td>" & getAbfertBez(s) & "</td><td>" & If(s.tblSnd_Empfaenger, "") & "</td><td>" & AtcMrn & "</td><td>" & frist & "</td>" & If(showNCTSAdress, gestellungsadresse, "") & "</tr> "
cnt += 1
Dim txtCluster = ""
' If VERAG_PROG_ALLGEMEIN.cAllgemein.isCLUSTER Then txtCluster = "<td>" & VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(s.FilialenNr, False) & "</td>"
txtCluster = "<td>" & VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(s.FilialenNr, False) & "</td>"
SendungslistTXT &= "<tr style=""font-size:18;min-width:180;""><td>" & cnt & "</td>" & txtCluster & "<td>" & If(s.FilialenNr > 0, s.FilialenNr, "") & "/" & If(s.AbfertigungsNr > 0, s.AbfertigungsNr, "") & "</td><td>" & getAbfertBez(s) & "</td><td>" & If(s.tblSnd_Empfaenger, "") & "</td><td>" & AtcMrn & "</td><td>" & frist & "</td>" & If(showNCTSAdress, gestellungsadresse, "") & "</tr> "
cnt += 1
End If
Next
SendungslistTXT &= "</table>"
SendungslistTXT &= "<br><br>"
If cnt = 1 Then ' wurde nicht erhöht -> keine Einträge
SendungslistTXT = ""
End If
If KUNDE_ERW.EmailFreigabeSendungsListe Then hText = hText.Replace("%Platzhalter%", SendungslistTXT)
End If
Next
SendungslistTXT &= "</table>"
SendungslistTXT &= "<br><br>"
If cnt = 1 Then ' wurde nicht erhöht -> keine Einträge
SendungslistTXT = ""
End If
If KUNDE_ERW.EmailFreigabeSendungsListe Then hText = hText.Replace("%Platzhalter%", SendungslistTXT)
End If
End If
End Select
hText = hText.Replace("%Platzhalter%", "")
Platzhalter_ersetzen = hText
@@ -5888,13 +6066,13 @@ Public Class AvisoStatusFunctions
End Sub
Shared Sub insertSendungsVermerk(SendungID As Integer, AvisoID As Integer, Text As String, VermerkCodeId As Integer, Optional Beschreibung As String = "", Optional VorauskasseId As Object = Nothing)
Shared Sub insertSendungsVermerk(SendungID As Integer, AvisoID As Integer, Text As String, VermerkCodeId As Integer, Optional Beschreibung As String = "", Optional VorauskasseId As Object = Nothing, Optional addAuto As Boolean = False)
'Daten zuweisen und speichern
Dim myVermerk As New cVermerk
myVermerk.VermerkID = 0
myVermerk.AvisoID = AvisoID
myVermerk.Datum = Now
myVermerk.Mitarbeiter = cGlobal.AktiverMitarbeiter.Mitarbeiter
myVermerk.Mitarbeiter = cGlobal.AktiverMitarbeiter.Mitarbeiter & If(addAuto, " (AUTO)", "")
myVermerk.MitarbeiterId = cGlobal.AktiverMitarbeiter.MitarbeiterID
myVermerk.Hinweis_Vermerk = Text
myVermerk.VermerkCodeId = VermerkCodeId

35
Aviso/frmLogin.vb
View File

@@ -142,14 +142,42 @@ Public Class frmLogin
Exit Sub
ElseIf PARAM = "SECRET" Then
SECRET = True
ElseIf PARAM = "STATUS_MAIL" Then
Try
'Me.Visible = False
'Me.Hide()
'Me.WindowState = FormWindowState.Minimized
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG"
Dim OptionenDAL As New VERAG_PROG_ALLGEMEIN.cOptionenDAL
VERAG_PROG_ALLGEMEIN.cGlobal.Optionen = OptionenDAL.LesenOptionen(1, "")
Dim AvisoDAL As New VERAG_PROG_ALLGEMEIN.cAvisoDAL
Dim VERAGSQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim dt = VERAGSQL.loadDgvBySql("SELECT [AvisoID] FROM [Aviso] where datum >= '05.03.2022'
and Firma IN ('VERAG','IMEX') and (SELECT COUNT(*) FROM Vermerke where Vermerke.AvisoID=aviso.AvisoID and Hinweis_Vermerk LIKE 'Status E-Mail gesendet an:%') =0 and status NOT IN (1,2)", "AVISO")
For Each r In dt.Rows
'MsgBox("SO: " & (r("AvisoID")))
Dim AVISO = AvisoDAL.LesenAviso(r("AvisoID"), "")
If AVISO IsNot Nothing Then
AvisoStatusFunctions.SendStatusEmail(AVISO)
End If
Next
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Application.Exit()
Exit Sub
End If
initstart(False)
Try
Using myGraphics As Graphics = Me.CreateGraphics()
VERAG_PROG_ALLGEMEIN.cAllgemein.dpi = myGraphics.DpiX
@@ -339,7 +367,7 @@ Public Class frmLogin
End If
VERAG_PROG_ALLGEMEIN.cAllgemein.PROGNAME = "AVISO"
VERAG_PROG_ALLGEMEIN.cAllgemein.PROGVERSION = My.Resources.Version
VERAG_PROG_ALLGEMEIN.cAllgemein.PROGVERSION = Application.ProductVersion 'My.Resources.Version2
VERAG_PROG_ALLGEMEIN.cAllgemein.SESSION.LOGIN()
frmHauptfenster.Show()
frmHauptfenster.Visible = True
@@ -392,7 +420,8 @@ Public Class frmLogin
'auf UPDATES prüfen:
Dim DB As New cADMIN
If CInt(DB.getAktuelleVersion().Replace(".", "")) > CInt(My.Resources.Version.Replace(".", "")) Then
' If CInt(DB.getAktuelleVersion().Replace(".", "")) > CInt(My.Resources.Version2.Replace(".", "")) Then
If CInt(DB.getAktuelleVersion().Replace(".", "")) > CInt(Application.ProductVersion.Replace(".", "")) Then
Me.Enabled = False
If vbYes = MsgBox("Es ist eine neue Programm-Version verfügbar. Das Programm muss aktualisiert werden, bevor Sie es weiter verwenden können. " & vbNewLine & vbNewLine & "Update jetzt durchführen?", CType(vbQuestion + vbYesNo, MsgBoxStyle), "Update verfügbar") Then
UpdateAVISO()

3
Aviso/frmNotify.Designer.vb generated
View File

@@ -22,7 +22,8 @@ Partial Class frmNotify
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.Timer = New System.Windows.Forms.Timer()
Me.components = New System.ComponentModel.Container()
Me.Timer = New System.Windows.Forms.Timer(Me.components)
Me.pnl = New System.Windows.Forms.Panel()
Me.lblText = New System.Windows.Forms.Label()
Me.Header = New System.Windows.Forms.Panel()

10
Aviso/frmNotify.vb
View File

@@ -56,11 +56,14 @@
End Sub
Private Sub Timer_Tick(sender As Object, e As EventArgs) Handles Timer.Tick
Me.Close()
frmHauptfenster.BringToFront()
End Sub
Private Sub btnClose_Click(sender As Object, e As EventArgs) Handles btnClose.Click
frmHauptfenster.BringToFront()
Me.Close()
End Sub
Private Sub frmNotify_Load(sender As Object, e As EventArgs) Handles Me.Load
@@ -88,7 +91,7 @@
End Sub
Private Sub lblText_Click(sender As Object, e As EventArgs) Handles lblText.Click
Private Sub lblText_Click(sender As Object, e As EventArgs) Handles lblText.Click, lblTitle.Click, Header.Click
Select Case Notify_ART
Case cNotify_ART.AVISO_2H
frmHauptfenster.Details_anzeigen(AvisoID)
@@ -98,6 +101,7 @@
If TypeOf (openForm) Is VERAG_PROG_ALLGEMEIN.frmMessenger Then
CType(openForm, VERAG_PROG_ALLGEMEIN.frmMessenger).WindowState = FormWindowState.Normal
CType(openForm, VERAG_PROG_ALLGEMEIN.frmMessenger).BringToFront()
Me.Close()
Exit Sub
End If
Next
@@ -110,4 +114,6 @@
End Sub
End Class

229
Aviso/frmSendungsdetailsNEU.Designer.vb generated
View File

@@ -28,12 +28,12 @@ Partial Class frmSendungsdetailsNEU
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.pnl = New System.Windows.Forms.Panel()
Me.Panel4 = New System.Windows.Forms.Panel()
Me.TabControl1 = New System.Windows.Forms.TabControl()
Me.tbKundenInfo = New System.Windows.Forms.TabPage()
Me.pnlKundenInfo = New System.Windows.Forms.Panel()
Me.Panel20 = New System.Windows.Forms.Panel()
Me.tbAnhang = New System.Windows.Forms.TabPage()
Me.btnDirektAnfuegen = New System.Windows.Forms.Button()
Me.dgvAnhang = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
@@ -52,9 +52,6 @@ Partial Class frmSendungsdetailsNEU
Me.btnOptionen = New System.Windows.Forms.Button()
Me.btnImportAssi = New System.Windows.Forms.Button()
Me.lblAnhaenge = New System.Windows.Forms.Label()
Me.tbKundenInfo = New System.Windows.Forms.TabPage()
Me.pnlKundenInfo = New System.Windows.Forms.Panel()
Me.Panel20 = New System.Windows.Forms.Panel()
Me.tbZollabfertigung = New System.Windows.Forms.TabPage()
Me.Panel16 = New System.Windows.Forms.Panel()
Me.dgvZollAnmeldungen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
@@ -355,6 +352,7 @@ Partial Class frmSendungsdetailsNEU
Me.cntxtOptions = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.GelangensbestätigungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.KreditlimitRisikobewertungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolTip = New System.Windows.Forms.ToolTip(Me.components)
Me.ctxtWeitereFormulare = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.toolGelangensbestätigung = New System.Windows.Forms.ToolStripMenuItem()
@@ -381,11 +379,11 @@ Partial Class frmSendungsdetailsNEU
Me.pnl.SuspendLayout()
Me.Panel4.SuspendLayout()
Me.TabControl1.SuspendLayout()
Me.tbKundenInfo.SuspendLayout()
Me.tbAnhang.SuspendLayout()
CType(Me.dgvAnhang, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel19.SuspendLayout()
Me.Panel21.SuspendLayout()
Me.tbKundenInfo.SuspendLayout()
Me.tbZollabfertigung.SuspendLayout()
Me.Panel16.SuspendLayout()
CType(Me.dgvZollAnmeldungen, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -464,27 +462,62 @@ Partial Class frmSendungsdetailsNEU
'
'TabControl1
'
Me.TabControl1.Controls.Add(Me.tbAnhang)
Me.TabControl1.Controls.Add(Me.tbKundenInfo)
Me.TabControl1.Controls.Add(Me.tbAnhang)
Me.TabControl1.Controls.Add(Me.tbZollabfertigung)
Me.TabControl1.Controls.Add(Me.TabPage1)
Me.TabControl1.Controls.Add(Me.TabPage2)
Me.TabControl1.Controls.Add(Me.TabPage3)
Me.TabControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.TabControl1.Location = New System.Drawing.Point(0, 37)
Me.TabControl1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.TabControl1.Location = New System.Drawing.Point(0, 3)
Me.TabControl1.Name = "TabControl1"
Me.TabControl1.Padding = New System.Drawing.Point(12, 5)
Me.TabControl1.SelectedIndex = 0
Me.TabControl1.Size = New System.Drawing.Size(1214, 287)
Me.TabControl1.Size = New System.Drawing.Size(1214, 321)
Me.TabControl1.TabIndex = 1
'
'tbKundenInfo
'
Me.tbKundenInfo.AutoScroll = True
Me.tbKundenInfo.Controls.Add(Me.pnlKundenInfo)
Me.tbKundenInfo.Controls.Add(Me.Panel20)
Me.tbKundenInfo.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
Me.tbKundenInfo.Location = New System.Drawing.Point(4, 29)
Me.tbKundenInfo.Name = "tbKundenInfo"
Me.tbKundenInfo.Size = New System.Drawing.Size(1206, 288)
Me.tbKundenInfo.TabIndex = 5
Me.tbKundenInfo.Text = "Kundeninfo"
Me.tbKundenInfo.UseVisualStyleBackColor = True
'
'pnlKundenInfo
'
Me.pnlKundenInfo.BackColor = System.Drawing.Color.Gray
Me.pnlKundenInfo.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnlKundenInfo.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnlKundenInfo.Location = New System.Drawing.Point(0, 10)
Me.pnlKundenInfo.Name = "pnlKundenInfo"
Me.pnlKundenInfo.Size = New System.Drawing.Size(1206, 278)
Me.pnlKundenInfo.TabIndex = 1
'
'Panel20
'
Me.Panel20.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Panel20.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel20.Location = New System.Drawing.Point(0, 0)
Me.Panel20.Name = "Panel20"
Me.Panel20.Size = New System.Drawing.Size(1206, 10)
Me.Panel20.TabIndex = 0
'
'tbAnhang
'
Me.tbAnhang.Controls.Add(Me.btnDirektAnfuegen)
Me.tbAnhang.Controls.Add(Me.dgvAnhang)
Me.tbAnhang.Controls.Add(Me.Panel19)
Me.tbAnhang.Location = New System.Drawing.Point(4, 22)
Me.tbAnhang.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
Me.tbAnhang.Location = New System.Drawing.Point(4, 29)
Me.tbAnhang.Name = "tbAnhang"
Me.tbAnhang.Size = New System.Drawing.Size(1206, 261)
Me.tbAnhang.Size = New System.Drawing.Size(1206, 288)
Me.tbAnhang.TabIndex = 4
Me.tbAnhang.Text = "Anhang"
Me.tbAnhang.UseVisualStyleBackColor = True
@@ -512,14 +545,6 @@ Partial Class frmSendungsdetailsNEU
Me.dgvAnhang.AllowUserToResizeColumns = False
Me.dgvAnhang.AllowUserToResizeRows = False
Me.dgvAnhang.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvAnhang.DefaultCellStyle = DataGridViewCellStyle1
Me.dgvAnhang.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvAnhang.Location = New System.Drawing.Point(0, 45)
Me.dgvAnhang.Name = "dgvAnhang"
@@ -527,7 +552,7 @@ Partial Class frmSendungsdetailsNEU
Me.dgvAnhang.RowHeadersVisible = False
Me.dgvAnhang.RowTemplate.Height = 40
Me.dgvAnhang.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvAnhang.Size = New System.Drawing.Size(1206, 216)
Me.dgvAnhang.Size = New System.Drawing.Size(1206, 243)
Me.dgvAnhang.TabIndex = 1
'
'Panel19
@@ -717,43 +742,12 @@ Partial Class frmSendungsdetailsNEU
Me.lblAnhaenge.TabIndex = 0
Me.lblAnhaenge.Text = "Anhänge"
'
'tbKundenInfo
'
Me.tbKundenInfo.AutoScroll = True
Me.tbKundenInfo.Controls.Add(Me.pnlKundenInfo)
Me.tbKundenInfo.Controls.Add(Me.Panel20)
Me.tbKundenInfo.Location = New System.Drawing.Point(4, 22)
Me.tbKundenInfo.Name = "tbKundenInfo"
Me.tbKundenInfo.Size = New System.Drawing.Size(1206, 261)
Me.tbKundenInfo.TabIndex = 5
Me.tbKundenInfo.Text = "Kundeninfo"
Me.tbKundenInfo.UseVisualStyleBackColor = True
'
'pnlKundenInfo
'
Me.pnlKundenInfo.BackColor = System.Drawing.Color.Gray
Me.pnlKundenInfo.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnlKundenInfo.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnlKundenInfo.Location = New System.Drawing.Point(0, 10)
Me.pnlKundenInfo.Name = "pnlKundenInfo"
Me.pnlKundenInfo.Size = New System.Drawing.Size(1206, 251)
Me.pnlKundenInfo.TabIndex = 1
'
'Panel20
'
Me.Panel20.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Panel20.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel20.Location = New System.Drawing.Point(0, 0)
Me.Panel20.Name = "Panel20"
Me.Panel20.Size = New System.Drawing.Size(1206, 10)
Me.Panel20.TabIndex = 0
'
'tbZollabfertigung
'
Me.tbZollabfertigung.Controls.Add(Me.Panel16)
Me.tbZollabfertigung.Location = New System.Drawing.Point(4, 22)
Me.tbZollabfertigung.Location = New System.Drawing.Point(4, 29)
Me.tbZollabfertigung.Name = "tbZollabfertigung"
Me.tbZollabfertigung.Size = New System.Drawing.Size(1206, 261)
Me.tbZollabfertigung.Size = New System.Drawing.Size(1206, 288)
Me.tbZollabfertigung.TabIndex = 2
Me.tbZollabfertigung.Text = "Zollabfertigung"
Me.tbZollabfertigung.UseVisualStyleBackColor = True
@@ -764,9 +758,10 @@ Partial Class frmSendungsdetailsNEU
Me.Panel16.Controls.Add(Me.Panel17)
Me.Panel16.Controls.Add(Me.MenuStrip)
Me.Panel16.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
Me.Panel16.Location = New System.Drawing.Point(0, 0)
Me.Panel16.Name = "Panel16"
Me.Panel16.Size = New System.Drawing.Size(1206, 261)
Me.Panel16.Size = New System.Drawing.Size(1206, 288)
Me.Panel16.TabIndex = 0
'
'dgvZollAnmeldungen
@@ -783,7 +778,7 @@ Partial Class frmSendungsdetailsNEU
Me.dgvZollAnmeldungen.ReadOnly = True
Me.dgvZollAnmeldungen.RowTemplate.Height = 30
Me.dgvZollAnmeldungen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvZollAnmeldungen.Size = New System.Drawing.Size(1206, 199)
Me.dgvZollAnmeldungen.Size = New System.Drawing.Size(1206, 226)
Me.dgvZollAnmeldungen.TabIndex = 1
'
'Panel17
@@ -792,7 +787,7 @@ Partial Class frmSendungsdetailsNEU
Me.Panel17.Controls.Add(Me.Button6)
Me.Panel17.Controls.Add(Me.Button5)
Me.Panel17.Dock = System.Windows.Forms.DockStyle.Bottom
Me.Panel17.Location = New System.Drawing.Point(0, 223)
Me.Panel17.Location = New System.Drawing.Point(0, 250)
Me.Panel17.Name = "Panel17"
Me.Panel17.Size = New System.Drawing.Size(1206, 38)
Me.Panel17.TabIndex = 2
@@ -976,10 +971,11 @@ Partial Class frmSendungsdetailsNEU
'
Me.TabPage1.Controls.Add(Me.pnlKundenZolltarif)
Me.TabPage1.Controls.Add(Me.Panel18)
Me.TabPage1.Location = New System.Drawing.Point(4, 22)
Me.TabPage1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
Me.TabPage1.Location = New System.Drawing.Point(4, 29)
Me.TabPage1.Name = "TabPage1"
Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage1.Size = New System.Drawing.Size(1206, 261)
Me.TabPage1.Size = New System.Drawing.Size(1206, 288)
Me.TabPage1.TabIndex = 0
Me.TabPage1.Text = "Kunden - Zolltarif"
Me.TabPage1.UseVisualStyleBackColor = True
@@ -995,7 +991,7 @@ Partial Class frmSendungsdetailsNEU
Me.pnlKundenZolltarif.Location = New System.Drawing.Point(3, 36)
Me.pnlKundenZolltarif.MinimumSize = New System.Drawing.Size(2, 103)
Me.pnlKundenZolltarif.Name = "pnlKundenZolltarif"
Me.pnlKundenZolltarif.Size = New System.Drawing.Size(1200, 222)
Me.pnlKundenZolltarif.Size = New System.Drawing.Size(1200, 249)
Me.pnlKundenZolltarif.TabIndex = 1
Me.pnlKundenZolltarif.TabStop = True
'
@@ -1004,7 +1000,7 @@ Partial Class frmSendungsdetailsNEU
Me.Label22.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label22.AutoSize = True
Me.Label22.Location = New System.Drawing.Point(4, 181)
Me.Label22.Location = New System.Drawing.Point(4, 208)
Me.Label22.Name = "Label22"
Me.Label22.Size = New System.Drawing.Size(209, 13)
Me.Label22.TabIndex = 0
@@ -1016,7 +1012,7 @@ Partial Class frmSendungsdetailsNEU
Me.lblBitteEinenEmpfangerAuswahlenUmDenKundenZolltarifEinzublenden.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblBitteEinenEmpfangerAuswahlenUmDenKundenZolltarifEinzublenden.AutoSize = True
Me.lblBitteEinenEmpfangerAuswahlenUmDenKundenZolltarifEinzublenden.Location = New System.Drawing.Point(4, 195)
Me.lblBitteEinenEmpfangerAuswahlenUmDenKundenZolltarifEinzublenden.Location = New System.Drawing.Point(4, 222)
Me.lblBitteEinenEmpfangerAuswahlenUmDenKundenZolltarifEinzublenden.Name = "lblBitteEinenEmpfangerAuswahlenUmDenKundenZolltarifEinzublenden"
Me.lblBitteEinenEmpfangerAuswahlenUmDenKundenZolltarifEinzublenden.Size = New System.Drawing.Size(338, 13)
Me.lblBitteEinenEmpfangerAuswahlenUmDenKundenZolltarifEinzublenden.TabIndex = 1
@@ -1058,10 +1054,11 @@ Partial Class frmSendungsdetailsNEU
'
Me.TabPage2.Controls.Add(Me.DataGridView)
Me.TabPage2.Controls.Add(Me.pnlSpedBuchNacherfassung)
Me.TabPage2.Location = New System.Drawing.Point(4, 22)
Me.TabPage2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
Me.TabPage2.Location = New System.Drawing.Point(4, 29)
Me.TabPage2.Name = "TabPage2"
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage2.Size = New System.Drawing.Size(1206, 261)
Me.TabPage2.Size = New System.Drawing.Size(1206, 288)
Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = "Speditionsbuch"
Me.TabPage2.UseVisualStyleBackColor = True
@@ -1078,7 +1075,7 @@ Partial Class frmSendungsdetailsNEU
Me.DataGridView.Dock = System.Windows.Forms.DockStyle.Fill
Me.DataGridView.Location = New System.Drawing.Point(3, 94)
Me.DataGridView.Name = "DataGridView"
Me.DataGridView.Size = New System.Drawing.Size(1200, 164)
Me.DataGridView.Size = New System.Drawing.Size(1200, 191)
Me.DataGridView.TabIndex = 1
'
'pnlSpedBuchNacherfassung
@@ -1204,6 +1201,7 @@ Partial Class frmSendungsdetailsNEU
Me.txtAtlasBezNrEZA2._ShortDateNew = False
Me.txtAtlasBezNrEZA2._ShortDateOnly = False
Me.txtAtlasBezNrEZA2._TimeOnly = False
Me.txtAtlasBezNrEZA2._TimeOnly_Seconds = False
Me.txtAtlasBezNrEZA2._value = Nothing
Me.txtAtlasBezNrEZA2._Waehrung = False
Me.txtAtlasBezNrEZA2._WaehrungZeichen = True
@@ -1226,6 +1224,7 @@ Partial Class frmSendungsdetailsNEU
Me.txtAtlasBezNrNCTS2._ShortDateNew = False
Me.txtAtlasBezNrNCTS2._ShortDateOnly = False
Me.txtAtlasBezNrNCTS2._TimeOnly = False
Me.txtAtlasBezNrNCTS2._TimeOnly_Seconds = False
Me.txtAtlasBezNrNCTS2._value = Nothing
Me.txtAtlasBezNrNCTS2._Waehrung = False
Me.txtAtlasBezNrNCTS2._WaehrungZeichen = True
@@ -1297,6 +1296,7 @@ Partial Class frmSendungsdetailsNEU
Me.txtAtlasBezNrEZA._ShortDateNew = False
Me.txtAtlasBezNrEZA._ShortDateOnly = False
Me.txtAtlasBezNrEZA._TimeOnly = False
Me.txtAtlasBezNrEZA._TimeOnly_Seconds = False
Me.txtAtlasBezNrEZA._value = Nothing
Me.txtAtlasBezNrEZA._Waehrung = False
Me.txtAtlasBezNrEZA._WaehrungZeichen = True
@@ -1318,6 +1318,7 @@ Partial Class frmSendungsdetailsNEU
Me.txtAtlasBezNrNCTS._ShortDateNew = False
Me.txtAtlasBezNrNCTS._ShortDateOnly = False
Me.txtAtlasBezNrNCTS._TimeOnly = False
Me.txtAtlasBezNrNCTS._TimeOnly_Seconds = False
Me.txtAtlasBezNrNCTS._value = Nothing
Me.txtAtlasBezNrNCTS._Waehrung = False
Me.txtAtlasBezNrNCTS._WaehrungZeichen = True
@@ -1381,9 +1382,10 @@ Partial Class frmSendungsdetailsNEU
'TabPage3
'
Me.TabPage3.Controls.Add(Me.gridVermerke)
Me.TabPage3.Location = New System.Drawing.Point(4, 22)
Me.TabPage3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
Me.TabPage3.Location = New System.Drawing.Point(4, 29)
Me.TabPage3.Name = "TabPage3"
Me.TabPage3.Size = New System.Drawing.Size(1206, 261)
Me.TabPage3.Size = New System.Drawing.Size(1206, 288)
Me.TabPage3.TabIndex = 3
Me.TabPage3.Text = "Vermerke"
Me.TabPage3.UseVisualStyleBackColor = True
@@ -1393,51 +1395,35 @@ Partial Class frmSendungsdetailsNEU
Me.gridVermerke.AllowUserToAddRows = False
Me.gridVermerke.AllowUserToDeleteRows = False
Me.gridVermerke.AllowUserToResizeRows = False
DataGridViewCellStyle2.BackColor = System.Drawing.Color.Azure
DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridVermerke.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
DataGridViewCellStyle1.BackColor = System.Drawing.Color.Azure
DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridVermerke.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
Me.gridVermerke.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle3.BackColor = System.Drawing.Color.LightBlue
DataGridViewCellStyle3.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridVermerke.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle3
DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle2.BackColor = System.Drawing.Color.LightBlue
DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridVermerke.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle2
Me.gridVermerke.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridVermerke.DefaultCellStyle = DataGridViewCellStyle4
Me.gridVermerke.Dock = System.Windows.Forms.DockStyle.Fill
Me.gridVermerke.Location = New System.Drawing.Point(0, 0)
Me.gridVermerke.MultiSelect = False
Me.gridVermerke.Name = "gridVermerke"
Me.gridVermerke.ReadOnly = True
DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridVermerke.RowHeadersDefaultCellStyle = DataGridViewCellStyle5
Me.gridVermerke.RowHeadersVisible = False
Me.gridVermerke.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridVermerke.RowsDefaultCellStyle = DataGridViewCellStyle6
DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridVermerke.RowsDefaultCellStyle = DataGridViewCellStyle3
Me.gridVermerke.RowTemplate.Height = 20
Me.gridVermerke.RowTemplate.ReadOnly = True
Me.gridVermerke.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridVermerke.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.gridVermerke.ShowCellErrors = False
Me.gridVermerke.ShowRowErrors = False
Me.gridVermerke.Size = New System.Drawing.Size(1206, 261)
Me.gridVermerke.Size = New System.Drawing.Size(1206, 288)
Me.gridVermerke.TabIndex = 0
Me.gridVermerke.TabStop = False
'
@@ -1448,7 +1434,7 @@ Partial Class frmSendungsdetailsNEU
Me.Panel14.ForeColor = System.Drawing.SystemColors.ControlText
Me.Panel14.Location = New System.Drawing.Point(0, 0)
Me.Panel14.Name = "Panel14"
Me.Panel14.Size = New System.Drawing.Size(1214, 37)
Me.Panel14.Size = New System.Drawing.Size(1214, 3)
Me.Panel14.TabIndex = 0
'
'pnlDetails
@@ -1524,6 +1510,7 @@ Partial Class frmSendungsdetailsNEU
Me.txtFrachtkosten._ShortDateNew = False
Me.txtFrachtkosten._ShortDateOnly = False
Me.txtFrachtkosten._TimeOnly = False
Me.txtFrachtkosten._TimeOnly_Seconds = False
Me.txtFrachtkosten._value = ""
Me.txtFrachtkosten._Waehrung = True
Me.txtFrachtkosten._WaehrungZeichen = True
@@ -1600,6 +1587,7 @@ Partial Class frmSendungsdetailsNEU
Me.txtWarenwert._ShortDateNew = False
Me.txtWarenwert._ShortDateOnly = False
Me.txtWarenwert._TimeOnly = False
Me.txtWarenwert._TimeOnly_Seconds = False
Me.txtWarenwert._value = ""
Me.txtWarenwert._Waehrung = False
Me.txtWarenwert._WaehrungZeichen = True
@@ -1717,6 +1705,7 @@ Partial Class frmSendungsdetailsNEU
Me.txtGewicht._ShortDateNew = False
Me.txtGewicht._ShortDateOnly = False
Me.txtGewicht._TimeOnly = False
Me.txtGewicht._TimeOnly_Seconds = False
Me.txtGewicht._value = ""
Me.txtGewicht._Waehrung = False
Me.txtGewicht._WaehrungZeichen = True
@@ -1788,6 +1777,7 @@ Partial Class frmSendungsdetailsNEU
Me.txtColli._ShortDateNew = False
Me.txtColli._ShortDateOnly = False
Me.txtColli._TimeOnly = False
Me.txtColli._TimeOnly_Seconds = False
Me.txtColli._value = ""
Me.txtColli._Waehrung = False
Me.txtColli._WaehrungZeichen = True
@@ -1880,6 +1870,7 @@ Partial Class frmSendungsdetailsNEU
Me.txtBARzuKassieren._ShortDateNew = False
Me.txtBARzuKassieren._ShortDateOnly = False
Me.txtBARzuKassieren._TimeOnly = False
Me.txtBARzuKassieren._TimeOnly_Seconds = False
Me.txtBARzuKassieren._value = ""
Me.txtBARzuKassieren._Waehrung = True
Me.txtBARzuKassieren._WaehrungZeichen = True
@@ -1953,6 +1944,7 @@ Partial Class frmSendungsdetailsNEU
Me.txtVK_Preis._ShortDateNew = False
Me.txtVK_Preis._ShortDateOnly = False
Me.txtVK_Preis._TimeOnly = False
Me.txtVK_Preis._TimeOnly_Seconds = False
Me.txtVK_Preis._value = ""
Me.txtVK_Preis._Waehrung = True
Me.txtVK_Preis._WaehrungZeichen = True
@@ -1975,6 +1967,7 @@ Partial Class frmSendungsdetailsNEU
Me.txtVK_Leistung._ShortDateNew = False
Me.txtVK_Leistung._ShortDateOnly = False
Me.txtVK_Leistung._TimeOnly = False
Me.txtVK_Leistung._TimeOnly_Seconds = False
Me.txtVK_Leistung._value = ""
Me.txtVK_Leistung._Waehrung = False
Me.txtVK_Leistung._WaehrungZeichen = False
@@ -1997,6 +1990,7 @@ Partial Class frmSendungsdetailsNEU
Me.txtVK_Firma._ShortDateNew = False
Me.txtVK_Firma._ShortDateOnly = False
Me.txtVK_Firma._TimeOnly = False
Me.txtVK_Firma._TimeOnly_Seconds = False
Me.txtVK_Firma._value = ""
Me.txtVK_Firma._Waehrung = False
Me.txtVK_Firma._WaehrungZeichen = True
@@ -2056,8 +2050,8 @@ Partial Class frmSendungsdetailsNEU
'clmnPreis
'
Me.clmnPreis.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
DataGridViewCellStyle7.Format = "C2"
Me.clmnPreis.DefaultCellStyle = DataGridViewCellStyle7
DataGridViewCellStyle4.Format = "C2"
Me.clmnPreis.DefaultCellStyle = DataGridViewCellStyle4
Me.clmnPreis.HeaderText = "Preis"
Me.clmnPreis.MaxInputLength = 15
Me.clmnPreis.Name = "clmnPreis"
@@ -2458,6 +2452,7 @@ Partial Class frmSendungsdetailsNEU
Me.txtKdAuftragsNrFrachtfuehrer._ShortDateNew = False
Me.txtKdAuftragsNrFrachtfuehrer._ShortDateOnly = False
Me.txtKdAuftragsNrFrachtfuehrer._TimeOnly = False
Me.txtKdAuftragsNrFrachtfuehrer._TimeOnly_Seconds = False
Me.txtKdAuftragsNrFrachtfuehrer._value = Nothing
Me.txtKdAuftragsNrFrachtfuehrer._Waehrung = False
Me.txtKdAuftragsNrFrachtfuehrer._WaehrungZeichen = True
@@ -2480,6 +2475,7 @@ Partial Class frmSendungsdetailsNEU
Me.txtKdAuftragsNrEmpfaenger._ShortDateNew = False
Me.txtKdAuftragsNrEmpfaenger._ShortDateOnly = False
Me.txtKdAuftragsNrEmpfaenger._TimeOnly = False
Me.txtKdAuftragsNrEmpfaenger._TimeOnly_Seconds = False
Me.txtKdAuftragsNrEmpfaenger._value = Nothing
Me.txtKdAuftragsNrEmpfaenger._Waehrung = False
Me.txtKdAuftragsNrEmpfaenger._WaehrungZeichen = True
@@ -2502,6 +2498,7 @@ Partial Class frmSendungsdetailsNEU
Me.txtKdAuftragsNrAvisierer._ShortDateNew = False
Me.txtKdAuftragsNrAvisierer._ShortDateOnly = False
Me.txtKdAuftragsNrAvisierer._TimeOnly = False
Me.txtKdAuftragsNrAvisierer._TimeOnly_Seconds = False
Me.txtKdAuftragsNrAvisierer._value = Nothing
Me.txtKdAuftragsNrAvisierer._Waehrung = False
Me.txtKdAuftragsNrAvisierer._WaehrungZeichen = True
@@ -3123,6 +3120,7 @@ Partial Class frmSendungsdetailsNEU
Me.txtFrachtfuehrerKdNr._ShortDateNew = False
Me.txtFrachtfuehrerKdNr._ShortDateOnly = False
Me.txtFrachtfuehrerKdNr._TimeOnly = False
Me.txtFrachtfuehrerKdNr._TimeOnly_Seconds = False
Me.txtFrachtfuehrerKdNr._value = Nothing
Me.txtFrachtfuehrerKdNr._Waehrung = False
Me.txtFrachtfuehrerKdNr._WaehrungZeichen = True
@@ -3166,6 +3164,7 @@ Partial Class frmSendungsdetailsNEU
Me.lblEmpfAufschubEust._ShortDateNew = False
Me.lblEmpfAufschubEust._ShortDateOnly = False
Me.lblEmpfAufschubEust._TimeOnly = False
Me.lblEmpfAufschubEust._TimeOnly_Seconds = False
Me.lblEmpfAufschubEust._value = Nothing
Me.lblEmpfAufschubEust._Waehrung = False
Me.lblEmpfAufschubEust._WaehrungZeichen = True
@@ -3272,6 +3271,7 @@ Partial Class frmSendungsdetailsNEU
Me.txtAbsenderKdNr._ShortDateNew = False
Me.txtAbsenderKdNr._ShortDateOnly = False
Me.txtAbsenderKdNr._TimeOnly = False
Me.txtAbsenderKdNr._TimeOnly_Seconds = False
Me.txtAbsenderKdNr._value = Nothing
Me.txtAbsenderKdNr._Waehrung = False
Me.txtAbsenderKdNr._WaehrungZeichen = True
@@ -3308,6 +3308,7 @@ Partial Class frmSendungsdetailsNEU
Me.MyTextBox1._ShortDateNew = False
Me.MyTextBox1._ShortDateOnly = False
Me.MyTextBox1._TimeOnly = False
Me.MyTextBox1._TimeOnly_Seconds = False
Me.MyTextBox1._value = Nothing
Me.MyTextBox1._Waehrung = False
Me.MyTextBox1._WaehrungZeichen = True
@@ -3356,6 +3357,7 @@ Partial Class frmSendungsdetailsNEU
Me.txtEmpfaengerKdNr._ShortDateNew = False
Me.txtEmpfaengerKdNr._ShortDateOnly = False
Me.txtEmpfaengerKdNr._TimeOnly = False
Me.txtEmpfaengerKdNr._TimeOnly_Seconds = False
Me.txtEmpfaengerKdNr._value = Nothing
Me.txtEmpfaengerKdNr._Waehrung = False
Me.txtEmpfaengerKdNr._WaehrungZeichen = True
@@ -3460,6 +3462,7 @@ Partial Class frmSendungsdetailsNEU
Me.lblAtrAufschubEust._ShortDateNew = False
Me.lblAtrAufschubEust._ShortDateOnly = False
Me.lblAtrAufschubEust._TimeOnly = False
Me.lblAtrAufschubEust._TimeOnly_Seconds = False
Me.lblAtrAufschubEust._value = Nothing
Me.lblAtrAufschubEust._Waehrung = False
Me.lblAtrAufschubEust._WaehrungZeichen = True
@@ -3518,6 +3521,7 @@ Partial Class frmSendungsdetailsNEU
Me.txtAuftraggeberKdNr._ShortDateNew = False
Me.txtAuftraggeberKdNr._ShortDateOnly = False
Me.txtAuftraggeberKdNr._TimeOnly = False
Me.txtAuftraggeberKdNr._TimeOnly_Seconds = False
Me.txtAuftraggeberKdNr._value = Nothing
Me.txtAuftraggeberKdNr._Waehrung = False
Me.txtAuftraggeberKdNr._WaehrungZeichen = True
@@ -3635,6 +3639,7 @@ Partial Class frmSendungsdetailsNEU
Me.txtAvisiererKdNr._ShortDateNew = False
Me.txtAvisiererKdNr._ShortDateOnly = False
Me.txtAvisiererKdNr._TimeOnly = False
Me.txtAvisiererKdNr._TimeOnly_Seconds = False
Me.txtAvisiererKdNr._value = Nothing
Me.txtAvisiererKdNr._Waehrung = False
Me.txtAvisiererKdNr._WaehrungZeichen = True
@@ -3659,6 +3664,7 @@ Partial Class frmSendungsdetailsNEU
Me.txtKdAuftragsNr._ShortDateNew = False
Me.txtKdAuftragsNr._ShortDateOnly = False
Me.txtKdAuftragsNr._TimeOnly = False
Me.txtKdAuftragsNr._TimeOnly_Seconds = False
Me.txtKdAuftragsNr._value = Nothing
Me.txtKdAuftragsNr._Waehrung = False
Me.txtKdAuftragsNr._WaehrungZeichen = True
@@ -3721,6 +3727,7 @@ Partial Class frmSendungsdetailsNEU
Me.txtAnzahlPos._ShortDateNew = False
Me.txtAnzahlPos._ShortDateOnly = False
Me.txtAnzahlPos._TimeOnly = False
Me.txtAnzahlPos._TimeOnly_Seconds = False
Me.txtAnzahlPos._value = ""
Me.txtAnzahlPos._Waehrung = False
Me.txtAnzahlPos._WaehrungZeichen = True
@@ -3896,6 +3903,7 @@ Partial Class frmSendungsdetailsNEU
Me.txtFremdEmpfKdNR._ShortDateNew = False
Me.txtFremdEmpfKdNR._ShortDateOnly = False
Me.txtFremdEmpfKdNR._TimeOnly = False
Me.txtFremdEmpfKdNR._TimeOnly_Seconds = False
Me.txtFremdEmpfKdNR._value = Nothing
Me.txtFremdEmpfKdNR._Waehrung = False
Me.txtFremdEmpfKdNR._WaehrungZeichen = True
@@ -3975,6 +3983,7 @@ Partial Class frmSendungsdetailsNEU
Me.txtAnzahl._ShortDateNew = False
Me.txtAnzahl._ShortDateOnly = False
Me.txtAnzahl._TimeOnly = False
Me.txtAnzahl._TimeOnly_Seconds = False
Me.txtAnzahl._value = ""
Me.txtAnzahl._Waehrung = False
Me.txtAnzahl._WaehrungZeichen = True
@@ -4033,6 +4042,7 @@ Partial Class frmSendungsdetailsNEU
Me.txtUnterNr._ShortDateNew = False
Me.txtUnterNr._ShortDateOnly = False
Me.txtUnterNr._TimeOnly = False
Me.txtUnterNr._TimeOnly_Seconds = False
Me.txtUnterNr._value = Nothing
Me.txtUnterNr._Waehrung = False
Me.txtUnterNr._WaehrungZeichen = True
@@ -4091,6 +4101,7 @@ Partial Class frmSendungsdetailsNEU
Me.txtAbfertigungsnummer._ShortDateNew = False
Me.txtAbfertigungsnummer._ShortDateOnly = False
Me.txtAbfertigungsnummer._TimeOnly = False
Me.txtAbfertigungsnummer._TimeOnly_Seconds = False
Me.txtAbfertigungsnummer._value = Nothing
Me.txtAbfertigungsnummer._Waehrung = False
Me.txtAbfertigungsnummer._WaehrungZeichen = True
@@ -4637,7 +4648,6 @@ Partial Class frmSendungsdetailsNEU
'
Me.BindingNavigatorPositionItem.AccessibleName = "Position"
Me.BindingNavigatorPositionItem.AutoSize = False
Me.BindingNavigatorPositionItem.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem"
Me.BindingNavigatorPositionItem.Size = New System.Drawing.Size(50, 23)
Me.BindingNavigatorPositionItem.Text = "0"
@@ -4698,22 +4708,28 @@ Partial Class frmSendungsdetailsNEU
'cntxtOptions
'
Me.cntxtOptions.ImageScalingSize = New System.Drawing.Size(24, 24)
Me.cntxtOptions.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem1, Me.GelangensbestätigungToolStripMenuItem})
Me.cntxtOptions.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem1, Me.GelangensbestätigungToolStripMenuItem, Me.KreditlimitRisikobewertungToolStripMenuItem})
Me.cntxtOptions.Name = "cntxtVorauskasse"
Me.cntxtOptions.Size = New System.Drawing.Size(203, 48)
Me.cntxtOptions.Size = New System.Drawing.Size(223, 70)
'
'ToolStripMenuItem1
'
Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
Me.ToolStripMenuItem1.Size = New System.Drawing.Size(202, 22)
Me.ToolStripMenuItem1.Size = New System.Drawing.Size(222, 22)
Me.ToolStripMenuItem1.Text = "Alle Aktenzettel drucken"
'
'GelangensbestätigungToolStripMenuItem
'
Me.GelangensbestätigungToolStripMenuItem.Name = "GelangensbestätigungToolStripMenuItem"
Me.GelangensbestätigungToolStripMenuItem.Size = New System.Drawing.Size(202, 22)
Me.GelangensbestätigungToolStripMenuItem.Size = New System.Drawing.Size(222, 22)
Me.GelangensbestätigungToolStripMenuItem.Text = "Gelangensbestätigung"
'
'KreditlimitRisikobewertungToolStripMenuItem
'
Me.KreditlimitRisikobewertungToolStripMenuItem.Name = "KreditlimitRisikobewertungToolStripMenuItem"
Me.KreditlimitRisikobewertungToolStripMenuItem.Size = New System.Drawing.Size(222, 22)
Me.KreditlimitRisikobewertungToolStripMenuItem.Text = "Kreditlimit/Risikobewertung"
'
'ctxtWeitereFormulare
'
Me.ctxtWeitereFormulare.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.toolGelangensbestätigung, Me.toolOriginalSendungsunterlagen, Me.LaufzettelDruckenToolStripMenuItem, Me.ZollstoppAMBARToolStripMenuItem, Me.ATANAKToolStripMenuItem})
@@ -4873,13 +4889,13 @@ Partial Class frmSendungsdetailsNEU
Me.pnl.PerformLayout()
Me.Panel4.ResumeLayout(False)
Me.TabControl1.ResumeLayout(False)
Me.tbKundenInfo.ResumeLayout(False)
Me.tbAnhang.ResumeLayout(False)
CType(Me.dgvAnhang, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel19.ResumeLayout(False)
Me.Panel19.PerformLayout()
Me.Panel21.ResumeLayout(False)
Me.Panel21.PerformLayout()
Me.tbKundenInfo.ResumeLayout(False)
Me.tbZollabfertigung.ResumeLayout(False)
Me.Panel16.ResumeLayout(False)
Me.Panel16.PerformLayout()
@@ -5299,4 +5315,5 @@ Partial Class frmSendungsdetailsNEU
Friend WithEvents ToolStripMenuItem24 As ToolStripMenuItem
Friend WithEvents AbrechungFremdeGrenzeAktDruckenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents Panel22 As Panel
Friend WithEvents KreditlimitRisikobewertungToolStripMenuItem As ToolStripMenuItem
End Class

10
Aviso/frmSendungsdetailsNEU.resx
View File

@@ -1827,7 +1827,7 @@
<data name="BindingNavigatorAddNewItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wAAADsABataJCQAAAUpJREFUOE9jGLzg7gL2/7fmcf6/Oofr/8UZvP+hwsSD60CNfx41/v/zsOH/yckC
vAAADrwBlbxySQAAAUpJREFUOE9jGLzg7gL2/7fmcf6/Oofr/8UZvP+hwsSD60CNfx41/v/zsOH/yckC
pBtwfjov3ICDPSKkG3B8kiBQc93/Pw+q/u9oFydswKWZPP/PTuX7fxKo8Ui/0P993SJAzeX//94r+r++
Qeb/qhq5/0srFf/PL1X+P6tIFdPAU0B//nlYD9RUC8SV///cKwHivP9/72b+/3sn+f/f23H//92MAOKQ
/5NyNDENONQrDHbu3/ulQI0FQI3ZQI2pQI0J///digZqDPv/70bQ/3/X/f53peliGrCzXeL/lmap/+vA
@@ -1839,7 +1839,7 @@
<data name="BindingNavigatorDeleteItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wAAADsABataJCQAAAW9JREFUOE+1kE0ow2Ecx3dV3krt4oJaOSCTvIRkMqSxyITIzCQHDouEdnFwIOVC
vAAADrwBlbxySQAAAW9JREFUOE+1kE0ow2Ecx3dV3krt4oJaOSCTvIRkMqSxyITIzCQHDouEdnFwIOVC
DrhIDiQl5UTiNG/z2ppafy1S2gX/uDwfY6i1v7Hie3nqeb7fz+/7/FR/Ilwn0G0Exw4fV5GJlXlEZxXC
rIet9bAQvB5Ymgn2sLYAvSZEux7RUQFzE4qQt4bCXAYjPaHvnDoCkLpsRGMB2JqCTGLIijDlwqQ9bEMV
i9OIytR3EMNWcJ/BWH8A6j8/bOGFxwXNxYEvGbMQ9XnQ1/K78KfY3/VXzkMY0qFGG2H4RoLGQshJQNbG
@@ -1851,7 +1851,7 @@
<data name="BindingNavigatorMoveLastItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wAAADsABataJCQAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+//
vAAADrwBlbxySQAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+//
h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B
twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA
kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG
@@ -1862,7 +1862,7 @@
<data name="BindingNavigatorMoveNextItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wAAADsABataJCQAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78
vAAADrwBlbxySQAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78
n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI
N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f
oAc0QjgAAAAASUVORK5CYII=
@@ -1871,7 +1871,7 @@
<data name="BindingNavigatorMovePreviousItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wAAADsABataJCQAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w
vAAADrwBlbxySQAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w
5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f
Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+
08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC

182
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -111,12 +111,12 @@ Public Class frmSendungsdetailsNEU
SAVE_ME = True
If saveAll Then
For Each s In SENDUNG_LIST
If s.SAVE() = False Then SAVE_ME = False
If s.SAVE(False) = False Then SAVE_ME = False
s.SAVE_HANDLING() 'derzeit ohne Funktion
s.SAVE_VORKOSTEN() 'derzeit ohne Funktion
Next
Else
SENDUNG_LIST(CURRENT_INDEX).SAVE() 'Nur noch aktuelle Sendung speichern
SENDUNG_LIST(CURRENT_INDEX).SAVE(False) 'Nur noch aktuelle Sendung speichern
SENDUNG_LIST(CURRENT_INDEX).SAVE_HANDLING() 'derzeit ohne Funktion
SENDUNG_LIST(CURRENT_INDEX).SAVE_VORKOSTEN() 'derzeit ohne Funktion
End If
@@ -227,6 +227,14 @@ Public Class frmSendungsdetailsNEU
' If e.Modifiers = Keys.Shift AndAlso e.KeyCode = Keys.D9 Then tmpsendId = 18
' If e.Modifiers = Keys.Shift AndAlso e.KeyCode = Keys.D0 Then tmpsendId = 19
If e.Modifiers = Keys.Alt AndAlso e.KeyCode = Keys.D1 Then TabControl1.SelectedIndex = 0
If e.Modifiers = Keys.Alt AndAlso e.KeyCode = Keys.D2 Then TabControl1.SelectedIndex = 1
If e.Modifiers = Keys.Alt AndAlso e.KeyCode = Keys.D3 Then TabControl1.SelectedIndex = 2
If e.Modifiers = Keys.Alt AndAlso e.KeyCode = Keys.D4 Then TabControl1.SelectedIndex = 3
If e.Modifiers = Keys.Alt AndAlso e.KeyCode = Keys.D5 Then TabControl1.SelectedIndex = 4
If e.Modifiers = Keys.Alt AndAlso e.KeyCode = Keys.D6 Then TabControl1.SelectedIndex = 5
If tmpsendId >= 0 Then
Try : If tmpsendId < SENDUNG_LIST.Count Then
CURRENT_INDEX = tmpsendId
@@ -315,6 +323,8 @@ Public Class frmSendungsdetailsNEU
'rtbAnmerkungDispoliste.Visible = False
Case "ATILLA" : sbWhere = " AND Niederlassung = 'SUA' "
Case "VERIMEX"
TabControl1.SelectedTab = tbAnhang
Case "UNISPED"
txtDyRef.Visible = True
picDy.Visible = True
@@ -599,6 +609,26 @@ Public Class frmSendungsdetailsNEU
End Try
End Sub
Private Sub kdAvisierer_KeyDown(sender As Object, e As KeyEventArgs) Handles txtAuftraggeber.KeyDown
If e.Modifiers = Keys.Control And e.KeyCode = Keys.D0 Then
LinkLabel1_LinkClicked(LinkLabel1, New EventArgs)
End If
End Sub
Private Sub txtEmpfaenger_KeyDown(sender As Object, e As KeyEventArgs) Handles txtEmpfaenger.KeyDown
If e.Modifiers = Keys.Control And e.KeyCode = Keys.D0 Then
lklAuftraggeber_LinkClicked(lklAuftraggeber, New EventArgs)
End If
End Sub
Private Sub txtAbsender_KeyDown(sender As Object, e As KeyEventArgs) Handles txtAbsender.KeyDown
If e.Modifiers = Keys.Control And e.KeyCode = Keys.D0 Then
LinkLabel2_LinkClicked(LinkLabel2, New EventArgs)
End If
End Sub
Private Sub txtFrachtfuehrer_KeyDown(sender As Object, e As KeyEventArgs) Handles txtFrachtfuehrer.KeyDown
If e.Modifiers = Keys.Control And e.KeyCode = Keys.D0 Then
LinkLabel4_LinkClicked(LinkLabel4, New EventArgs)
End If
End Sub
Sub fillUIDEORI(kdSB As VERAG_PROG_ALLGEMEIN.KdSearchBox)
btnEORIPruef.Visible = False
btnUIDPruef.Visible = False
@@ -700,6 +730,9 @@ Public Class frmSendungsdetailsNEU
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("frmSendungsdetails", Me) And Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("frmSendungsdetailsNEU", Me) Then
Me.Close()
End If
If TabControl1.SelectedTab Is tbKundenInfo Then
txtAuftraggeber.Focus() ' Damit in tbKundeninfo ausgewählt
End If
' Button13.Location = New Point(Button13.Left, 0)
' Dim ber As Integer = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG(Me)
' If ber >= 99 Then
@@ -873,7 +906,7 @@ Public Class frmSendungsdetailsNEU
Dim NEW_SND As New VERAG_PROG_ALLGEMEIN.cSendungen(AvisoId, SENDUNG_LIST.Count + 1, filiale_tmp, Nothing, 0, 0) 'Neue Sendung erstellen
' SENDUNG_LIST.Add(NEW_SND)
NEW_SND.SAVE() 'Insert neue Sendung
NEW_SND.SAVE(False) 'Insert neue Sendung
VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, CURRENT_INDEX, AvisoId, False) 'Alle Sendungen neu laden
' initDataBinding()
LAST_SENDUNG(False) 'letzte Sendung
@@ -1291,7 +1324,7 @@ Public Class frmSendungsdetailsNEU
' initSpeditionbuch()
initTab()
initGesColliGewicht()
initKdInfo(-1)
' initKdInfo(-1)
SENDUNG_LIST(CURRENT_INDEX).LOAD_VORKOSTEN()
If tbcntr.SelectedTab Is tbBAR Then
@@ -1304,8 +1337,28 @@ Public Class frmSendungsdetailsNEU
sperrePanel()
LOAD_ABRECHUNG()
'STARK Spezial:
'-------------------------
If SENDUNG_LIST(CURRENT_INDEX).tblSnd_AvisiererKdNr = 714875 Then
If txtAuftraggeber.Text = "" Then txtAuftraggeber.KdNr = 714875
If txtAbsender.Text = "" Then txtAbsender.KdNr = 719810
If txtEmpfaenger.Text = "" Then txtEmpfaenger.KdNr = 714875
If txtAuftraggeber.Text = "" Then txtAuftraggeber.KdNr = 714875
If SENDUNG_LIST(CURRENT_INDEX).ABRECHNUNG.Count = 0 Then
cntlAuftr_Zoll.lbl.Text = "X"
cntlAuftr_Eust.lbl.Text = "X"
cntlAuftr_Abf.lbl.Text = "X"
End If
End If
'-------------------------
Panel2.MinimumSize = New Size(0, FlowLayoutPanel.Height) '+ pnlheader.Height) ' damit das S***** Flowlayoutpanel nicht abgeschnitten wird...
'SAVE_ME ??????!!!!!!!
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
@@ -1786,7 +1839,9 @@ Public Class frmSendungsdetailsNEU
Private Sub setCboSelected(standardDrucker As String)
If Me.InvokeRequired Then
Dim d As New setCboSelectedCallback(AddressOf setCboSelected)
Me.Invoke(d, New Object() {standardDrucker})
Try
Me.Invoke(d, New Object() {standardDrucker})
Catch ex As Exception : End Try
Else
Dim found As Boolean = False
' For Each i In cboPrinter.Items
@@ -2868,6 +2923,12 @@ Public Class frmSendungsdetailsNEU
initVermerke()
ElseIf TabControl1.SelectedTab Is tbAnhang Then
initAnhang()
ElseIf TabControl1.SelectedTab Is tbKundenInfo Then
Dim kdSrc As VERAG_PROG_ALLGEMEIN.KdSearchBox = txtAuftraggeber
If kdSrc.KdNr_value <= 0 Then kdSrc = txtEmpfaenger
kdSrc.Focus() ' Damit in tbKundeninfo ausgewählt
initKdInfo(kdSrc.KdNr_value)
Button13.Focus() 'Damit focus wieder weggeht
End If
End Sub
@@ -3861,7 +3922,7 @@ Public Class frmSendungsdetailsNEU
For Each s In SENDUNG_LIST
s.tblSnd_KdAuftragsNrAvisierer = Atrnr
s.SAVE()
s.SAVE(False)
Next
End Sub
@@ -4296,7 +4357,7 @@ Public Class frmSendungsdetailsNEU
If vbYes = MsgBox("Möchten Sie die Vorkosten-Position wirklich löschen?", vbYesNoCancel) Then
Dim VK = SENDUNG_LIST(CURRENT_INDEX).VORKOSTEN.Find(Function(x) x.sndvk_id = dgvVorkosten.SelectedRows(0).Cells("clmnVK_id").Value)
SENDUNG_LIST(CURRENT_INDEX).VORKOSTEN.Remove(VK)
SENDUNG_LIST(CURRENT_INDEX).SAVE()
SENDUNG_LIST(CURRENT_INDEX).SAVE(False)
initDGVVorkosten()
End If
End If
@@ -4600,7 +4661,8 @@ Public Class frmSendungsdetailsNEU
Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("anh_docId").Value), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
Next
Mail.Subject = AVISO.ImEx & " / " & AVISO.LKW_Nr & " / " & "ETA: " & If(AVISO.VoraussichtlichesEintreffen IsNot Nothing, CDate(AVISO.VoraussichtlichesEintreffen).ToShortDateString, "") & " // VERAG"
Mail.To = "european@atanak.com"
'Mail.To = "european@atanak.com"
Mail.To = "european@dailygroupage.com"
Dim TextHTML = ""
TextHTML &= "Dear Atanak Team,<br>"
@@ -4708,8 +4770,110 @@ Public Class frmSendungsdetailsNEU
VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(l.anh_docId)})
End Select
Next
For Each l In ANH_LIST_SND
Select Case l.anh_Art.ToString.ToUpper
Case "ATR"
VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(l.anh_docId)})
End Select
Next
End Sub
Private Sub KreditlimitRisikobewertungToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KreditlimitRisikobewertungToolStripMenuItem.Click
checkKreditlimit(Me, AVISO, SENDUNG_LIST(CURRENT_INDEX), False, True)
End Sub
Shared Sub checkKreditlimit_ID(FORM As Form, ByRef AvisoID As Integer, ByRef SendungsID As Integer, allowInsertVermerk As Boolean, showNoErg As Boolean)
Dim AVISO = VERAG_PROG_ALLGEMEIN.cAviso.getAvisoById(AvisoID)
Dim SND = New VERAG_PROG_ALLGEMEIN.cSendungen(SendungsID)
checkKreditlimit(FORM, AVISO, SND, allowInsertVermerk, showNoErg)
End Sub
Shared Sub checkKreditlimit(FORM As Form, ByRef AVISO As VERAG_PROG_ALLGEMEIN.cAviso, ByRef SND As VERAG_PROG_ALLGEMEIN.cSendungen, allowInsertVermerk As Boolean, showNoErg As Boolean)
Try
If AVISO Is Nothing Then Exit Sub
If SND Is Nothing Then Exit Sub
FORM.Cursor = Cursors.WaitCursor
Dim listKdNr As New List(Of Integer)
Dim f As frmSndVorgeschriebenSetzen = Nothing
Dim TmpKdNr As Integer
Dim found = False
If SND.ABRECHNUNG.Exists(Function(x) x.sndabr_beteiligter = "EMPF") Then ' Wenn barechnugn an Empf
TmpKdNr = SND.tblSnd_EmpfaengerKdNr
If Not listKdNr.Contains(TmpKdNr) Then
f = New AVISO.frmSndVorgeschriebenSetzen(AVISO, SND, TmpKdNr)
f.ShowDialog(FORM)
If f.ueberschreitungFound Then
found = True
If allowInsertVermerk Then AvisoStatusFunctions.insertSendungsVermerk(SND.tblSnd_SendungID, AVISO.AvisoID, "Kreditlimit überzogen: " & SND.tblSnd_Empfaenger & " | " & f.lblUeberzeihung.Text, 95,,, True)
End If
listKdNr.Add(TmpKdNr)
End If
End If
FORM.Cursor = Cursors.WaitCursor
If SND.ABRECHNUNG.Exists(Function(x) x.sndabr_beteiligter = "AUFTR") Then ' Wenn barechnugn an Empf
TmpKdNr = SND.tblSnd_AuftraggeberKdNr
If Not listKdNr.Contains(TmpKdNr) Then
f = New AVISO.frmSndVorgeschriebenSetzen(AVISO, SND, TmpKdNr)
f.ShowDialog(FORM)
If f.ueberschreitungFound Then
found = True
If allowInsertVermerk Then AvisoStatusFunctions.insertSendungsVermerk(SND.tblSnd_SendungID, AVISO.AvisoID, "Kreditlimit überzogen: " & SND.tblSnd_Auftraggeber & " | " & f.lblUeberzeihung.Text, 95,,, True)
End If
listKdNr.Add(TmpKdNr)
End If
End If
FORM.Cursor = Cursors.WaitCursor
If SND.ABRECHNUNG.Exists(Function(x) x.sndabr_beteiligter = "ABS") Then ' Wenn barechnugn an Empf
TmpKdNr = SND.tblSnd_AbsenderKdNr
If Not listKdNr.Contains(TmpKdNr) Then
f = New AVISO.frmSndVorgeschriebenSetzen(AVISO, SND, TmpKdNr)
f.ShowDialog(FORM)
If f.ueberschreitungFound Then
found = True
If allowInsertVermerk Then AvisoStatusFunctions.insertSendungsVermerk(SND.tblSnd_SendungID, AVISO.AvisoID, "Kreditlimit überzogen: " & SND.tblSnd_Absender & " | " & f.lblUeberzeihung.Text, 95,,, True)
End If
listKdNr.Add(TmpKdNr)
End If
End If
FORM.Cursor = Cursors.WaitCursor
If SND.ABRECHNUNG.Exists(Function(x) x.sndabr_beteiligter = "AVISIERER") Then ' Wenn barechnugn an Empf
TmpKdNr = SND.tblSnd_AvisiererKdNr
If Not listKdNr.Contains(TmpKdNr) Then
f = New AVISO.frmSndVorgeschriebenSetzen(AVISO, SND, TmpKdNr)
f.ShowDialog(FORM)
If f.ueberschreitungFound Then
found = True
If allowInsertVermerk Then AvisoStatusFunctions.insertSendungsVermerk(SND.tblSnd_SendungID, AVISO.AvisoID, "Kreditlimit überzogen: " & SND.tblSnd_Avisierer & " | " & f.lblUeberzeihung.Text, 95,,, True)
End If
listKdNr.Add(TmpKdNr)
End If
End If
FORM.Cursor = Cursors.WaitCursor
If SND.ABRECHNUNG.Exists(Function(x) x.sndabr_beteiligter = "FRACHTF") Then ' Wenn barechnugn an Empf
TmpKdNr = SND.tblSnd_FrachtfuehrerKdNr
If Not listKdNr.Contains(TmpKdNr) Then
f = New AVISO.frmSndVorgeschriebenSetzen(AVISO, SND, TmpKdNr)
f.ShowDialog(FORM)
If f.ueberschreitungFound Then
found = True
If allowInsertVermerk Then AvisoStatusFunctions.insertSendungsVermerk(SND.tblSnd_SendungID, AVISO.AvisoID, "Kreditlimit überzogen: " & SND.tblSnd_Frachtfuehrer & " | " & f.lblUeberzeihung.Text, 95,,, True)
End If
listKdNr.Add(TmpKdNr)
End If
End If
If Not found Then
If showNoErg Then MsgBox("Keine Überschreitungen gefunden.")
End If
Catch ex As Exception
End Try
FORM.Cursor = Cursors.Default
End Sub
End Class

293
Aviso/frmSndVorgeschriebenSetzen.Designer.vb generated Normal file
View File

@@ -0,0 +1,293 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmSndVorgeschriebenSetzen
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSndVorgeschriebenSetzen))
Me.pnl = New System.Windows.Forms.Panel()
Me.lblKunde = New System.Windows.Forms.Label()
Me.Label12 = New System.Windows.Forms.Label()
Me.Label10 = New System.Windows.Forms.Label()
Me.lblUeberzeihung = New System.Windows.Forms.Label()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.Label8 = New System.Windows.Forms.Label()
Me.lblKreditlimit = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
Me.lblRisiko = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.lblEUST = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.Button1 = New System.Windows.Forms.Button()
Me.Label6 = New System.Windows.Forms.Label()
Me.lblOPSaldo = New System.Windows.Forms.Label()
Me.btn = New System.Windows.Forms.Button()
Me.Label3 = New System.Windows.Forms.Label()
Me.pnl.SuspendLayout()
Me.Panel1.SuspendLayout()
Me.SuspendLayout()
'
'pnl
'
Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnl.Controls.Add(Me.lblKunde)
Me.pnl.Controls.Add(Me.Label12)
Me.pnl.Controls.Add(Me.Label10)
Me.pnl.Controls.Add(Me.lblUeberzeihung)
Me.pnl.Controls.Add(Me.Panel2)
Me.pnl.Controls.Add(Me.Label8)
Me.pnl.Controls.Add(Me.lblKreditlimit)
Me.pnl.Controls.Add(Me.Label5)
Me.pnl.Controls.Add(Me.lblRisiko)
Me.pnl.Controls.Add(Me.Label2)
Me.pnl.Controls.Add(Me.lblEUST)
Me.pnl.Controls.Add(Me.Label1)
Me.pnl.Controls.Add(Me.Panel1)
Me.pnl.Controls.Add(Me.lblOPSaldo)
Me.pnl.Controls.Add(Me.btn)
Me.pnl.Controls.Add(Me.Label3)
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(494, 370)
Me.pnl.TabIndex = 0
'
'lblKunde
'
Me.lblKunde.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
Me.lblKunde.Location = New System.Drawing.Point(13, 101)
Me.lblKunde.Name = "lblKunde"
Me.lblKunde.Size = New System.Drawing.Size(462, 23)
Me.lblKunde.TabIndex = 65
Me.lblKunde.Text = "Kunde GmbH; SUBEN"
'
'Label12
'
Me.Label12.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.Label12.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Label12.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
Me.Label12.Location = New System.Drawing.Point(13, 295)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(256, 62)
Me.Label12.TabIndex = 64
Me.Label12.Text = "Bitte umgehend mit Buchhaltung oder Abteilungsleitung Rücksprache halten!"
'
'Label10
'
Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
Me.Label10.Location = New System.Drawing.Point(56, 257)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(206, 26)
Me.Label10.TabIndex = 63
Me.Label10.Text = "Überziehung"
'
'lblUeberzeihung
'
Me.lblUeberzeihung.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle))
Me.lblUeberzeihung.ForeColor = System.Drawing.Color.Red
Me.lblUeberzeihung.Location = New System.Drawing.Point(216, 257)
Me.lblUeberzeihung.Name = "lblUeberzeihung"
Me.lblUeberzeihung.Size = New System.Drawing.Size(166, 26)
Me.lblUeberzeihung.TabIndex = 62
Me.lblUeberzeihung.Text = "€ 0,-"
Me.lblUeberzeihung.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'Panel2
'
Me.Panel2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Panel2.Location = New System.Drawing.Point(15, 190)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(458, 1)
Me.Panel2.TabIndex = 61
'
'Label8
'
Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
Me.Label8.Location = New System.Drawing.Point(56, 224)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(206, 26)
Me.Label8.TabIndex = 60
Me.Label8.Text = "Kreditlimit"
'
'lblKreditlimit
'
Me.lblKreditlimit.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
Me.lblKreditlimit.Location = New System.Drawing.Point(216, 224)
Me.lblKreditlimit.Name = "lblKreditlimit"
Me.lblKreditlimit.Size = New System.Drawing.Size(166, 26)
Me.lblKreditlimit.TabIndex = 59
Me.lblKreditlimit.Text = "€ 0,-"
Me.lblKreditlimit.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'Label5
'
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
Me.Label5.Location = New System.Drawing.Point(56, 194)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(206, 26)
Me.Label5.TabIndex = 58
Me.Label5.Text = "Risiko:"
'
'lblRisiko
'
Me.lblRisiko.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
Me.lblRisiko.Location = New System.Drawing.Point(216, 194)
Me.lblRisiko.Name = "lblRisiko"
Me.lblRisiko.Size = New System.Drawing.Size(166, 26)
Me.lblRisiko.TabIndex = 57
Me.lblRisiko.Text = "€ 0,-"
Me.lblRisiko.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'Label2
'
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
Me.Label2.Location = New System.Drawing.Point(56, 166)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(206, 26)
Me.Label2.TabIndex = 56
Me.Label2.Text = "EUST/ZOLL (ausstehend)"
'
'lblEUST
'
Me.lblEUST.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
Me.lblEUST.Location = New System.Drawing.Point(216, 166)
Me.lblEUST.Name = "lblEUST"
Me.lblEUST.Size = New System.Drawing.Size(166, 26)
Me.lblEUST.TabIndex = 55
Me.lblEUST.Text = "€ 0,-"
Me.lblEUST.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'Label1
'
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
Me.Label1.Location = New System.Drawing.Point(56, 140)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(206, 26)
Me.Label1.TabIndex = 54
Me.Label1.Text = "Offene Posten:"
'
'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.Button1)
Me.Panel1.Controls.Add(Me.Label6)
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(492, 41)
Me.Panel1.TabIndex = 53
'
'Button1
'
Me.Button1.BackColor = System.Drawing.Color.Red
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
Me.Button1.ForeColor = System.Drawing.Color.White
Me.Button1.Location = New System.Drawing.Point(408, -1)
Me.Button1.Margin = New System.Windows.Forms.Padding(0)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(85, 33)
Me.Button1.TabIndex = 1
Me.Button1.Text = "x"
Me.Button1.UseVisualStyleBackColor = False
'
'Label6
'
Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
Me.Label6.ForeColor = System.Drawing.Color.White
Me.Label6.Location = New System.Drawing.Point(13, 6)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(467, 26)
Me.Label6.TabIndex = 51
Me.Label6.Text = "Kreditlimit / Risikobewertung"
Me.Label6.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'lblOPSaldo
'
Me.lblOPSaldo.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
Me.lblOPSaldo.Location = New System.Drawing.Point(216, 140)
Me.lblOPSaldo.Name = "lblOPSaldo"
Me.lblOPSaldo.Size = New System.Drawing.Size(166, 26)
Me.lblOPSaldo.TabIndex = 50
Me.lblOPSaldo.Text = "€ 0,-"
Me.lblOPSaldo.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'btn
'
Me.btn.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
Me.btn.ForeColor = System.Drawing.Color.White
Me.btn.Location = New System.Drawing.Point(275, 295)
Me.btn.Name = "btn"
Me.btn.Size = New System.Drawing.Size(206, 62)
Me.btn.TabIndex = 0
Me.btn.Text = "OK"
Me.btn.UseVisualStyleBackColor = False
'
'Label3
'
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 30.0!, System.Drawing.FontStyle.Bold)
Me.Label3.Location = New System.Drawing.Point(6, 54)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(469, 57)
Me.Label3.TabIndex = 52
Me.Label3.Text = "LIMIT überschritten!"
'
'frmSndVorgeschriebenSetzen
'
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(494, 370)
Me.Controls.Add(Me.pnl)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmSndVorgeschriebenSetzen"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
Me.Text = "Ankunft setzen"
Me.pnl.ResumeLayout(False)
Me.Panel1.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
Friend WithEvents pnl As Panel
Friend WithEvents Button1 As Button
Friend WithEvents btn As Button
Friend WithEvents Panel1 As Panel
Friend WithEvents Label6 As Label
Friend WithEvents lblOPSaldo As Label
Friend WithEvents Label3 As Label
Friend WithEvents Label12 As Label
Friend WithEvents Label10 As Label
Friend WithEvents lblUeberzeihung As Label
Friend WithEvents Panel2 As Panel
Friend WithEvents Label8 As Label
Friend WithEvents lblKreditlimit As Label
Friend WithEvents Label5 As Label
Friend WithEvents lblRisiko As Label
Friend WithEvents Label2 As Label
Friend WithEvents lblEUST As Label
Friend WithEvents Label1 As Label
Friend WithEvents lblKunde As Label
End Class

1253
Aviso/frmSndVorgeschriebenSetzen.resx Normal file
View File

File diff suppressed because it is too large Load Diff

161
Aviso/frmSndVorgeschriebenSetzen.vb Normal file
View File

@@ -0,0 +1,161 @@
Public Class frmSndVorgeschriebenSetzen
Public AVISO As VERAG_PROG_ALLGEMEIN.cAviso = Nothing
Public SND As VERAG_PROG_ALLGEMEIN.cSendungen = Nothing
Dim AvisoDAL As New VERAG_PROG_ALLGEMEIN.cAvisoDAL
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Public KD As VERAG_PROG_ALLGEMEIN.cKunde = Nothing
Public AD As VERAG_PROG_ALLGEMEIN.cAdressen = Nothing
Public ueberschreitungFound As Boolean = False
Dim TmpFirma As String = ""
Sub New(AvisoId As Integer, ByRef SND As VERAG_PROG_ALLGEMEIN.cSendungen, KdNr As Integer)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.AVISO = AvisoDAL.LesenAviso(AvisoId, "")
Me.SND = SND
If KdNr > 0 Then
KD = New VERAG_PROG_ALLGEMEIN.cKunde(KdNr)
If KD IsNot Nothing Then
AD = New VERAG_PROG_ALLGEMEIN.cAdressen(KD.KundenNrZentrale)
End If
End If
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Sub New(ByRef Aviso As VERAG_PROG_ALLGEMEIN.cAviso, ByRef SND As VERAG_PROG_ALLGEMEIN.cSendungen, KdNr As Integer)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.AVISO = Aviso
Me.SND = SND
If KdNr > 0 Then
KD = New VERAG_PROG_ALLGEMEIN.cKunde(KdNr)
If KD IsNot Nothing Then
AD = New VERAG_PROG_ALLGEMEIN.cAdressen(KD.KundenNrZentrale)
End If
End If
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub pnl_Paint(sender As Object, e As PaintEventArgs) Handles pnl.Paint
End Sub
Private Sub frmAnkunftSetzen_Load(sender As Object, e As EventArgs) Handles Me.Load
btn.Focus()
TmpFirma = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(KD.FilialenNr)
If AVISO IsNot Nothing And SND IsNot Nothing And AD IsNot Nothing And KD IsNot Nothing Then
Select Case TmpFirma
Case "UNISPED", "AMBAR", "" 'Kein Kreditlimit
Me.Close()
Exit Sub
End Select
If KD.Kreditlimit Is Nothing OrElse KD.Kreditlimit = 2600 OrElse KD.Kreditlimit = 0 Then ' Kein Limit hinterlegt
Me.Close()
Exit Sub
End If
If Not calcUeberzeihung() Then
Me.Close() ' Keine Überzieheung
Exit Sub
Else
ueberschreitungFound = True
End If
Else
Me.Close()
End If
End Sub
Function calcUeberzeihung() As Boolean
Try
Label3.Visible = False
Label12.Visible = False
lblUeberzeihung.Text = "-"
lblKunde.Text = KD.KundenNrZentrale & " " & AD.Ordnungsbegriff
Dim OP_Saldo As Double = 0
Dim EUST As Double = 0
Dim Risiko As Double = 0
Dim Kreditlimit As Double = 0
Dim Ueberziehung As Double = 0
Dim KdNr As Integer = KD.KundenNrZentrale
If TmpFirma = "IMEX" Then
OP_Saldo = CDbl(SQL.getValueTxtBySql("SELECT isnull(sum([Buchungsbetrag_SOLL]),0)-isnull(sum([Buchungsbetrag_HABEN]),0) FROM [Offene_Posten_DVO] WHERE [Konto]='" & KdNr & "'", "FMZOLL",,, 0))
Else
OP_Saldo = CDbl(SQL.getValueTxtBySql("SELECT sum(Gesamtausstand) FROM [Offene Posten] where Kontonummer='" & KdNr & "'", "FMZOLL",,, 0))
End If
'Offene EUST/ZOLL aus Zkteing ermitteln
EUST = CDbl(SQL.getValueTxtBySql("SELECT isnull(SUM (Betrag),0)
FROM tblSendungen INNER JOIN [tblSendAbrechnung] on tblSnd_SendungID=sndabr_sendId
INNER JOIN [FMZOLL\SQLFMZOLL].VERAG.dbo.[Zkteing] ON (cast(FilialenNr as varchar(4)) + '/' + cast(AbfertigungsNr as varchar(8))) LIKE ([Bezugsnummer] + '%')
WHERE sndabr_abrArt IN ('EUST','ZOLL')
AND (
(tblSnd_AvisiererKdNr='" & KdNr & "' and sndabr_beteiligter='AVISIERER') OR
(tblSnd_AbsenderKdNr='" & KdNr & "' and sndabr_beteiligter='ABS') OR
(tblSnd_EmpfaengerKdNr='" & KdNr & "' and sndabr_beteiligter='EMPF') OR
(tblSnd_FrachtfuehrerKdNr='" & KdNr & "' and sndabr_beteiligter='FRACHTF') OR
(tblSnd_AuftraggeberKdNr='" & KdNr & "' and sndabr_beteiligter='AUFTR')
)
AND [Abfertigungsdatum]>DATEADD(month,-6 ,GETDATE())
AND [sndabr_wert]='X'
AND [Status] NOT IN ('F')", "AVISO",, , 0))
Kreditlimit = CDbl(If(KD.Kreditlimit, 0))
Risiko = OP_Saldo + EUST
Ueberziehung = Risiko - Kreditlimit
lblOPSaldo.Text = OP_Saldo.ToString("C2")
lblEUST.Text = EUST.ToString("C2")
' lblEUST.Text = "nicht verfügbar"
lblRisiko.Text = Risiko.ToString("C2")
lblKreditlimit.Text = Kreditlimit.ToString("C2")
If Ueberziehung > 0 Then
lblUeberzeihung.Text = Ueberziehung.ToString("C2")
Label3.Visible = True
Label12.Visible = True
Return True
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Return False
End Function
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
' AVISO.FahrerHandy = txtFahrerHandy.Text
'If AvisoDAL.SpeichernAviso(AVISO) Then
' Me.DialogResult = DialogResult.OK
'Else
' Me.DialogResult = DialogResult.None
'End If
Me.DialogResult = DialogResult.OK
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.DialogResult = DialogResult.OK
End Sub
Private Sub frmAnkunftSetzen_KeyDown(sender As Object, e As KeyEventArgs)
If e.KeyCode = Keys.Return Then
btn.PerformClick()
End If
End Sub
End Class

52
Aviso/usrCntlVermerkeATilla.vb
View File

@@ -68,22 +68,54 @@ Public Class usrCntlVermerkeATilla
If Sendung IsNot Nothing Then
Dim anzahl As String = "0"
Dim anzahlPos As String = "0"
If Sendung.tblSnd_AbfertigungTR Is Nothing Then
anzahl = InputBox("Anzahl T1/T2:")
If anzahl = "" OrElse Not IsNumeric(anzahl) OrElse anzahl <= 0 Then
Exit Sub
Else
anzahl = CInt(anzahl)
Dim f As New frmAbfertigungTR_ExportAnz
If f.ShowDialog = DialogResult.OK Then
anzahl = f.txtAnz._value
anzahlPos = f.txtAnzPos._value
Dim FUNC As New AvisoStatusFunctions
FUNC.setSendungAbfertigungTR(Sendung.tblSnd_SendungID, AvisoID, anzahl, anzahlPos)
Sendung.LOAD(Sendung.tblSnd_SendungID) 'neu laden
initControls()
End If
End If
Dim FUNC As New AvisoStatusFunctions
FUNC.setSendungAbfertigungTR(Sendung.tblSnd_SendungID, AvisoID, anzahl)
Sendung.LOAD(Sendung.tblSnd_SendungID) 'neu laden
initControls()
'anzahl = InputBox("Anzahl T1/T2:")
'If anzahl = "" OrElse Not IsNumeric(anzahl) OrElse anzahl <= 0 Then
' Exit Sub
'Else
' anzahl = CInt(anzahl)
'End If
'anzahlPos = InputBox("Anzahl T1/T2 Psoitionen:")
'If anzahlPos = "" OrElse Not IsNumeric(anzahlPos) OrElse anzahlPos <= 0 Then
' Exit Sub
'Else
' anzahlPos = CInt(anzahlPos)
'End If
Else
If vbYes = MsgBox("Möchten Sie den Eintrag wirklich zurücksetzen?", vbYesNoCancel) Then
anzahl = "0"
anzahlPos = "0"
Dim FUNC As New AvisoStatusFunctions
FUNC.setSendungAbfertigungTR(Sendung.tblSnd_SendungID, AvisoID, anzahl, anzahlPos)
Sendung.LOAD(Sendung.tblSnd_SendungID) 'neu laden
initControls()
End If
End If
End If
ElseIf sender Is btnOK Then
If txtDetail.Text.Trim = "" Then lblErr240Zeichen.Visible = True : Exit Sub
If txtDetail.Text.Length <= 80 Then

78
Aviso/usrcntlAktDetails.Designer.vb generated
View File

@@ -156,13 +156,15 @@ 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.Button6 = New System.Windows.Forms.Button()
Me.Button4 = New System.Windows.Forms.Button()
Me.btnWlanTicket = New System.Windows.Forms.Button()
Me.Button13 = New System.Windows.Forms.Button()
Me.Button14 = New System.Windows.Forms.Button()
Me.btnLöschen = New System.Windows.Forms.Button()
Me.btnÄndern = New System.Windows.Forms.Button()
Me.btnTV = New System.Windows.Forms.Button()
Me.Button4 = New System.Windows.Forms.Button()
Me.Button10 = New System.Windows.Forms.Button()
Me.pnlDetailsRechts.SuspendLayout()
Me.Panel3.SuspendLayout()
CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -363,6 +365,7 @@ Partial Class usrcntlAktDetails
Me.txtSendungen._ShortDateNew = False
Me.txtSendungen._ShortDateOnly = False
Me.txtSendungen._TimeOnly = False
Me.txtSendungen._TimeOnly_Seconds = False
Me.txtSendungen._value = ""
Me.txtSendungen._Waehrung = False
Me.txtSendungen._WaehrungZeichen = True
@@ -423,6 +426,7 @@ Partial Class usrcntlAktDetails
Me.txtSndFremd._ShortDateNew = False
Me.txtSndFremd._ShortDateOnly = False
Me.txtSndFremd._TimeOnly = False
Me.txtSndFremd._TimeOnly_Seconds = False
Me.txtSndFremd._value = ""
Me.txtSndFremd._Waehrung = False
Me.txtSndFremd._WaehrungZeichen = True
@@ -475,6 +479,7 @@ Partial Class usrcntlAktDetails
Me.txtSndFiskalDE._ShortDateNew = False
Me.txtSndFiskalDE._ShortDateOnly = False
Me.txtSndFiskalDE._TimeOnly = False
Me.txtSndFiskalDE._TimeOnly_Seconds = False
Me.txtSndFiskalDE._value = ""
Me.txtSndFiskalDE._Waehrung = False
Me.txtSndFiskalDE._WaehrungZeichen = True
@@ -508,6 +513,7 @@ Partial Class usrcntlAktDetails
Me.txtSndFiskalAT._ShortDateNew = False
Me.txtSndFiskalAT._ShortDateOnly = False
Me.txtSndFiskalAT._TimeOnly = False
Me.txtSndFiskalAT._TimeOnly_Seconds = False
Me.txtSndFiskalAT._value = ""
Me.txtSndFiskalAT._Waehrung = False
Me.txtSndFiskalAT._WaehrungZeichen = True
@@ -1933,6 +1939,7 @@ 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.Button6)
Me.pnlOptionen.Controls.Add(Me.Button4)
Me.pnlOptionen.Controls.Add(Me.btnWlanTicket)
Me.pnlOptionen.Controls.Add(Me.Button13)
@@ -1940,12 +1947,45 @@ Partial Class usrcntlAktDetails
Me.pnlOptionen.Controls.Add(Me.btnLöschen)
Me.pnlOptionen.Controls.Add(Me.btnÄndern)
Me.pnlOptionen.Controls.Add(Me.btnTV)
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, 51)
Me.pnlOptionen.Size = New System.Drawing.Size(116, 255)
Me.pnlOptionen.TabIndex = 82
Me.pnlOptionen.Visible = False
'
'Button6
'
Me.Button6.BackColor = System.Drawing.Color.White
Me.Button6.FlatStyle = System.Windows.Forms.FlatStyle.Flat
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.Name = "Button6"
Me.Button6.Size = New System.Drawing.Size(109, 28)
Me.Button6.TabIndex = 105
Me.Button6.TabStop = False
Me.Button6.Text = "Status Mail"
Me.Button6.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button6.UseVisualStyleBackColor = False
'
'Button4
'
Me.Button4.BackColor = System.Drawing.Color.White
Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
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.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(109, 28)
Me.Button4.TabIndex = 104
Me.Button4.TabStop = False
Me.Button4.Text = "Status SMS"
Me.Button4.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button4.UseVisualStyleBackColor = False
'
'btnWlanTicket
'
Me.btnWlanTicket.BackColor = System.Drawing.Color.White
@@ -1971,10 +2011,10 @@ Partial Class usrcntlAktDetails
Me.Button13.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button13.Location = New System.Drawing.Point(3, 124)
Me.Button13.Name = "Button13"
Me.Button13.Size = New System.Drawing.Size(109, 28)
Me.Button13.Size = New System.Drawing.Size(71, 28)
Me.Button13.TabIndex = 102
Me.Button13.TabStop = False
Me.Button13.Text = "Freigabe Mail"
Me.Button13.Text = "Mail Freig."
Me.Button13.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button13.UseVisualStyleBackColor = False
'
@@ -2040,21 +2080,21 @@ Partial Class usrcntlAktDetails
Me.btnTV.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnTV.UseVisualStyleBackColor = False
'
'Button4
'Button10
'
Me.Button4.BackColor = System.Drawing.Color.White
Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
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.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(109, 28)
Me.Button4.TabIndex = 104
Me.Button4.TabStop = False
Me.Button4.Text = "Status SMS"
Me.Button4.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button4.UseVisualStyleBackColor = False
Me.Button10.BackColor = System.Drawing.Color.White
Me.Button10.FlatStyle = System.Windows.Forms.FlatStyle.Flat
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.Name = "Button10"
Me.Button10.Size = New System.Drawing.Size(39, 28)
Me.Button10.TabIndex = 106
Me.Button10.TabStop = False
Me.Button10.Text = "Ank."
Me.Button10.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button10.UseVisualStyleBackColor = False
'
'usrcntlAktDetails
'
@@ -2245,4 +2285,6 @@ Partial Class usrcntlAktDetails
Friend WithEvents btnQuckScan As Button
Friend WithEvents btnWlanTicket As Button
Friend WithEvents Button4 As Button
Friend WithEvents Button6 As Button
Friend WithEvents Button10 As Button
End Class

37
Aviso/usrcntlAktDetails.vb
View File

@@ -975,14 +975,21 @@ Public Class usrcntlAktDetails
init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
Case "13"
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
myVermerk.VermerkCodeId = 14
If gridVermerke.Rows(e.RowIndex).Cells("VorauskasseId").Value IsNot DBNull.Value Then
myVermerk.VorauskasseId = gridVermerke.Rows(e.RowIndex).Cells("VorauskasseId").Value
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "VERAG" OrElse VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_Vermerk_VKErhalten", "AVISO") Then
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
myVermerk.VermerkCodeId = 14
If gridVermerke.Rows(e.RowIndex).Cells("VorauskasseId").Value IsNot DBNull.Value Then
myVermerk.VorauskasseId = gridVermerke.Rows(e.RowIndex).Cells("VorauskasseId").Value
End If
Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
Else
MsgBox("Keine Berechtigung. Bitte wenden Sie sich an die Buchhaltung oder Abteilungsleitung.")
End If
Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
Case "17"
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("eingereicht", "fertig")
@@ -1172,6 +1179,8 @@ Public Class usrcntlAktDetails
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Packliste erhalten' einzutragen."
End If
Case 13
If r.Cells("VorauskasseId").Value IsNot DBNull.Value Then
If Not existCodeInGridVermerke_VK(r.Cells("VorauskasseId").Value) Then
@@ -1863,7 +1872,7 @@ Public Class usrcntlAktDetails
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btnOptionen.Click
pnlOptionen.Height = 220 '183 '157 '125
pnlOptionen.Height = 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)
@@ -3358,5 +3367,17 @@ Public Class usrcntlAktDetails
End If
End Sub
Private Sub Button6_Click_1(sender As Object, e As EventArgs) Handles Button6.Click
AvisoStatusFunctions.SendStatusEmail(AVISO)
End Sub
Private Sub Button10_Click_1(sender As Object, e As EventArgs) Handles Button10.Click
Dim mailTo = InputBox("Freigabe-Mail senden an:")
'If vbYes = MsgBox("Freigabe-Mail wirklich senden?", vbYesNoCancel) Then
If mailTo <> "" Then
AvisoStatusFunctions.SendAnkunftEmail(AVISO, mailTo)
End If
End Sub
End Class

107
Aviso/usrcntlAktDetailsATILLANeu.Designer.vb generated
View File

@@ -62,8 +62,11 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.btn = New System.Windows.Forms.Button()
Me.Label1 = New System.Windows.Forms.Label()
Me.tbAnhaenge = New System.Windows.Forms.TabPage()
Me.Button4 = New System.Windows.Forms.Button()
Me.Panel5 = New System.Windows.Forms.Panel()
Me.btnQuckScan = New System.Windows.Forms.Button()
Me.Button11 = New System.Windows.Forms.Button()
Me.Button4 = New System.Windows.Forms.Button()
Me.Button10 = New System.Windows.Forms.Button()
Me.dgvanhaenge = New System.Windows.Forms.DataGridView()
Me.Panel7 = New System.Windows.Forms.Panel()
Me.gridVermerke = New System.Windows.Forms.DataGridView()
@@ -135,7 +138,6 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.UmbenennenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.LöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.AusZwischenablageEinfügenPasteToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.Button10 = New System.Windows.Forms.Button()
Me.pnlDetailsRechts.SuspendLayout()
Me.Panel3.SuspendLayout()
CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -152,6 +154,7 @@ Partial Class usrcntlAktDetailsATILLANeu
CType(Me.dgvSpeditionsbuch, System.ComponentModel.ISupportInitialize).BeginInit()
Me.pnlSendungenTop.SuspendLayout()
Me.tbAnhaenge.SuspendLayout()
Me.Panel5.SuspendLayout()
CType(Me.dgvanhaenge, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.gridVermerke, System.ComponentModel.ISupportInitialize).BeginInit()
Me.pnlVermerkeTop.SuspendLayout()
@@ -467,10 +470,8 @@ Partial Class usrcntlAktDetailsATILLANeu
'
'tbAnhaenge
'
Me.tbAnhaenge.Controls.Add(Me.Button10)
Me.tbAnhaenge.Controls.Add(Me.Button4)
Me.tbAnhaenge.Controls.Add(Me.btnQuckScan)
Me.tbAnhaenge.Controls.Add(Me.dgvanhaenge)
Me.tbAnhaenge.Controls.Add(Me.Panel5)
Me.tbAnhaenge.Location = New System.Drawing.Point(4, 22)
Me.tbAnhaenge.Name = "tbAnhaenge"
Me.tbAnhaenge.Padding = New System.Windows.Forms.Padding(3)
@@ -479,19 +480,17 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.tbAnhaenge.Text = "Anhänge"
Me.tbAnhaenge.UseVisualStyleBackColor = True
'
'Button4
'Panel5
'
Me.Button4.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button4.Image = Global.AVISO.My.Resources.Resources.pdf11
Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button4.Location = New System.Drawing.Point(175, 118)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(124, 37)
Me.Button4.TabIndex = 109
Me.Button4.Text = "PDF hochladen"
Me.Button4.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button4.UseVisualStyleBackColor = True
Me.Panel5.Controls.Add(Me.btnQuckScan)
Me.Panel5.Controls.Add(Me.Button11)
Me.Panel5.Controls.Add(Me.Button4)
Me.Panel5.Controls.Add(Me.Button10)
Me.Panel5.Dock = System.Windows.Forms.DockStyle.Bottom
Me.Panel5.Location = New System.Drawing.Point(3, 117)
Me.Panel5.Name = "Panel5"
Me.Panel5.Size = New System.Drawing.Size(561, 38)
Me.Panel5.TabIndex = 112
'
'btnQuckScan
'
@@ -499,7 +498,7 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.btnQuckScan.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnQuckScan.Image = CType(resources.GetObject("btnQuckScan.Image"), System.Drawing.Image)
Me.btnQuckScan.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnQuckScan.Location = New System.Drawing.Point(445, 118)
Me.btnQuckScan.Location = New System.Drawing.Point(442, 1)
Me.btnQuckScan.Name = "btnQuckScan"
Me.btnQuckScan.Size = New System.Drawing.Size(119, 37)
Me.btnQuckScan.TabIndex = 108
@@ -507,6 +506,48 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.btnQuckScan.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnQuckScan.UseVisualStyleBackColor = True
'
'Button11
'
Me.Button11.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button11.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button11.Image = Global.AVISO.My.Resources.Resources.spedbuch_small
Me.Button11.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button11.Location = New System.Drawing.Point(97, 1)
Me.Button11.Name = "Button11"
Me.Button11.Size = New System.Drawing.Size(76, 37)
Me.Button11.TabIndex = 111
Me.Button11.Text = "CMR"
Me.Button11.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button11.UseVisualStyleBackColor = True
'
'Button4
'
Me.Button4.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button4.Image = Global.AVISO.My.Resources.Resources.pdf11
Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button4.Location = New System.Drawing.Point(172, 1)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(124, 37)
Me.Button4.TabIndex = 109
Me.Button4.Text = "PDF hochladen"
Me.Button4.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button4.UseVisualStyleBackColor = True
'
'Button10
'
Me.Button10.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button10.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button10.Image = Global.AVISO.My.Resources.Resources.spedbuch_small
Me.Button10.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button10.Location = New System.Drawing.Point(295, 1)
Me.Button10.Name = "Button10"
Me.Button10.Size = New System.Drawing.Size(148, 37)
Me.Button10.TabIndex = 110
Me.Button10.Text = "Aus Zwischenablage" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "einfügen (Paste)"
Me.Button10.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button10.UseVisualStyleBackColor = True
'
'dgvanhaenge
'
Me.dgvanhaenge.AllowUserToAddRows = False
@@ -555,7 +596,7 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.dgvanhaenge.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvanhaenge.ShowCellErrors = False
Me.dgvanhaenge.ShowRowErrors = False
Me.dgvanhaenge.Size = New System.Drawing.Size(561, 152)
Me.dgvanhaenge.Size = New System.Drawing.Size(374, 76)
Me.dgvanhaenge.TabIndex = 102
Me.dgvanhaenge.TabStop = False
'
@@ -1418,50 +1459,37 @@ Partial Class usrcntlAktDetailsATILLANeu
'
'cntxt
'
Me.cntxt.ImageScalingSize = New System.Drawing.Size(24, 24)
Me.cntxt.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.MarkiertePDFsDruckenToolStripMenuItem, Me.UmbenennenToolStripMenuItem, Me.LöschenToolStripMenuItem, Me.AusZwischenablageEinfügenPasteToolStripMenuItem})
Me.cntxt.Name = "cntxt"
Me.cntxt.Size = New System.Drawing.Size(272, 92)
Me.cntxt.Size = New System.Drawing.Size(280, 124)
'
'MarkiertePDFsDruckenToolStripMenuItem
'
Me.MarkiertePDFsDruckenToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.pdfprint
Me.MarkiertePDFsDruckenToolStripMenuItem.Name = "MarkiertePDFsDruckenToolStripMenuItem"
Me.MarkiertePDFsDruckenToolStripMenuItem.Size = New System.Drawing.Size(271, 22)
Me.MarkiertePDFsDruckenToolStripMenuItem.Size = New System.Drawing.Size(279, 30)
Me.MarkiertePDFsDruckenToolStripMenuItem.Text = "Markierte PDFs drucken"
'
'UmbenennenToolStripMenuItem
'
Me.UmbenennenToolStripMenuItem.Name = "UmbenennenToolStripMenuItem"
Me.UmbenennenToolStripMenuItem.Size = New System.Drawing.Size(271, 22)
Me.UmbenennenToolStripMenuItem.Size = New System.Drawing.Size(279, 30)
Me.UmbenennenToolStripMenuItem.Text = "Umbenennen"
'
'LöschenToolStripMenuItem
'
Me.LöschenToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.del
Me.LöschenToolStripMenuItem.Name = "LöschenToolStripMenuItem"
Me.LöschenToolStripMenuItem.Size = New System.Drawing.Size(271, 22)
Me.LöschenToolStripMenuItem.Size = New System.Drawing.Size(279, 30)
Me.LöschenToolStripMenuItem.Text = "Löschen"
'
'AusZwischenablageEinfügenPasteToolStripMenuItem
'
Me.AusZwischenablageEinfügenPasteToolStripMenuItem.Name = "AusZwischenablageEinfügenPasteToolStripMenuItem"
Me.AusZwischenablageEinfügenPasteToolStripMenuItem.Size = New System.Drawing.Size(271, 22)
Me.AusZwischenablageEinfügenPasteToolStripMenuItem.Size = New System.Drawing.Size(279, 30)
Me.AusZwischenablageEinfügenPasteToolStripMenuItem.Text = "Aus Zwischenablage einfügen (Paste)"
'
'Button10
'
Me.Button10.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button10.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button10.Image = Global.AVISO.My.Resources.Resources.spedbuch_small
Me.Button10.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button10.Location = New System.Drawing.Point(298, 118)
Me.Button10.Name = "Button10"
Me.Button10.Size = New System.Drawing.Size(148, 37)
Me.Button10.TabIndex = 110
Me.Button10.Text = "Aus Zwischenablage" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "einfügen (Paste)"
Me.Button10.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button10.UseVisualStyleBackColor = True
'
'usrcntlAktDetailsATILLANeu
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -1488,6 +1516,7 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.pnlSendungenTop.ResumeLayout(False)
Me.pnlSendungenTop.PerformLayout()
Me.tbAnhaenge.ResumeLayout(False)
Me.Panel5.ResumeLayout(False)
CType(Me.dgvanhaenge, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.gridVermerke, System.ComponentModel.ISupportInitialize).EndInit()
Me.pnlVermerkeTop.ResumeLayout(False)
@@ -1613,4 +1642,6 @@ Partial Class usrcntlAktDetailsATILLANeu
Friend WithEvents MarkiertePDFsDruckenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents AusZwischenablageEinfügenPasteToolStripMenuItem As ToolStripMenuItem
Friend WithEvents Button10 As Button
Friend WithEvents Panel5 As Panel
Friend WithEvents Button11 As Button
End Class

22
Aviso/usrcntlAktDetailsATILLANeu.vb
View File

@@ -1523,5 +1523,27 @@ Public Class usrcntlAktDetailsATILLANeu
End If
End Sub
Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
Dim f As New SDL.frmCMR
f.btnCMRtoAkt.Visible = True
f.txtCMRName.Visible = True
If f.ShowDialog(Me) Then
Dim da_id = -1
Dim anhId = -1
Dim destPath = ""
Dim Typ = ""
If f.PDF_Path <> "" Then
Dim CMRName = If(f.txtCMRName.Text <> "", f.txtCMRName.Text, "CMR")
frmSendungAnhangImport.saveToDS(AvisoID, CMRName, f.PDF_Path, "CMR", "PDF", da_id, anhId, destPath)
initAnhaenge()
End If
End If
End Sub
End Class

8
AvisoTV/frmAnzeige.vb
View File

@@ -461,8 +461,12 @@ Public Class frmAnzeige
'Infotext auslesen
Dim AvisoTVDAL As New cAvisoTVDAL
Dim AvisoTV As cAvisoTV = AvisoTVDAL.LesenAvisoTV(-1, "", Standort, Special)
Dim AvisoTV As cAvisoTV = Nothing
If StandortATILLA Then
AvisoTV = AvisoTVDAL.LesenAvisoTV(-1, "", "ATILLA", Special)
Else
AvisoTV = AvisoTVDAL.LesenAvisoTV(-1, "", Standort, Special)
End If
Dim lblBigInfoVisible = False
lblBigInfo.Visible = False
displayZeilen = False

BIN
Diverses/GVMS-image.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 15 KiB

BIN
Diverses/WhatsApp.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 135 KiB

BIN
Diverses/WhatsApp_s.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.9 KiB

BIN
Diverses/sms.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 17 KiB

BIN
Diverses/sms_s.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 2.2 KiB