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
2021-11-18 14:58:25 +01:00
parent afaaa450e1
commit e19a163187
17 changed files with 429 additions and 338 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
Aviso/Aviso.vbproj
View File

@@ -1316,6 +1316,9 @@
<None Include="Resources\AMB.png" /> <None Include="Resources\AMB.png" />
<None Include="Resources\sprinter.png" /> <None Include="Resources\sprinter.png" />
<None Include="Resources\sprinter_white.png" /> <None Include="Resources\sprinter_white.png" />
<Content Include="Resources\FO.png">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>
<Content Include="Resources\WLAN\RunNHide.exe"> <Content Include="Resources\WLAN\RunNHide.exe">
<CopyToOutputDirectory>Always</CopyToOutputDirectory> <CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content> </Content>

2
Aviso/Classes/cSendungsoptions.vb
View File

@@ -411,6 +411,8 @@ Public Class SendungOptions
imgpath = resPath & "UNISPED.png" imgpath = resPath & "UNISPED.png"
ElseIf SENDUNG.FilialenNr = "5701" Then ElseIf SENDUNG.FilialenNr = "5701" Then
imgpath = resPath & "AMB.png" imgpath = resPath & "AMB.png"
ElseIf SENDUNG.FilialenNr = "5801" Then
imgpath = resPath & "FO.png"
Else Else
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_niederlassung Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_niederlassung
Case "SUB" Case "SUB"

4
Aviso/My Project/AssemblyInfo.vb
View File

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

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

@@ -599,6 +599,16 @@ Namespace My.Resources
End Get End Get
End Property End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property FO() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("FO", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary> '''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary> '''</summary>
@@ -1169,15 +1179,6 @@ Namespace My.Resources
End Get End Get
End Property End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die ähnelt.
'''</summary>
Friend ReadOnly Property sdf2sdf1sdf5sd4fsd4f8sdf48sdfsdfsdf() As String
Get
Return ResourceManager.GetString("sdf2sdf1sdf5sd4fsd4f8sdf48sdfsdfsdf", resourceCulture)
End Get
End Property
'''<summary> '''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary> '''</summary>
@@ -1538,7 +1539,7 @@ Namespace My.Resources
End Property End Property
'''<summary> '''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die 3.7.0.1 ähnelt. ''' Sucht eine lokalisierte Zeichenfolge, die 3.7.1.4 ähnelt.
'''</summary> '''</summary>
Friend ReadOnly Property Version() As String Friend ReadOnly Property Version() As String
Get Get

6
Aviso/My Project/Resources.resx
View File

@@ -536,7 +536,7 @@
<value>..\Resources\plus.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\plus.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="Version" xml:space="preserve"> <data name="Version" xml:space="preserve">
<value>3.7.0.1</value> <value>3.7.1.4</value>
</data> </data>
<data name="statusBtn_vorgeschrieben_Aktiv" type="System.Resources.ResXFileRef, System.Windows.Forms"> <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> <value>..\Resources\statusBtn_vorgeschrieben_Aktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -616,7 +616,7 @@
<data name="abfetigungTR_inaktiv" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="abfetigungTR_inaktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\..\Diverses\miniButtons\abfetigungTR_inaktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\..\Diverses\miniButtons\abfetigungTR_inaktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="sdf2sdf1sdf5sd4fsd4f8sdf48sdfsdfsdf" xml:space="preserve"> <data name="FO" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value /> <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>
</root> </root>

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

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 170 KiB

43
Aviso/frmEintragAviso.vb
View File

@@ -31,13 +31,16 @@ Public Class frmEintragAviso
Dim PROG As New cProgramFunctions Dim PROG As New cProgramFunctions
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Public FIRMA_TMP As String = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Public Sub New() Public Sub New()
InitializeComponent() InitializeComponent()
Icon = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.GetProgrammIcon Icon = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.GetProgrammIcon
End Sub End Sub
Private Sub frmEintragAviso_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing Private Sub frmEintragAviso_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" And myAviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft Then If FIRMA_TMP = "ATILLA" And myAviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft Then
If myAviso.Frächter = "" Then If myAviso.Frächter = "" Then
MsgBox("Bei 'Ankunft' muss der Frächter angegeben werden!") MsgBox("Bei 'Ankunft' muss der Frächter angegeben werden!")
e.Cancel = True e.Cancel = True
@@ -62,7 +65,7 @@ Public Class frmEintragAviso
' btnSaveAttachments.Enabled = False ' btnSaveAttachments.Enabled = False
Else Else
dgvAnhaenge.Visible = True dgvAnhaenge.Visible = True
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then If FIRMA_TMP = "ATILLA" Then
dgvAnhaenge.Visible = False dgvAnhaenge.Visible = False
'dgvAnhaenge.Size = New Size(dgvAnhaenge.Size.Width, 70) 'dgvAnhaenge.Size = New Size(dgvAnhaenge.Size.Width, 70)
'dgvAnhaenge.Top += (dgvAnhaenge.Size.Height - 70) 'dgvAnhaenge.Top += (dgvAnhaenge.Size.Height - 70)
@@ -94,7 +97,7 @@ Public Class frmEintragAviso
kdAuftraggeber.initKdBox(Me) kdAuftraggeber.initKdBox(Me)
cboGrenzstelle.Items.Clear() cboGrenzstelle.Items.Clear()
cboGrenzstelle.fillWithSQL("SELECT [grz_Grenzstelle],[grz_BezeichnungCBO] FROM tblGrenzstelle where [grz_Firma]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' AND grz_Aktiv=1 order by grz_Reihenfolge, grz_Grenzstelle", False, "AVISO", True,, "ALLE") cboGrenzstelle.fillWithSQL("SELECT [grz_Grenzstelle],[grz_BezeichnungCBO] FROM tblGrenzstelle where [grz_Firma]='" & FIRMA_TMP & "' OR grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' AND grz_Aktiv=1 order by grz_Reihenfolge, grz_Grenzstelle", False, "AVISO", True,, "ALLE")
cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("???", "???")) cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("???", "???"))
cboGrenzstelle.changeItem("") cboGrenzstelle.changeItem("")
@@ -124,10 +127,10 @@ Public Class frmEintragAviso
cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMBAR", "AMBAR")) cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMBAR", "AMBAR"))
cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATILLA", "ATILLA")) cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATILLA", "ATILLA"))
cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("FRONTOFFICE", "FRONTOFFICE")) cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("FRONTOFFICE", "FRONTOFFICE"))
cboFirma.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA) cboFirma.changeItem(FIRMA_TMP)
cboFirma.Enabled = False cboFirma.Enabled = False
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Select Case FIRMA_TMP
Case "IMEX" Case "IMEX"
txtSndFiskalAT.Visible = False txtSndFiskalAT.Visible = False
@@ -194,7 +197,7 @@ Public Class frmEintragAviso
cboImEx.Visible = True cboImEx.Visible = True
Label1.Visible = True Label1.Visible = True
End Select End Select
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Select Case FIRMA_TMP
Case "FRONTOFFICE" Case "FRONTOFFICE"
cbxSendungsvorlagen.Checked = False cbxSendungsvorlagen.Checked = False
cbxPosNr.Checked = False cbxPosNr.Checked = False
@@ -253,7 +256,7 @@ Public Class frmEintragAviso
btnOK.Enabled = True btnOK.Enabled = True
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then If FIRMA_TMP = "ATILLA" Then
cbxFrächterUnbekannt.Visible = True cbxFrächterUnbekannt.Visible = True
cboGrenzstelle.Visible = False cboGrenzstelle.Visible = False
lblGrenze.Visible = False lblGrenze.Visible = False
@@ -446,13 +449,13 @@ Public Class frmEintragAviso
UsrCntlAviso_Vorpapiere1.setVorpapiere(myAviso) UsrCntlAviso_Vorpapiere1.setVorpapiere(myAviso)
' If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then ' If FIRMA_TMP = "IMEX" Then
txtBestimmungszollstelle.SET_VALUE(If(myAviso.Zollstelle, "")) txtBestimmungszollstelle.SET_VALUE(If(myAviso.Zollstelle, ""))
cbxWarenort.Checked = myAviso.Warenort cbxWarenort.Checked = myAviso.Warenort
' End If ' End If
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then If FIRMA_TMP = "ATILLA" Then
cbxAktenzettelDrucken.Checked = AktenzetteldruckenVisible cbxAktenzettelDrucken.Checked = AktenzetteldruckenVisible
UsrCntlEintragAvisoAtilla.sbDurchgangszollstelle1.SET_VALUE(If(myAviso.Durchgangszollstelle1, "")) UsrCntlEintragAvisoAtilla.sbDurchgangszollstelle1.SET_VALUE(If(myAviso.Durchgangszollstelle1, ""))
UsrCntlEintragAvisoAtilla.sbDurchgangszollstelle2.SET_VALUE(If(myAviso.Durchgangszollstelle2, "")) UsrCntlEintragAvisoAtilla.sbDurchgangszollstelle2.SET_VALUE(If(myAviso.Durchgangszollstelle2, ""))
@@ -585,7 +588,7 @@ Public Class frmEintragAviso
lblSendungsanzahl.Visible = False lblSendungsanzahl.Visible = False
lblErrVorraussuchtlEintreffen.Visible = False lblErrVorraussuchtlEintreffen.Visible = False
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Then If FIRMA_TMP = "VERIMEX" Then
If cboFirma._value = "" Then If cboFirma._value = "" Then
MsgBox("Firma auswählen!", vbInformation) MsgBox("Firma auswählen!", vbInformation)
cboFirma.Focus() cboFirma.Focus()
@@ -650,7 +653,7 @@ Public Class frmEintragAviso
End If End If
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "ATILLA" Then If FIRMA_TMP <> "ATILLA" Then
If cboGrenzstelle._value.Trim = "" Then If cboGrenzstelle._value.Trim = "" Then
' MsgBox("Bitte die Grenzstelle eingegeben.", vbInformation) ' MsgBox("Bitte die Grenzstelle eingegeben.", vbInformation)
lblErr_Grenzstelle.Visible = True lblErr_Grenzstelle.Visible = True
@@ -845,7 +848,7 @@ Public Class frmEintragAviso
myAviso.letzterMitarbeiter = cGlobal.AktiverMitarbeiter.Mitarbeiter myAviso.letzterMitarbeiter = cGlobal.AktiverMitarbeiter.Mitarbeiter
myAviso.TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId myAviso.TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
End If End If
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then If FIRMA_TMP = "ATILLA" Then
myAviso.Grenzstelle = "SUB" myAviso.Grenzstelle = "SUB"
Else Else
myAviso.Grenzstelle = cboGrenzstelle._value myAviso.Grenzstelle = cboGrenzstelle._value
@@ -855,7 +858,7 @@ Public Class frmEintragAviso
myAviso.Transportmittelart = cboTransportmittelart._value myAviso.Transportmittelart = cboTransportmittelart._value
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then If FIRMA_TMP = "AMBAR" Then
myAviso.Grenzstelle = "AMB" myAviso.Grenzstelle = "AMB"
End If End If
@@ -954,7 +957,7 @@ Public Class frmEintragAviso
myAviso.Sammelakt = (myAviso.Sendungen_Gesamtanzahl > 1) 'cbxSammelakt.Checked myAviso.Sammelakt = (myAviso.Sendungen_Gesamtanzahl > 1) 'cbxSammelakt.Checked
End If End If
myAviso.FIRMA = If(cboFirma._value <> "", cboFirma._value, VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA) myAviso.FIRMA = If(cboFirma._value <> "", cboFirma._value, FIRMA_TMP)
myAviso.Cluster = If(VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER, "") myAviso.Cluster = If(VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER, "")
@@ -1027,7 +1030,7 @@ Public Class frmEintragAviso
AvisoStatusFunctions.insertVermerkAllg(tmpId, "ATB-Nr. folgt", 80) AvisoStatusFunctions.insertVermerkAllg(tmpId, "ATB-Nr. folgt", 80)
End If End If
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Select Case FIRMA_TMP
Case "ATILLA" Case "ATILLA"
Try Try
'ATILLA AKTENZETTEL DRUCKEN 'ATILLA AKTENZETTEL DRUCKEN
@@ -1068,7 +1071,7 @@ Public Class frmEintragAviso
Dim abfArt As Object = DBNull.Value Dim abfArt As Object = DBNull.Value
getFilialeAndAbfertNrIMEX(cnt, filiale_tmp, abfnr_tmp, fremd, abfArt) getFilialeAndAbfertNrIMEX(cnt, filiale_tmp, abfnr_tmp, fremd, abfArt)
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Then filiale_tmp = 0 If FIRMA_TMP = "VERIMEX" Then filiale_tmp = 0
'IIf(filiale_tmp > 0, ADMIN.getMaxPosNrIncrement(filiale_tmp, Now.Year), 0) 'IIf(filiale_tmp > 0, ADMIN.getMaxPosNrIncrement(filiale_tmp, Now.Year), 0)
'AvisoDAL.insertSendungEmpty(tmpId, scnt, filiale_tmp, abfnr_tmp, 0) ' INSERT 'AvisoDAL.insertSendungEmpty(tmpId, scnt, filiale_tmp, abfnr_tmp, 0) ' INSERT
Dim tblSnd_AuftraggeberKdNr As Object = Nothing Dim tblSnd_AuftraggeberKdNr As Object = Nothing
@@ -1174,7 +1177,7 @@ Public Class frmEintragAviso
Try Try
System.Diagnostics.Process.Start(hMail) System.Diagnostics.Process.Start(hMail)
Catch ex As Exception Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,"Beim Mail-Versenden ist ein Fehler aufgetreten") VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Beim Mail-Versenden ist ein Fehler aufgetreten")
End Try End Try
End If End If
End If End If
@@ -1672,10 +1675,10 @@ Public Class frmEintragAviso
Private Sub cboGrenzstelle_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboGrenzstelle.SelectedIndexChanged Private Sub cboGrenzstelle_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboGrenzstelle.SelectedIndexChanged
pnl.Visible = False pnl.Visible = False
' cboImEx.Visible = (cboGrenzstelle.Text = "WAI" Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED") ' cboImEx.Visible = (cboGrenzstelle.Text = "WAI" Or FIRMA_TMP = "IMEX" Or FIRMA_TMP = "UNISPED")
Label1.Visible = (cboGrenzstelle._value = "WAI" Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED") Label1.Visible = (cboGrenzstelle._value = "WAI" Or FIRMA_TMP = "IMEX" Or FIRMA_TMP = "UNISPED")
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Select Case FIRMA_TMP
Case "VERAG", "FRONTOFFICE", "UNISPED", "IMEX", "AMBAR" Case "VERAG", "FRONTOFFICE", "UNISPED", "IMEX", "AMBAR"
If cboGrenzstelle._value = "???" Then If cboGrenzstelle._value = "???" Then

241
Aviso/frmHauptfenster.Designer.vb generated
View File

@@ -24,12 +24,12 @@ Partial Class frmHauptfenster
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container() Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmHauptfenster)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmHauptfenster))
Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.mnuInfo = New System.Windows.Forms.ToolStripMenuItem() Me.mnuInfo = New System.Windows.Forms.ToolStripMenuItem()
Me.conÜbernehmen = New System.Windows.Forms.ToolStripMenuItem() Me.conÜbernehmen = New System.Windows.Forms.ToolStripMenuItem()
Me.conMenuAviso = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.conMenuAviso = New System.Windows.Forms.ContextMenuStrip(Me.components)
@@ -232,6 +232,7 @@ Partial Class frmHauptfenster
Me.lblSuche = New System.Windows.Forms.Label() Me.lblSuche = New System.Windows.Forms.Label()
Me.SplitContainer2 = New System.Windows.Forms.SplitContainer() Me.SplitContainer2 = New System.Windows.Forms.SplitContainer()
Me.pnlLinks = New System.Windows.Forms.Panel() Me.pnlLinks = New System.Windows.Forms.Panel()
Me.lblFimaAviso = New System.Windows.Forms.Label()
Me.Panel2 = New System.Windows.Forms.Panel() Me.Panel2 = New System.Windows.Forms.Panel()
Me.Label7 = New System.Windows.Forms.Label() Me.Label7 = New System.Windows.Forms.Label()
Me.lblErrVermerk = New System.Windows.Forms.Label() Me.lblErrVermerk = New System.Windows.Forms.Label()
@@ -244,8 +245,9 @@ Partial Class frmHauptfenster
Me.Label22 = New System.Windows.Forms.Label() Me.Label22 = New System.Windows.Forms.Label()
Me.Button12 = New System.Windows.Forms.Button() Me.Button12 = New System.Windows.Forms.Button()
Me.btnNeu = New System.Windows.Forms.Button() Me.btnNeu = New System.Windows.Forms.Button()
Me.cntxtAtilla = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ToolStripMenuItem17 = New System.Windows.Forms.ToolStripMenuItem()
Me.SplitContainer3 = New System.Windows.Forms.SplitContainer() Me.SplitContainer3 = New System.Windows.Forms.SplitContainer()
Me.UsrCntlBenachrichtigungen1 = New AVISO.usrCntlBenachrichtigungen()
Me.pnl = New System.Windows.Forms.Panel() Me.pnl = New System.Windows.Forms.Panel()
Me.Button10 = New System.Windows.Forms.Button() Me.Button10 = New System.Windows.Forms.Button()
Me.gridMyAviso = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.gridMyAviso = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
@@ -329,6 +331,7 @@ Partial Class frmHauptfenster
Me.EUTaricToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.EUTaricToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.Timer_REFRESH = New System.Windows.Forms.Timer(Me.components) Me.Timer_REFRESH = New System.Windows.Forms.Timer(Me.components)
Me.UsrCntlTestsystem1 = New VERAG_PROG_ALLGEMEIN.usrCntlTestsystem() Me.UsrCntlTestsystem1 = New VERAG_PROG_ALLGEMEIN.usrCntlTestsystem()
Me.UsrCntlBenachrichtigungen1 = New AVISO.usrCntlBenachrichtigungen()
Me.conMenuAviso.SuspendLayout() Me.conMenuAviso.SuspendLayout()
Me.MenuStrip1.SuspendLayout() Me.MenuStrip1.SuspendLayout()
Me.Top.SuspendLayout() Me.Top.SuspendLayout()
@@ -341,6 +344,7 @@ Partial Class frmHauptfenster
CType(Me.picAVISOMessenger, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.picAVISOMessenger, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
Me.pnlLinksOben.SuspendLayout() Me.pnlLinksOben.SuspendLayout()
Me.cntxtAtilla.SuspendLayout()
CType(Me.SplitContainer3, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.SplitContainer3, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainer3.Panel1.SuspendLayout() Me.SplitContainer3.Panel1.SuspendLayout()
Me.SplitContainer3.Panel2.SuspendLayout() Me.SplitContainer3.Panel2.SuspendLayout()
@@ -591,7 +595,7 @@ Partial Class frmHauptfenster
'ToolStripSeparator4 'ToolStripSeparator4
' '
Me.ToolStripSeparator4.Name = "ToolStripSeparator4" Me.ToolStripSeparator4.Name = "ToolStripSeparator4"
Me.ToolStripSeparator4.Size = New System.Drawing.Size(181, 6) Me.ToolStripSeparator4.Size = New System.Drawing.Size(119, 6)
' '
'FirmaWechselnToolStripMenuItem 'FirmaWechselnToolStripMenuItem
' '
@@ -798,7 +802,7 @@ Partial Class frmHauptfenster
'ToolStripSeparator12 'ToolStripSeparator12
' '
Me.ToolStripSeparator12.Name = "ToolStripSeparator12" Me.ToolStripSeparator12.Name = "ToolStripSeparator12"
Me.ToolStripSeparator12.Size = New System.Drawing.Size(380, 6) Me.ToolStripSeparator12.Size = New System.Drawing.Size(252, 6)
' '
'ToolStripMenuItem3 'ToolStripMenuItem3
' '
@@ -849,7 +853,7 @@ Partial Class frmHauptfenster
'ToolStripSeparator10 'ToolStripSeparator10
' '
Me.ToolStripSeparator10.Name = "ToolStripSeparator10" Me.ToolStripSeparator10.Name = "ToolStripSeparator10"
Me.ToolStripSeparator10.Size = New System.Drawing.Size(380, 6) Me.ToolStripSeparator10.Size = New System.Drawing.Size(252, 6)
' '
'DAKOSYToolStripMenuItem 'DAKOSYToolStripMenuItem
' '
@@ -867,7 +871,7 @@ Partial Class frmHauptfenster
'ToolStripSeparator11 'ToolStripSeparator11
' '
Me.ToolStripSeparator11.Name = "ToolStripSeparator11" Me.ToolStripSeparator11.Name = "ToolStripSeparator11"
Me.ToolStripSeparator11.Size = New System.Drawing.Size(380, 6) Me.ToolStripSeparator11.Size = New System.Drawing.Size(252, 6)
' '
'SDLAbholaufträgeToolStripMenuItem 'SDLAbholaufträgeToolStripMenuItem
' '
@@ -938,7 +942,7 @@ Partial Class frmHauptfenster
'ToolStripSeparator8 'ToolStripSeparator8
' '
Me.ToolStripSeparator8.Name = "ToolStripSeparator8" Me.ToolStripSeparator8.Name = "ToolStripSeparator8"
Me.ToolStripSeparator8.Size = New System.Drawing.Size(231, 6) Me.ToolStripSeparator8.Size = New System.Drawing.Size(153, 6)
' '
'BürgschafrtsbuchungenFremdToolStripMenuItem 'BürgschafrtsbuchungenFremdToolStripMenuItem
' '
@@ -955,7 +959,7 @@ Partial Class frmHauptfenster
'ToolStripSeparator7 'ToolStripSeparator7
' '
Me.ToolStripSeparator7.Name = "ToolStripSeparator7" Me.ToolStripSeparator7.Name = "ToolStripSeparator7"
Me.ToolStripSeparator7.Size = New System.Drawing.Size(231, 6) Me.ToolStripSeparator7.Size = New System.Drawing.Size(153, 6)
' '
'SDLAuswertungenToolStripMenuItem 'SDLAuswertungenToolStripMenuItem
' '
@@ -991,7 +995,7 @@ Partial Class frmHauptfenster
'ToolStripSeparator3 'ToolStripSeparator3
' '
Me.ToolStripSeparator3.Name = "ToolStripSeparator3" Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
Me.ToolStripSeparator3.Size = New System.Drawing.Size(274, 6) Me.ToolStripSeparator3.Size = New System.Drawing.Size(181, 6)
' '
'ToolStripMenuItem2 'ToolStripMenuItem2
' '
@@ -1089,7 +1093,7 @@ Partial Class frmHauptfenster
'ToolStripSeparator9 'ToolStripSeparator9
' '
Me.ToolStripSeparator9.Name = "ToolStripSeparator9" Me.ToolStripSeparator9.Name = "ToolStripSeparator9"
Me.ToolStripSeparator9.Size = New System.Drawing.Size(274, 6) Me.ToolStripSeparator9.Size = New System.Drawing.Size(181, 6)
' '
'VerzollungsunterlagenToolStripMenuItem 'VerzollungsunterlagenToolStripMenuItem
' '
@@ -1106,7 +1110,7 @@ Partial Class frmHauptfenster
'ToolStripSeparator6 'ToolStripSeparator6
' '
Me.ToolStripSeparator6.Name = "ToolStripSeparator6" Me.ToolStripSeparator6.Name = "ToolStripSeparator6"
Me.ToolStripSeparator6.Size = New System.Drawing.Size(274, 6) Me.ToolStripSeparator6.Size = New System.Drawing.Size(181, 6)
' '
'WAIDHAUSToolStripMenuItem 'WAIDHAUSToolStripMenuItem
' '
@@ -1148,7 +1152,7 @@ Partial Class frmHauptfenster
'ToolStripSeparator13 'ToolStripSeparator13
' '
Me.ToolStripSeparator13.Name = "ToolStripSeparator13" Me.ToolStripSeparator13.Name = "ToolStripSeparator13"
Me.ToolStripSeparator13.Size = New System.Drawing.Size(274, 6) Me.ToolStripSeparator13.Size = New System.Drawing.Size(181, 6)
' '
'EinheitspapierToolStripMenuItem 'EinheitspapierToolStripMenuItem
' '
@@ -1193,7 +1197,7 @@ Partial Class frmHauptfenster
'ToolStripSeparator14 'ToolStripSeparator14
' '
Me.ToolStripSeparator14.Name = "ToolStripSeparator14" Me.ToolStripSeparator14.Name = "ToolStripSeparator14"
Me.ToolStripSeparator14.Size = New System.Drawing.Size(246, 6) Me.ToolStripSeparator14.Size = New System.Drawing.Size(163, 6)
' '
'TicketIBFInlandBorderFacilitiesToolStripMenuItem 'TicketIBFInlandBorderFacilitiesToolStripMenuItem
' '
@@ -1217,7 +1221,7 @@ Partial Class frmHauptfenster
'ToolStripSeparator15 'ToolStripSeparator15
' '
Me.ToolStripSeparator15.Name = "ToolStripSeparator15" Me.ToolStripSeparator15.Name = "ToolStripSeparator15"
Me.ToolStripSeparator15.Size = New System.Drawing.Size(246, 6) Me.ToolStripSeparator15.Size = New System.Drawing.Size(163, 6)
' '
'FREnveloppeSmartBorderToolStripMenuItem 'FREnveloppeSmartBorderToolStripMenuItem
' '
@@ -1229,7 +1233,7 @@ Partial Class frmHauptfenster
'ToolStripSeparator16 'ToolStripSeparator16
' '
Me.ToolStripSeparator16.Name = "ToolStripSeparator16" Me.ToolStripSeparator16.Name = "ToolStripSeparator16"
Me.ToolStripSeparator16.Size = New System.Drawing.Size(246, 6) Me.ToolStripSeparator16.Size = New System.Drawing.Size(163, 6)
' '
'PBNIrelandFähreToolStripMenuItem 'PBNIrelandFähreToolStripMenuItem
' '
@@ -1241,7 +1245,7 @@ Partial Class frmHauptfenster
'ToolStripSeparator20 'ToolStripSeparator20
' '
Me.ToolStripSeparator20.Name = "ToolStripSeparator20" Me.ToolStripSeparator20.Name = "ToolStripSeparator20"
Me.ToolStripSeparator20.Size = New System.Drawing.Size(246, 6) Me.ToolStripSeparator20.Size = New System.Drawing.Size(163, 6)
' '
'WARENORTToolStripMenuItem 'WARENORTToolStripMenuItem
' '
@@ -1265,7 +1269,7 @@ Partial Class frmHauptfenster
'ToolStripSeparator17 'ToolStripSeparator17
' '
Me.ToolStripSeparator17.Name = "ToolStripSeparator17" Me.ToolStripSeparator17.Name = "ToolStripSeparator17"
Me.ToolStripSeparator17.Size = New System.Drawing.Size(170, 6) Me.ToolStripSeparator17.Size = New System.Drawing.Size(112, 6)
' '
'DEFormular0442ToolStripMenuItem 'DEFormular0442ToolStripMenuItem
' '
@@ -1295,12 +1299,12 @@ Partial Class frmHauptfenster
'ToolStripSeparator19 'ToolStripSeparator19
' '
Me.ToolStripSeparator19.Name = "ToolStripSeparator19" Me.ToolStripSeparator19.Name = "ToolStripSeparator19"
Me.ToolStripSeparator19.Size = New System.Drawing.Size(170, 6) Me.ToolStripSeparator19.Size = New System.Drawing.Size(112, 6)
' '
'ToolStripSeparator18 'ToolStripSeparator18
' '
Me.ToolStripSeparator18.Name = "ToolStripSeparator18" Me.ToolStripSeparator18.Name = "ToolStripSeparator18"
Me.ToolStripSeparator18.Size = New System.Drawing.Size(246, 6) Me.ToolStripSeparator18.Size = New System.Drawing.Size(163, 6)
' '
'EORIUKGeneriertenToolStripMenuItem 'EORIUKGeneriertenToolStripMenuItem
' '
@@ -1746,12 +1750,12 @@ Partial Class frmHauptfenster
'lblMitarbeiter 'lblMitarbeiter
' '
Me.lblMitarbeiter.AutoSize = True Me.lblMitarbeiter.AutoSize = True
Me.lblMitarbeiter.BackColor = System.Drawing.Color.White Me.lblMitarbeiter.BackColor = System.Drawing.SystemColors.Control
Me.lblMitarbeiter.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblMitarbeiter.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.lblMitarbeiter.ForeColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer)) Me.lblMitarbeiter.ForeColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
Me.lblMitarbeiter.Location = New System.Drawing.Point(393, 4) Me.lblMitarbeiter.Location = New System.Drawing.Point(2, 184)
Me.lblMitarbeiter.Name = "lblMitarbeiter" Me.lblMitarbeiter.Name = "lblMitarbeiter"
Me.lblMitarbeiter.Size = New System.Drawing.Size(168, 17) Me.lblMitarbeiter.Size = New System.Drawing.Size(126, 13)
Me.lblMitarbeiter.TabIndex = 1 Me.lblMitarbeiter.TabIndex = 1
Me.lblMitarbeiter.Text = "Max Mustermann (Admin)" Me.lblMitarbeiter.Text = "Max Mustermann (Admin)"
Me.lblMitarbeiter.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.lblMitarbeiter.TextAlign = System.Drawing.ContentAlignment.MiddleRight
@@ -1759,12 +1763,12 @@ Partial Class frmHauptfenster
'lblGrenzstelle 'lblGrenzstelle
' '
Me.lblGrenzstelle.AutoSize = True Me.lblGrenzstelle.AutoSize = True
Me.lblGrenzstelle.BackColor = System.Drawing.Color.White Me.lblGrenzstelle.BackColor = System.Drawing.SystemColors.Control
Me.lblGrenzstelle.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblGrenzstelle.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.lblGrenzstelle.ForeColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer)) Me.lblGrenzstelle.ForeColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
Me.lblGrenzstelle.Location = New System.Drawing.Point(569, 4) Me.lblGrenzstelle.Location = New System.Drawing.Point(143, 199)
Me.lblGrenzstelle.Name = "lblGrenzstelle" Me.lblGrenzstelle.Name = "lblGrenzstelle"
Me.lblGrenzstelle.Size = New System.Drawing.Size(36, 17) Me.lblGrenzstelle.Size = New System.Drawing.Size(29, 13)
Me.lblGrenzstelle.TabIndex = 0 Me.lblGrenzstelle.TabIndex = 0
Me.lblGrenzstelle.Text = "SUB" Me.lblGrenzstelle.Text = "SUB"
Me.lblGrenzstelle.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.lblGrenzstelle.TextAlign = System.Drawing.ContentAlignment.MiddleRight
@@ -1911,23 +1915,38 @@ Partial Class frmHauptfenster
Me.SplitContainer2.Panel2.Controls.Add(Me.SplitContainer3) Me.SplitContainer2.Panel2.Controls.Add(Me.SplitContainer3)
Me.SplitContainer2.Panel2MinSize = 650 Me.SplitContainer2.Panel2MinSize = 650
Me.SplitContainer2.Size = New System.Drawing.Size(884, 300) Me.SplitContainer2.Size = New System.Drawing.Size(884, 300)
Me.SplitContainer2.SplitterDistance = 216 Me.SplitContainer2.SplitterDistance = 231
Me.SplitContainer2.SplitterWidth = 1 Me.SplitContainer2.SplitterWidth = 1
Me.SplitContainer2.TabIndex = 0 Me.SplitContainer2.TabIndex = 0
' '
'pnlLinks 'pnlLinks
' '
Me.pnlLinks.Controls.Add(Me.lblFimaAviso)
Me.pnlLinks.Controls.Add(Me.Panel2) Me.pnlLinks.Controls.Add(Me.Panel2)
Me.pnlLinks.Controls.Add(Me.Label20) Me.pnlLinks.Controls.Add(Me.Label20)
Me.pnlLinks.Controls.Add(Me.picAVISOMessenger) Me.pnlLinks.Controls.Add(Me.picAVISOMessenger)
Me.pnlLinks.Controls.Add(Me.lblVersion) Me.pnlLinks.Controls.Add(Me.lblVersion)
Me.pnlLinks.Controls.Add(Me.pic) Me.pnlLinks.Controls.Add(Me.pic)
Me.pnlLinks.Controls.Add(Me.lblMitarbeiter)
Me.pnlLinks.Controls.Add(Me.lblGrenzstelle)
Me.pnlLinks.Dock = System.Windows.Forms.DockStyle.Fill Me.pnlLinks.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnlLinks.Location = New System.Drawing.Point(0, 86) Me.pnlLinks.Location = New System.Drawing.Point(0, 86)
Me.pnlLinks.Name = "pnlLinks" Me.pnlLinks.Name = "pnlLinks"
Me.pnlLinks.Size = New System.Drawing.Size(216, 214) Me.pnlLinks.Size = New System.Drawing.Size(231, 214)
Me.pnlLinks.TabIndex = 0 Me.pnlLinks.TabIndex = 0
' '
'lblFimaAviso
'
Me.lblFimaAviso.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.lblFimaAviso.AutoSize = True
Me.lblFimaAviso.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblFimaAviso.ForeColor = System.Drawing.Color.Black
Me.lblFimaAviso.Location = New System.Drawing.Point(67, 199)
Me.lblFimaAviso.Name = "lblFimaAviso"
Me.lblFimaAviso.Size = New System.Drawing.Size(63, 13)
Me.lblFimaAviso.TabIndex = 11
Me.lblFimaAviso.Text = "XXXXXXXX"
'
'Panel2 'Panel2
' '
Me.Panel2.Controls.Add(Me.Label7) Me.Panel2.Controls.Add(Me.Label7)
@@ -1938,7 +1957,7 @@ Partial Class frmHauptfenster
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel2.Location = New System.Drawing.Point(0, 0) Me.Panel2.Location = New System.Drawing.Point(0, 0)
Me.Panel2.Name = "Panel2" Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(216, 111) Me.Panel2.Size = New System.Drawing.Size(231, 111)
Me.Panel2.TabIndex = 10 Me.Panel2.TabIndex = 10
' '
'Label7 'Label7
@@ -1960,7 +1979,7 @@ Partial Class frmHauptfenster
Me.lblErrVermerk.ForeColor = System.Drawing.Color.Red Me.lblErrVermerk.ForeColor = System.Drawing.Color.Red
Me.lblErrVermerk.Location = New System.Drawing.Point(12, 158) Me.lblErrVermerk.Location = New System.Drawing.Point(12, 158)
Me.lblErrVermerk.Name = "lblErrVermerk" Me.lblErrVermerk.Name = "lblErrVermerk"
Me.lblErrVermerk.Size = New System.Drawing.Size(190, 27) Me.lblErrVermerk.Size = New System.Drawing.Size(205, 27)
Me.lblErrVermerk.TabIndex = 1 Me.lblErrVermerk.TabIndex = 1
Me.lblErrVermerk.Text = "Bei diesem Status kann kein Vermerk erfasst werden!" Me.lblErrVermerk.Text = "Bei diesem Status kann kein Vermerk erfasst werden!"
Me.lblErrVermerk.TextAlign = System.Drawing.ContentAlignment.BottomLeft Me.lblErrVermerk.TextAlign = System.Drawing.ContentAlignment.BottomLeft
@@ -1983,7 +2002,7 @@ Partial Class frmHauptfenster
Me.Label20.BackColor = System.Drawing.Color.Red Me.Label20.BackColor = System.Drawing.Color.Red
Me.Label20.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label20.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label20.ForeColor = System.Drawing.Color.White Me.Label20.ForeColor = System.Drawing.Color.White
Me.Label20.Location = New System.Drawing.Point(49, 182) Me.Label20.Location = New System.Drawing.Point(49, 160)
Me.Label20.Name = "Label20" Me.Label20.Name = "Label20"
Me.Label20.Size = New System.Drawing.Size(28, 19) Me.Label20.Size = New System.Drawing.Size(28, 19)
Me.Label20.TabIndex = 9 Me.Label20.TabIndex = 9
@@ -1997,7 +2016,7 @@ Partial Class frmHauptfenster
Me.picAVISOMessenger.BackgroundImage = Global.AVISO.My.Resources.Resources.aviso_messenger Me.picAVISOMessenger.BackgroundImage = Global.AVISO.My.Resources.Resources.aviso_messenger
Me.picAVISOMessenger.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.picAVISOMessenger.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.picAVISOMessenger.Cursor = System.Windows.Forms.Cursors.Hand Me.picAVISOMessenger.Cursor = System.Windows.Forms.Cursors.Hand
Me.picAVISOMessenger.Location = New System.Drawing.Point(1, 134) Me.picAVISOMessenger.Location = New System.Drawing.Point(1, 112)
Me.picAVISOMessenger.Name = "picAVISOMessenger" Me.picAVISOMessenger.Name = "picAVISOMessenger"
Me.picAVISOMessenger.Size = New System.Drawing.Size(59, 55) Me.picAVISOMessenger.Size = New System.Drawing.Size(59, 55)
Me.picAVISOMessenger.TabIndex = 7 Me.picAVISOMessenger.TabIndex = 7
@@ -2010,7 +2029,7 @@ Partial Class frmHauptfenster
Me.lblVersion.AutoSize = True Me.lblVersion.AutoSize = True
Me.lblVersion.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblVersion.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblVersion.ForeColor = System.Drawing.Color.Black Me.lblVersion.ForeColor = System.Drawing.Color.Black
Me.lblVersion.Location = New System.Drawing.Point(3, 201) Me.lblVersion.Location = New System.Drawing.Point(3, 199)
Me.lblVersion.Name = "lblVersion" Me.lblVersion.Name = "lblVersion"
Me.lblVersion.Size = New System.Drawing.Size(47, 13) Me.lblVersion.Size = New System.Drawing.Size(47, 13)
Me.lblVersion.TabIndex = 6 Me.lblVersion.TabIndex = 6
@@ -2035,7 +2054,7 @@ Partial Class frmHauptfenster
Me.pnlLinksOben.Dock = System.Windows.Forms.DockStyle.Top Me.pnlLinksOben.Dock = System.Windows.Forms.DockStyle.Top
Me.pnlLinksOben.Location = New System.Drawing.Point(0, 0) Me.pnlLinksOben.Location = New System.Drawing.Point(0, 0)
Me.pnlLinksOben.Name = "pnlLinksOben" Me.pnlLinksOben.Name = "pnlLinksOben"
Me.pnlLinksOben.Size = New System.Drawing.Size(216, 86) Me.pnlLinksOben.Size = New System.Drawing.Size(231, 86)
Me.pnlLinksOben.TabIndex = 1 Me.pnlLinksOben.TabIndex = 1
' '
'Label22 'Label22
@@ -2069,6 +2088,7 @@ Partial Class frmHauptfenster
' '
'btnNeu 'btnNeu
' '
Me.btnNeu.ContextMenuStrip = Me.cntxtAtilla
Me.btnNeu.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnNeu.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnNeu.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnNeu.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnNeu.ForeColor = System.Drawing.Color.Black Me.btnNeu.ForeColor = System.Drawing.Color.Black
@@ -2083,6 +2103,19 @@ Partial Class frmHauptfenster
Me.btnNeu.TextAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnNeu.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnNeu.UseVisualStyleBackColor = True Me.btnNeu.UseVisualStyleBackColor = True
' '
'cntxtAtilla
'
Me.cntxtAtilla.ImageScalingSize = New System.Drawing.Size(24, 24)
Me.cntxtAtilla.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem17})
Me.cntxtAtilla.Name = "cntxt"
Me.cntxtAtilla.Size = New System.Drawing.Size(112, 26)
'
'ToolStripMenuItem17
'
Me.ToolStripMenuItem17.Name = "ToolStripMenuItem17"
Me.ToolStripMenuItem17.Size = New System.Drawing.Size(111, 22)
Me.ToolStripMenuItem17.Text = "ATILLA"
'
'SplitContainer3 'SplitContainer3
' '
Me.SplitContainer3.Dock = System.Windows.Forms.DockStyle.Fill Me.SplitContainer3.Dock = System.Windows.Forms.DockStyle.Fill
@@ -2096,19 +2129,10 @@ Partial Class frmHauptfenster
'SplitContainer3.Panel2 'SplitContainer3.Panel2
' '
Me.SplitContainer3.Panel2.Controls.Add(Me.pnl) Me.SplitContainer3.Panel2.Controls.Add(Me.pnl)
Me.SplitContainer3.Size = New System.Drawing.Size(667, 300) Me.SplitContainer3.Size = New System.Drawing.Size(652, 300)
Me.SplitContainer3.SplitterDistance = 167 Me.SplitContainer3.SplitterDistance = 162
Me.SplitContainer3.TabIndex = 3 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(167, 300)
Me.UsrCntlBenachrichtigungen1.TabIndex = 0
'
'pnl 'pnl
' '
Me.pnl.Controls.Add(Me.Button10) Me.pnl.Controls.Add(Me.Button10)
@@ -2117,7 +2141,7 @@ Partial Class frmHauptfenster
Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnl.Location = New System.Drawing.Point(0, 0) Me.pnl.Location = New System.Drawing.Point(0, 0)
Me.pnl.Name = "pnl" Me.pnl.Name = "pnl"
Me.pnl.Size = New System.Drawing.Size(496, 300) Me.pnl.Size = New System.Drawing.Size(486, 300)
Me.pnl.TabIndex = 0 Me.pnl.TabIndex = 0
' '
'Button10 'Button10
@@ -2141,8 +2165,8 @@ Partial Class frmHauptfenster
Me.gridMyAviso.AllowUserToDeleteRows = False Me.gridMyAviso.AllowUserToDeleteRows = False
Me.gridMyAviso.AllowUserToOrderColumns = True Me.gridMyAviso.AllowUserToOrderColumns = True
Me.gridMyAviso.AllowUserToResizeRows = False Me.gridMyAviso.AllowUserToResizeRows = False
DataGridViewCellStyle7.BackColor = System.Drawing.Color.Azure DataGridViewCellStyle1.BackColor = System.Drawing.Color.Azure
Me.gridMyAviso.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7 Me.gridMyAviso.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
Me.gridMyAviso.BackgroundColor = System.Drawing.Color.White Me.gridMyAviso.BackgroundColor = System.Drawing.Color.White
Me.gridMyAviso.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.gridMyAviso.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.gridMyAviso.Dock = System.Windows.Forms.DockStyle.Top Me.gridMyAviso.Dock = System.Windows.Forms.DockStyle.Top
@@ -2151,7 +2175,7 @@ Partial Class frmHauptfenster
Me.gridMyAviso.ReadOnly = True Me.gridMyAviso.ReadOnly = True
Me.gridMyAviso.RowHeadersVisible = False Me.gridMyAviso.RowHeadersVisible = False
Me.gridMyAviso.RowHeadersWidth = 62 Me.gridMyAviso.RowHeadersWidth = 62
Me.gridMyAviso.Size = New System.Drawing.Size(496, 277) Me.gridMyAviso.Size = New System.Drawing.Size(486, 277)
Me.gridMyAviso.TabIndex = 0 Me.gridMyAviso.TabIndex = 0
' '
'Panel6 'Panel6
@@ -2169,7 +2193,7 @@ Partial Class frmHauptfenster
Me.Panel6.Dock = System.Windows.Forms.DockStyle.Top Me.Panel6.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel6.Location = New System.Drawing.Point(0, 0) Me.Panel6.Location = New System.Drawing.Point(0, 0)
Me.Panel6.Name = "Panel6" Me.Panel6.Name = "Panel6"
Me.Panel6.Size = New System.Drawing.Size(496, 21) Me.Panel6.Size = New System.Drawing.Size(486, 21)
Me.Panel6.TabIndex = 1 Me.Panel6.TabIndex = 1
' '
'lblMeineAviso 'lblMeineAviso
@@ -2195,7 +2219,7 @@ Partial Class frmHauptfenster
Me.cboMy_Grenzstelle.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.cboMy_Grenzstelle.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cboMy_Grenzstelle.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) Me.cboMy_Grenzstelle.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.cboMy_Grenzstelle.FormattingEnabled = True Me.cboMy_Grenzstelle.FormattingEnabled = True
Me.cboMy_Grenzstelle.Location = New System.Drawing.Point(177, 1) Me.cboMy_Grenzstelle.Location = New System.Drawing.Point(167, 1)
Me.cboMy_Grenzstelle.Name = "cboMy_Grenzstelle" Me.cboMy_Grenzstelle.Name = "cboMy_Grenzstelle"
Me.cboMy_Grenzstelle.Size = New System.Drawing.Size(64, 21) Me.cboMy_Grenzstelle.Size = New System.Drawing.Size(64, 21)
Me.cboMy_Grenzstelle.TabIndex = 26 Me.cboMy_Grenzstelle.TabIndex = 26
@@ -2205,7 +2229,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.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label18.AutoSize = True Me.Label18.AutoSize = True
Me.Label18.ForeColor = System.Drawing.Color.White Me.Label18.ForeColor = System.Drawing.Color.White
Me.Label18.Location = New System.Drawing.Point(109, 4) Me.Label18.Location = New System.Drawing.Point(99, 4)
Me.Label18.Name = "Label18" Me.Label18.Name = "Label18"
Me.Label18.Size = New System.Drawing.Size(62, 13) Me.Label18.Size = New System.Drawing.Size(62, 13)
Me.Label18.TabIndex = 25 Me.Label18.TabIndex = 25
@@ -2216,7 +2240,7 @@ Partial Class frmHauptfenster
Me.cbx_My_LKW.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.cbx_My_LKW.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.cbx_My_LKW.AutoSize = True Me.cbx_My_LKW.AutoSize = True
Me.cbx_My_LKW.ForeColor = System.Drawing.Color.White Me.cbx_My_LKW.ForeColor = System.Drawing.Color.White
Me.cbx_My_LKW.Location = New System.Drawing.Point(53, 3) Me.cbx_My_LKW.Location = New System.Drawing.Point(43, 3)
Me.cbx_My_LKW.Name = "cbx_My_LKW" Me.cbx_My_LKW.Name = "cbx_My_LKW"
Me.cbx_My_LKW.Size = New System.Drawing.Size(50, 17) Me.cbx_My_LKW.Size = New System.Drawing.Size(50, 17)
Me.cbx_My_LKW.TabIndex = 24 Me.cbx_My_LKW.TabIndex = 24
@@ -2230,7 +2254,7 @@ Partial Class frmHauptfenster
Me.cboMy_QS.Checked = True Me.cboMy_QS.Checked = True
Me.cboMy_QS.CheckState = System.Windows.Forms.CheckState.Indeterminate Me.cboMy_QS.CheckState = System.Windows.Forms.CheckState.Indeterminate
Me.cboMy_QS.ForeColor = System.Drawing.Color.White Me.cboMy_QS.ForeColor = System.Drawing.Color.White
Me.cboMy_QS.Location = New System.Drawing.Point(439, 3) Me.cboMy_QS.Location = New System.Drawing.Point(429, 3)
Me.cboMy_QS.Name = "cboMy_QS" Me.cboMy_QS.Name = "cboMy_QS"
Me.cboMy_QS.Size = New System.Drawing.Size(15, 14) Me.cboMy_QS.Size = New System.Drawing.Size(15, 14)
Me.cboMy_QS.TabIndex = 23 Me.cboMy_QS.TabIndex = 23
@@ -2244,7 +2268,7 @@ Partial Class frmHauptfenster
Me.cboMy_VB.Checked = True Me.cboMy_VB.Checked = True
Me.cboMy_VB.CheckState = System.Windows.Forms.CheckState.Indeterminate Me.cboMy_VB.CheckState = System.Windows.Forms.CheckState.Indeterminate
Me.cboMy_VB.ForeColor = System.Drawing.Color.White Me.cboMy_VB.ForeColor = System.Drawing.Color.White
Me.cboMy_VB.Location = New System.Drawing.Point(460, 3) Me.cboMy_VB.Location = New System.Drawing.Point(450, 3)
Me.cboMy_VB.Name = "cboMy_VB" Me.cboMy_VB.Name = "cboMy_VB"
Me.cboMy_VB.Size = New System.Drawing.Size(15, 14) Me.cboMy_VB.Size = New System.Drawing.Size(15, 14)
Me.cboMy_VB.TabIndex = 22 Me.cboMy_VB.TabIndex = 22
@@ -2262,7 +2286,7 @@ Partial Class frmHauptfenster
Me.cboMyAvisoAnzeige.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.cboMyAvisoAnzeige.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cboMyAvisoAnzeige.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) Me.cboMyAvisoAnzeige.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.cboMyAvisoAnzeige.FormattingEnabled = True Me.cboMyAvisoAnzeige.FormattingEnabled = True
Me.cboMyAvisoAnzeige.Location = New System.Drawing.Point(296, 1) Me.cboMyAvisoAnzeige.Location = New System.Drawing.Point(286, 1)
Me.cboMyAvisoAnzeige.Name = "cboMyAvisoAnzeige" Me.cboMyAvisoAnzeige.Name = "cboMyAvisoAnzeige"
Me.cboMyAvisoAnzeige.Size = New System.Drawing.Size(127, 21) Me.cboMyAvisoAnzeige.Size = New System.Drawing.Size(127, 21)
Me.cboMyAvisoAnzeige.TabIndex = 21 Me.cboMyAvisoAnzeige.TabIndex = 21
@@ -2272,7 +2296,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.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label17.AutoSize = True Me.Label17.AutoSize = True
Me.Label17.ForeColor = System.Drawing.Color.White Me.Label17.ForeColor = System.Drawing.Color.White
Me.Label17.Location = New System.Drawing.Point(247, 3) Me.Label17.Location = New System.Drawing.Point(237, 3)
Me.Label17.Name = "Label17" Me.Label17.Name = "Label17"
Me.Label17.Size = New System.Drawing.Size(48, 13) Me.Label17.Size = New System.Drawing.Size(48, 13)
Me.Label17.TabIndex = 20 Me.Label17.TabIndex = 20
@@ -2282,7 +2306,7 @@ Partial Class frmHauptfenster
' '
Me.lblAkte.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.lblAkte.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblAkte.ForeColor = System.Drawing.Color.White Me.lblAkte.ForeColor = System.Drawing.Color.White
Me.lblAkte.Location = New System.Drawing.Point(825, 6) Me.lblAkte.Location = New System.Drawing.Point(815, 6)
Me.lblAkte.Name = "lblAkte" Me.lblAkte.Name = "lblAkte"
Me.lblAkte.Size = New System.Drawing.Size(207, 19) Me.lblAkte.Size = New System.Drawing.Size(207, 19)
Me.lblAkte.TabIndex = 1 Me.lblAkte.TabIndex = 1
@@ -2317,7 +2341,7 @@ Partial Class frmHauptfenster
Me.tabVorgeschrieben.Location = New System.Drawing.Point(4, 34) Me.tabVorgeschrieben.Location = New System.Drawing.Point(4, 34)
Me.tabVorgeschrieben.Name = "tabVorgeschrieben" Me.tabVorgeschrieben.Name = "tabVorgeschrieben"
Me.tabVorgeschrieben.Padding = New System.Windows.Forms.Padding(3) Me.tabVorgeschrieben.Padding = New System.Windows.Forms.Padding(3)
Me.tabVorgeschrieben.Size = New System.Drawing.Size(753, 0) Me.tabVorgeschrieben.Size = New System.Drawing.Size(145, 0)
Me.tabVorgeschrieben.TabIndex = 3 Me.tabVorgeschrieben.TabIndex = 3
Me.tabVorgeschrieben.Text = "3.Vorgeschrieben" Me.tabVorgeschrieben.Text = "3.Vorgeschrieben"
' '
@@ -2328,7 +2352,7 @@ Partial Class frmHauptfenster
Me.tabFreigegeben.Location = New System.Drawing.Point(4, 34) Me.tabFreigegeben.Location = New System.Drawing.Point(4, 34)
Me.tabFreigegeben.Name = "tabFreigegeben" Me.tabFreigegeben.Name = "tabFreigegeben"
Me.tabFreigegeben.Padding = New System.Windows.Forms.Padding(3) Me.tabFreigegeben.Padding = New System.Windows.Forms.Padding(3)
Me.tabFreigegeben.Size = New System.Drawing.Size(753, 0) Me.tabFreigegeben.Size = New System.Drawing.Size(145, 0)
Me.tabFreigegeben.TabIndex = 5 Me.tabFreigegeben.TabIndex = 5
Me.tabFreigegeben.Text = "5. Freigegeben" Me.tabFreigegeben.Text = "5. Freigegeben"
' '
@@ -2339,7 +2363,7 @@ Partial Class frmHauptfenster
Me.tabNichtEingetroffen.Location = New System.Drawing.Point(4, 34) Me.tabNichtEingetroffen.Location = New System.Drawing.Point(4, 34)
Me.tabNichtEingetroffen.Name = "tabNichtEingetroffen" Me.tabNichtEingetroffen.Name = "tabNichtEingetroffen"
Me.tabNichtEingetroffen.Padding = New System.Windows.Forms.Padding(3) Me.tabNichtEingetroffen.Padding = New System.Windows.Forms.Padding(3)
Me.tabNichtEingetroffen.Size = New System.Drawing.Size(753, 0) Me.tabNichtEingetroffen.Size = New System.Drawing.Size(145, 0)
Me.tabNichtEingetroffen.TabIndex = 6 Me.tabNichtEingetroffen.TabIndex = 6
Me.tabNichtEingetroffen.Text = "Nicht eingetroffen" Me.tabNichtEingetroffen.Text = "Nicht eingetroffen"
' '
@@ -2350,7 +2374,7 @@ Partial Class frmHauptfenster
Me.tabAnkunft.Location = New System.Drawing.Point(4, 34) Me.tabAnkunft.Location = New System.Drawing.Point(4, 34)
Me.tabAnkunft.Name = "tabAnkunft" Me.tabAnkunft.Name = "tabAnkunft"
Me.tabAnkunft.Padding = New System.Windows.Forms.Padding(3) Me.tabAnkunft.Padding = New System.Windows.Forms.Padding(3)
Me.tabAnkunft.Size = New System.Drawing.Size(753, 0) Me.tabAnkunft.Size = New System.Drawing.Size(145, 0)
Me.tabAnkunft.TabIndex = 4 Me.tabAnkunft.TabIndex = 4
Me.tabAnkunft.Text = "4. Ankunft" Me.tabAnkunft.Text = "4. Ankunft"
' '
@@ -2361,7 +2385,7 @@ Partial Class frmHauptfenster
Me.tabVorbereitet.Location = New System.Drawing.Point(4, 34) Me.tabVorbereitet.Location = New System.Drawing.Point(4, 34)
Me.tabVorbereitet.Name = "tabVorbereitet" Me.tabVorbereitet.Name = "tabVorbereitet"
Me.tabVorbereitet.Padding = New System.Windows.Forms.Padding(3) Me.tabVorbereitet.Padding = New System.Windows.Forms.Padding(3)
Me.tabVorbereitet.Size = New System.Drawing.Size(753, 0) Me.tabVorbereitet.Size = New System.Drawing.Size(145, 0)
Me.tabVorbereitet.TabIndex = 2 Me.tabVorbereitet.TabIndex = 2
Me.tabVorbereitet.Text = "2.Vorbereitet QS" Me.tabVorbereitet.Text = "2.Vorbereitet QS"
' '
@@ -2414,7 +2438,7 @@ Partial Class frmHauptfenster
Me.tabAlle.Location = New System.Drawing.Point(4, 34) Me.tabAlle.Location = New System.Drawing.Point(4, 34)
Me.tabAlle.Name = "tabAlle" Me.tabAlle.Name = "tabAlle"
Me.tabAlle.Padding = New System.Windows.Forms.Padding(3) Me.tabAlle.Padding = New System.Windows.Forms.Padding(3)
Me.tabAlle.Size = New System.Drawing.Size(753, 0) Me.tabAlle.Size = New System.Drawing.Size(217, 0)
Me.tabAlle.TabIndex = 0 Me.tabAlle.TabIndex = 0
Me.tabAlle.Text = "Alle" Me.tabAlle.Text = "Alle"
' '
@@ -2425,7 +2449,7 @@ Partial Class frmHauptfenster
Me.tabErfasst.Location = New System.Drawing.Point(4, 34) Me.tabErfasst.Location = New System.Drawing.Point(4, 34)
Me.tabErfasst.Name = "tabErfasst" Me.tabErfasst.Name = "tabErfasst"
Me.tabErfasst.Padding = New System.Windows.Forms.Padding(3) Me.tabErfasst.Padding = New System.Windows.Forms.Padding(3)
Me.tabErfasst.Size = New System.Drawing.Size(753, 0) Me.tabErfasst.Size = New System.Drawing.Size(876, 0)
Me.tabErfasst.TabIndex = 1 Me.tabErfasst.TabIndex = 1
Me.tabErfasst.Text = "1. Erfasst" Me.tabErfasst.Text = "1. Erfasst"
' '
@@ -2446,7 +2470,7 @@ Partial Class frmHauptfenster
Me.tbcntrAviso.Name = "tbcntrAviso" Me.tbcntrAviso.Name = "tbcntrAviso"
Me.tbcntrAviso.Padding = New System.Drawing.Point(12, 3) Me.tbcntrAviso.Padding = New System.Drawing.Point(12, 3)
Me.tbcntrAviso.SelectedIndex = 0 Me.tbcntrAviso.SelectedIndex = 0
Me.tbcntrAviso.Size = New System.Drawing.Size(761, 33) Me.tbcntrAviso.Size = New System.Drawing.Size(884, 32)
Me.tbcntrAviso.TabIndex = 10 Me.tbcntrAviso.TabIndex = 10
' '
'SplitContainer1 'SplitContainer1
@@ -2514,47 +2538,47 @@ Partial Class frmHauptfenster
Me.gridAviso.AllowUserToAddRows = False Me.gridAviso.AllowUserToAddRows = False
Me.gridAviso.AllowUserToDeleteRows = False Me.gridAviso.AllowUserToDeleteRows = False
Me.gridAviso.AllowUserToResizeRows = False Me.gridAviso.AllowUserToResizeRows = False
DataGridViewCellStyle8.BackColor = System.Drawing.Color.Azure DataGridViewCellStyle2.BackColor = System.Drawing.Color.Azure
DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8 Me.gridAviso.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
Me.gridAviso.BackgroundColor = System.Drawing.Color.DarkGray Me.gridAviso.BackgroundColor = System.Drawing.Color.DarkGray
Me.gridAviso.ClipboardCopyMode = System.Windows.Forms.DataGridViewClipboardCopyMode.Disable Me.gridAviso.ClipboardCopyMode = System.Windows.Forms.DataGridViewClipboardCopyMode.Disable
DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle9.BackColor = System.Drawing.Color.LightBlue DataGridViewCellStyle3.BackColor = System.Drawing.Color.LightBlue
DataGridViewCellStyle9.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle3.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle9.ForeColor = System.Drawing.SystemColors.WindowText DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle9.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle9.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridAviso.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle9 Me.gridAviso.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle3
Me.gridAviso.ColumnHeadersHeight = 25 Me.gridAviso.ColumnHeadersHeight = 25
Me.gridAviso.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing Me.gridAviso.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle10.BackColor = System.Drawing.SystemColors.Window DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle10.ForeColor = System.Drawing.SystemColors.ControlText DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle10.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle10.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.DefaultCellStyle = DataGridViewCellStyle10 Me.gridAviso.DefaultCellStyle = DataGridViewCellStyle4
Me.gridAviso.Dock = System.Windows.Forms.DockStyle.Fill Me.gridAviso.Dock = System.Windows.Forms.DockStyle.Fill
Me.gridAviso.Location = New System.Drawing.Point(0, 208) Me.gridAviso.Location = New System.Drawing.Point(0, 208)
Me.gridAviso.MultiSelect = False Me.gridAviso.MultiSelect = False
Me.gridAviso.Name = "gridAviso" Me.gridAviso.Name = "gridAviso"
Me.gridAviso.ReadOnly = True Me.gridAviso.ReadOnly = True
DataGridViewCellStyle11.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle11.BackColor = System.Drawing.SystemColors.Control DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle11.ForeColor = System.Drawing.SystemColors.WindowText DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle11.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle11.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle11.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.RowHeadersDefaultCellStyle = DataGridViewCellStyle11 Me.gridAviso.RowHeadersDefaultCellStyle = DataGridViewCellStyle5
Me.gridAviso.RowHeadersVisible = False Me.gridAviso.RowHeadersVisible = False
Me.gridAviso.RowHeadersWidth = 62 Me.gridAviso.RowHeadersWidth = 62
Me.gridAviso.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing Me.gridAviso.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.RowsDefaultCellStyle = DataGridViewCellStyle12 Me.gridAviso.RowsDefaultCellStyle = DataGridViewCellStyle6
Me.gridAviso.RowTemplate.ReadOnly = True Me.gridAviso.RowTemplate.ReadOnly = True
Me.gridAviso.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False] Me.gridAviso.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect Me.gridAviso.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
@@ -3167,6 +3191,15 @@ Partial Class frmHauptfenster
Me.UsrCntlTestsystem1.Size = New System.Drawing.Size(152, 28) Me.UsrCntlTestsystem1.Size = New System.Drawing.Size(152, 28)
Me.UsrCntlTestsystem1.TabIndex = 8 Me.UsrCntlTestsystem1.TabIndex = 8
' '
'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(162, 300)
Me.UsrCntlBenachrichtigungen1.TabIndex = 0
'
'frmHauptfenster 'frmHauptfenster
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -3176,8 +3209,6 @@ Partial Class frmHauptfenster
Me.Controls.Add(Me.pnlOptionen) Me.Controls.Add(Me.pnlOptionen)
Me.Controls.Add(Me.Label9) Me.Controls.Add(Me.Label9)
Me.Controls.Add(Me.UsrCntlTestsystem1) Me.Controls.Add(Me.UsrCntlTestsystem1)
Me.Controls.Add(Me.lblGrenzstelle)
Me.Controls.Add(Me.lblMitarbeiter)
Me.Controls.Add(Me.lblDauer) Me.Controls.Add(Me.lblDauer)
Me.Controls.Add(Me.SplitContainer1) Me.Controls.Add(Me.SplitContainer1)
Me.Controls.Add(Me.Top) Me.Controls.Add(Me.Top)
@@ -3206,6 +3237,7 @@ Partial Class frmHauptfenster
CType(Me.picAVISOMessenger, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.picAVISOMessenger, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
Me.pnlLinksOben.ResumeLayout(False) Me.pnlLinksOben.ResumeLayout(False)
Me.cntxtAtilla.ResumeLayout(False)
Me.SplitContainer3.Panel1.ResumeLayout(False) Me.SplitContainer3.Panel1.ResumeLayout(False)
Me.SplitContainer3.Panel2.ResumeLayout(False) Me.SplitContainer3.Panel2.ResumeLayout(False)
CType(Me.SplitContainer3, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.SplitContainer3, System.ComponentModel.ISupportInitialize).EndInit()
@@ -3538,4 +3570,7 @@ Partial Class frmHauptfenster
Friend WithEvents ChecklisteWOCHECKLISTEZEallgemein As ToolStripMenuItem Friend WithEvents ChecklisteWOCHECKLISTEZEallgemein As ToolStripMenuItem
Friend WithEvents WOCECKLISTEZEWDHToolStripMenuItem As ToolStripMenuItem Friend WithEvents WOCECKLISTEZEWDHToolStripMenuItem As ToolStripMenuItem
Friend WithEvents WOCECKLISTEAbgangVerwahrungsortZVToolStripMenuItem As ToolStripMenuItem Friend WithEvents WOCECKLISTEAbgangVerwahrungsortZVToolStripMenuItem As ToolStripMenuItem
Friend WithEvents cntxtAtilla As ContextMenuStrip
Friend WithEvents ToolStripMenuItem17 As ToolStripMenuItem
Friend WithEvents lblFimaAviso As Label
End Class End Class

6
Aviso/frmHauptfenster.resx
View File

@@ -171,6 +171,9 @@
<metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>598, 17</value> <value>598, 17</value>
</metadata> </metadata>
<metadata name="cntxtAtilla.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1217, 11</value>
</metadata>
<data name="btnNeu.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="btnNeu.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
@@ -225,9 +228,6 @@
pOTzPwAAAABJRU5ErkJggg== pOTzPwAAAABJRU5ErkJggg==
</value> </value>
</data> </data>
<metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>598, 17</value>
</metadata>
<metadata name="BackgroundWorker1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="BackgroundWorker1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>697, 17</value> <value>697, 17</value>
</metadata> </metadata>

42
Aviso/frmHauptfenster.vb
View File

@@ -170,6 +170,8 @@ Public Class frmHauptfenster
' FIMRA_COLOR = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor ' FIMRA_COLOR = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor
'End Select 'End Select
lblFimaAviso.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Panel1.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor Panel1.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor
Panel6.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor Panel6.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor
pnlSearch.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor pnlSearch.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor
@@ -410,8 +412,11 @@ Public Class frmHauptfenster
'Mitarbeiterinfos anzeigen 'Mitarbeiterinfos anzeigen
VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter += "/" & SystemInformation.UserName.ToString VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter += "/" & SystemInformation.UserName.ToString
lblMitarbeiter.Text = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter lblMitarbeiter.Text = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter
'If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Avisodaten_verwalten", Me) Then
' lblMitarbeiter.Text += " (Verwaltung)Then"
'End If
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Avisodaten_verwalten", Me) Then If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Avisodaten_verwalten", Me) Then
lblMitarbeiter.Text += " (Verwaltung)Then" lblMitarbeiter.Text += " (" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & ")"
End If End If
lblGrenzstelle.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG.Trim lblGrenzstelle.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG.Trim
@@ -1885,13 +1890,19 @@ Public Class frmHauptfenster
End Sub End Sub
Private Sub btnNeu_Click(sender As System.Object, e As System.EventArgs) Handles btnNeu.Click Private Sub btnNeu_Click(sender As System.Object, e As System.EventArgs) Handles btnNeu.Click, ToolStripMenuItem17.Click
Try Try
Me.Cursor = Cursors.WaitCursor Me.Cursor = Cursors.WaitCursor
gridAviso.ClearSelection() gridAviso.ClearSelection()
gridMyAviso.ClearSelection() gridMyAviso.ClearSelection()
Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm() Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
Dim f As New frmEintragAviso Dim f As New frmEintragAviso
If sender Is ToolStripMenuItem17 Then
f.FIRMA_TMP = "ATILLA"
End If
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = 0 VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = 0
' f.frmHilf = Me ' f.frmHilf = Me
If Not f.IsDisposed And f IsNot Nothing And Not frmGrayOut.IsDisposed And frmGrayOut IsNot Nothing Then If Not f.IsDisposed And f IsNot Nothing And Not frmGrayOut.IsDisposed And frmGrayOut IsNot Nothing Then
@@ -2553,6 +2564,16 @@ Public Class frmHauptfenster
End Function End Function
Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles Button3.Click Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles Button3.Click
Dim list = VERAG_PROG_ALLGEMEIN.cRechnungsausgang.GET_LIST_WEB(717858, CDate("01.10.2021"), CDate("31.10.2021")) '{5})
For Each d In list
MsgBox(d.RechnungsDatum & " - " & d.RechnungsName_1)
Next
'VERAG_PROG_ALLGEMEIN.cTherefore.saveFileTo_ImportFolderCat("C:\Users\test01\Desktop\TEST.pdf", "12345", "", "Import ab Jänner 2021", "Import ab Jänner 2021") 'VERAG_PROG_ALLGEMEIN.cTherefore.saveFileTo_ImportFolderCat("C:\Users\test01\Desktop\TEST.pdf", "12345", "", "Import ab Jänner 2021", "Import ab Jänner 2021")
Dim mailTo = "al@verag.ag" Dim mailTo = "al@verag.ag"
Dim betreff = "Betreff - TESTMAIL" Dim betreff = "Betreff - TESTMAIL"
@@ -2560,13 +2581,6 @@ Public Class frmHauptfenster
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(mailTo, betreff, htmlBody, , False, False) VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(mailTo, betreff, htmlBody, , False, False)
Exit Sub Exit Sub
Dim dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", 717858, ) '{5})
For Each d In dt.Rows
MsgBox(d("LKW_Nr") & " - " & d("Status"))
Next
Exit Sub Exit Sub
CHMRC.hmrcTEST() CHMRC.hmrcTEST()
@@ -3004,12 +3018,14 @@ Public Class frmHauptfenster
Panel1.Height -= pnlSearch.Height Panel1.Height -= pnlSearch.Height
Panel1.Height += tbcntrAviso.Height Panel1.Height += tbcntrAviso.Height
tbcntrAviso.Visible = True tbcntrAviso.Visible = True
Me.Refresh()
Aviso_anzeigen("") Aviso_anzeigen("")
Else Else
pnlSearch.Visible = True pnlSearch.Visible = True
Panel1.Height += pnlSearch.Height Panel1.Height += pnlSearch.Height
Panel1.Height -= tbcntrAviso.Height Panel1.Height -= tbcntrAviso.Height
tbcntrAviso.Visible = False tbcntrAviso.Visible = False
Me.Refresh()
initDat() initDat()
gridAviso.Columns.Clear() gridAviso.Columns.Clear()
cboFiliale.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True) cboFiliale.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True)
@@ -3789,6 +3805,14 @@ Public Class frmHauptfenster
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "WOCECKLISTEAbgangVerwahrungsortZV") Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "WOCECKLISTEAbgangVerwahrungsortZV")
DS.OPEN_SINGLE() DS.OPEN_SINGLE()
End Sub End Sub
Private Sub cntxtAtilla_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles cntxtAtilla.Opening
ToolStripMenuItem17.Visible = (VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX")
End Sub
End Class End Class
Public Class AvisoStatusFunctions Public Class AvisoStatusFunctions

11
Aviso/frmLogin.vb
View File

@@ -85,16 +85,19 @@ Public Class frmLogin
Dim WI = System.Security.Principal.WindowsIdentity.GetCurrent().Name Dim WI = System.Security.Principal.WindowsIdentity.GetCurrent().Name
If WI.Contains("\") Then If WI.Contains("\") Then
Dim Split() = WI.Split("\") Dim Split() = WI.Split("\")
Dim UsernameTMP = ADMIN.getUstName_ByAD(Split(0), Split(1)) 'Dim UsernameTMP = ADMIN.getUstName_ByAD(Split(0), Split(1))
Dim firmaTmp = ADMIN.getUstFirma_ByAD(Split(0), Split(1))
If firmaTmp = "" Then
Dim UsernameTMP = ADMIN.getUstName_ByAD(Split(0), Split(1)) ' Eig nicht mehr nötig...
If UsernameTMP <> "" Then If UsernameTMP <> "" Then
Dim firmaTmp = ADMIN.getValueTxtBySql("SELECT mit_firma FROM [tblMitarbeiter] where [mit_username] = '" & UsernameTMP & "' AND mit_firma NOT IN ('BEIDE','ALLE','ALL') ", "ADMIN") firmaTmp = ADMIN.getValueTxtBySql("SELECT isnull(mit_firma,'') FROM [tblMitarbeiter] where [mit_username] = '" & UsernameTMP & "' AND mit_firma NOT IN ('BEIDE','ALLE','ALL') ", "ADMIN")
End If
End If
If firmaTmp <> "" Then If firmaTmp <> "" Then
firma = firmaTmp firma = firmaTmp
End If End If
End If End If
End If
Catch ex As Exception Catch ex As Exception
' MsgBox(ex.Message & ex.StackTrace) ' MsgBox(ex.Message & ex.StackTrace)
End Try End Try

1
Aviso/usrcntlAktDetails.vb
View File

@@ -1970,7 +1970,6 @@ Public Class usrcntlAktDetails
DirectCast(r.Cells("SendungFakturiert"), DataGridViewImageCell).ToolTipText = "Sendung fakturiert" DirectCast(r.Cells("SendungFakturiert"), DataGridViewImageCell).ToolTipText = "Sendung fakturiert"
End If End If
'If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "QS" Then 'If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "QS" Then
' If r.Cells("tblSnd_QS_MA").Value = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then ' If r.Cells("tblSnd_QS_MA").Value = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then
' DirectCast(r.Cells("Abgeklaert"), DataGridViewImageCell).Value = My.Resources.abgeklaertAktiv ' DirectCast(r.Cells("Abgeklaert"), DataGridViewImageCell).Value = My.Resources.abgeklaertAktiv

13
Aviso/usrcntlAktDetailsATILLANeu.vb
View File

@@ -448,7 +448,7 @@ Public Class usrcntlAktDetailsATILLANeu
End Sub End Sub
Sub initAnhaenge() Sub initAnhaenge()
Dim hSQL As String = " SELECT [anh_id],[anh_Name],[anh_docId],[anh_Art],[anh_Typ] FROM [tblAvisoAnhaenge] Dim hSQL As String = " SELECT [anh_id],anh_Datum,[anh_Name],[anh_docId],[anh_Art],[anh_Typ] FROM [tblAvisoAnhaenge]
WHERE [anh_AvisoId]='" & AvisoID & "' AND isnull(anh_SendungsId,0) <=0 WHERE [anh_AvisoId]='" & AvisoID & "' AND isnull(anh_SendungsId,0) <=0
ORDER BY ORDER BY
case case
@@ -469,7 +469,7 @@ Public Class usrcntlAktDetailsATILLANeu
when [anh_Art] = 'Sonstiges' then 99 when [anh_Art] = 'Sonstiges' then 99
when [anh_Art] ='' then 15 when [anh_Art] ='' then 15
END, [anh_Reihenfolge],[anh_id]" END, [anh_Reihenfolge], anh_Datum desc, [anh_id]"
' order by [anh_Reihenfolge],[anh_id] ' order by [anh_Reihenfolge],[anh_id]
dgvanhaenge.DataSource = VermerkeDAL.Anzeigen_Vermerke(hSQL) dgvanhaenge.DataSource = VermerkeDAL.Anzeigen_Vermerke(hSQL)
@@ -484,17 +484,22 @@ Public Class usrcntlAktDetailsATILLANeu
.Columns("anh_id").Visible = False 'VermerkID nicht anzeigenconMenuVermerke .Columns("anh_id").Visible = False 'VermerkID nicht anzeigenconMenuVermerke
.Columns("anh_docId").Visible = False 'AvisoID nicht anzeigen .Columns("anh_docId").Visible = False 'AvisoID nicht anzeigen
.Columns("anh_Datum").MinimumWidth = 50
.Columns("anh_Datum").HeaderText = "Datum"
.Columns("anh_Datum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns("anh_Name").MinimumWidth = 150 .Columns("anh_Name").MinimumWidth = 150
.Columns("anh_Name").HeaderText = "Name" .Columns("anh_Name").HeaderText = "Name"
.Columns("anh_Name").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill .Columns("anh_Name").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("anh_Art").MinimumWidth = 50 .Columns("anh_Art").MinimumWidth = 50
.Columns("anh_Art").HeaderText = "Art" .Columns("anh_Art").HeaderText = "Art"
.Columns("anh_Art").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter .Columns("anh_Art").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns("anh_Typ").Width = 60 .Columns("anh_Typ").Width = 60
.Columns("anh_Typ").HeaderText = "Typ" .Columns("anh_Typ").HeaderText = "Typ"
.Columns("anh_Art").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter .Columns("anh_Art").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
End With End With

3
Gemeinsames/Gemeinsames.vbproj
View File

@@ -290,6 +290,9 @@
<CopyToOutputDirectory>Always</CopyToOutputDirectory> <CopyToOutputDirectory>Always</CopyToOutputDirectory>
</None> </None>
</ItemGroup> </ItemGroup>
<ItemGroup>
<Content Include="Resources\FO.png" />
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" /> <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
<!-- To modify your build process, add your task inside one of the targets below and uncomment it. <!-- To modify your build process, add your task inside one of the targets below and uncomment it.
Other similar extension points exist, see Microsoft.Common.targets. Other similar extension points exist, see Microsoft.Common.targets.

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

@@ -22,7 +22,7 @@ Namespace My.Resources
'''<summary> '''<summary>
''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw. ''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
'''</summary> '''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "15.0.0.0"), _ <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "17.0.0.0"), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _ Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _ Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
@@ -90,6 +90,16 @@ Namespace My.Resources
End Get End Get
End Property End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property FO() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("FO", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary> '''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary> '''</summary>

3
Gemeinsames/My Project/Resources.resx
View File

@@ -124,6 +124,9 @@
<data name="Aviso" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="Aviso" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Aviso.ico;System.Drawing.Icon, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\Aviso.ico;System.Drawing.Icon, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="FO" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\..\..\..\SDL\data\FO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="IMEX" type="System.Resources.ResXFileRef, System.Windows.Forms"> <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> <value>..\Resources\IMEX.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>

BIN
Gemeinsames/Resources/FO.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 170 KiB