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

WARENORT-AVISO, EN-Anpassung, Benachrichtigungen, ATILLA-Indonesien, AVISO-TV

Browse Source
This commit is contained in:
Andreas Luxbauer
2022-12-14 21:20:36 +01:00
parent 4b2dca43dd
commit 2c1de3334b
22 changed files with 1582 additions and 1107 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
AVISOUPDATER/AVISOUPDATER_Version.txt
View File

@@ -1 +1 @@
7.0 7.1

8
AVISOUPDATER/UPDATERfrm.vb
View File

@@ -107,7 +107,7 @@ Public Class UPDATERfrm
If CopyIncremental Then If CopyIncremental Then
cProgrammeUpdate.copyProgramLIST(F, AppDomain.CurrentDomain.BaseDirectory, {"AVISOUPDATER", "NOT_DEL_"}) cProgrammeUpdate.copyProgramLIST(F, AppDomain.CurrentDomain.BaseDirectory, {"AVISOUPDATER", "NOT_DEL_", "Standort.txt"})
Else Else
delFiles() delFiles()
FileCopier() FileCopier()
@@ -256,7 +256,7 @@ Public Class UPDATERfrm
For Each file_source In IO.Directory.GetFiles(F) 'jedes File in F:\ For Each file_source In IO.Directory.GetFiles(F) 'jedes File in F:\
Dim found = False Dim found = False
For Each file As String In IO.Directory.GetFiles(AppDomain.CurrentDomain.BaseDirectory) ' Ermittelt alle Dateien des Ordners For Each file As String In IO.Directory.GetFiles(AppDomain.CurrentDomain.BaseDirectory) ' Ermittelt alle Dateien des Ordners
If Not cut_file(file).Contains("AVISOUPDATER") And Not cut_file(file).Contains("NOT_DEL_") Then 'alles außer den Updater If Not cut_file(file).Contains("AVISOUPDATER") And Not cut_file(file).Contains("NOT_DEL_") And Not cut_file(file).Contains("Standort.txt") Then 'alles außer den Updater
If cut_file(file) = cut_file(file_source) Then 'Gleicher Name If cut_file(file) = cut_file(file_source) Then 'Gleicher Name
If CompareFiles(file, file_source) Then If CompareFiles(file, file_source) Then
'selbe Datei --> Nichts 'selbe Datei --> Nichts
@@ -279,7 +279,7 @@ Public Class UPDATERfrm
For Each file As String In IO.Directory.GetFiles(AppDomain.CurrentDomain.BaseDirectory) ' Ermittelt alle Dateien des Ordners For Each file As String In IO.Directory.GetFiles(AppDomain.CurrentDomain.BaseDirectory) ' Ermittelt alle Dateien des Ordners
Dim found = False Dim found = False
For Each file_source In IO.Directory.GetFiles(F) 'jedes File in F:\ For Each file_source In IO.Directory.GetFiles(F) 'jedes File in F:\
If Not cut_file(file).Contains("AVISOUPDATER") And Not cut_file(file).Contains("NOT_DEL_") Then 'alles außer den Updater If Not cut_file(file).Contains("AVISOUPDATER") And Not cut_file(file).Contains("NOT_DEL_") And Not cut_file(file).Contains("Standort.txt") Then 'alles außer den Updater
If cut_file(file) = cut_file(file_source) Then 'Gleicher Name If cut_file(file) = cut_file(file_source) Then 'Gleicher Name
found = True found = True
End If End If
@@ -312,7 +312,7 @@ Public Class UPDATERfrm
'Dim f As String = "no" 'Dim f As String = "no"
Try Try
For Each file As String In IO.Directory.GetFiles(AppDomain.CurrentDomain.BaseDirectory) ' Ermittelt alle Dateien des Ordners For Each file As String In IO.Directory.GetFiles(AppDomain.CurrentDomain.BaseDirectory) ' Ermittelt alle Dateien des Ordners
If Not cut_file(file).Contains("AVISOUPDATER") And Not cut_file(file).Contains("NOT_DEL_") Then If Not cut_file(file).Contains("AVISOUPDATER") And Not cut_file(file).Contains("NOT_DEL_") And Not cut_file(file).Contains("Standort.txt") Then
' f = file ' f = file
My.Computer.FileSystem.DeleteFile(file) 'Löscht das AVISO-Programm, außer den Updater My.Computer.FileSystem.DeleteFile(file) 'Löscht das AVISO-Programm, außer den Updater
' IO.File.Delete(file) ' IO.File.Delete(file)

28
Aviso/Benachrichtigung/frmAvisoWeiterleiten.vb
View File

@@ -163,12 +163,34 @@ Public Class frmAvisoWeiterleiten
End If End If
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" And WLart = "A" And bezeichnung = "VERIMEX" Then
If vbYes = MsgBox("Akt auf Status 'VERIMEX' setzten?", vbYesNoCancel) Then
'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" And WLart = "A" And bezeichnung = "VERIMEX" Then
' If vbYes = MsgBox("Akt auf Status 'VERIMEX' setzten?", vbYesNoCancel) Then
' Dim FUNC As New AvisoStatusFunctions
' FUNC.setVorbereitet(AvisoId)
' End If
'End If
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("STATUS_ATILLA") Then
If WLart = "T" And bezeichnungFirma = "VERIMEX" Or WLart = "F" And bezeichnung = "VERIMEX" Then
If vbYes = MsgBox("Akt auf Status 'AN VERIMEX' setzten?", vbYesNoCancel) Then
Dim FUNC As New AvisoStatusFunctions Dim FUNC As New AvisoStatusFunctions
FUNC.setVorbereitet(AvisoId) FUNC.setAnVERIMEX(AvisoId)
End If End If
End If End If
If WLart = "T" And bezeichnung = "INDONESIEN" Then
If vbYes = MsgBox("Akt auf Status 'AN INDONESIEN' setzten?", vbYesNoCancel) Then
Dim FUNC As New AvisoStatusFunctions
FUNC.setAnINDONESIEN(AvisoId)
End If
End If
End If
End If
' Me.Close() ' Me.Close()
' End If ' End If

33
Aviso/Benachrichtigung/usrCntlBenachrichtigungen.Designer.vb generated
View File

@@ -28,6 +28,7 @@ Partial Class usrCntlBenachrichtigungen
Me.MyComboBox2 = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.MyComboBox2 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.gridAvisoBenachrichtigungen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.gridAvisoBenachrichtigungen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.Panel4 = New System.Windows.Forms.Panel() Me.Panel4 = New System.Windows.Forms.Panel()
Me.txtVermerk = New System.Windows.Forms.TextBox()
Me.cbxNeukunden = New System.Windows.Forms.CheckBox() Me.cbxNeukunden = New System.Windows.Forms.CheckBox()
Me.Button10 = New System.Windows.Forms.Button() Me.Button10 = New System.Windows.Forms.Button()
Me.Panel3 = New System.Windows.Forms.Panel() Me.Panel3 = New System.Windows.Forms.Panel()
@@ -35,7 +36,7 @@ Partial Class usrCntlBenachrichtigungen
Me.cbxTeams = New System.Windows.Forms.CheckBox() Me.cbxTeams = New System.Windows.Forms.CheckBox()
Me.Label22 = New System.Windows.Forms.Label() Me.Label22 = New System.Windows.Forms.Label()
Me.Label25 = New System.Windows.Forms.Label() Me.Label25 = New System.Windows.Forms.Label()
Me.txtVermerk = New System.Windows.Forms.TextBox() Me.cbxVerwarung = New System.Windows.Forms.CheckBox()
Me.Panel2.SuspendLayout() Me.Panel2.SuspendLayout()
CType(Me.gridAvisoBenachrichtigungen, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.gridAvisoBenachrichtigungen, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel4.SuspendLayout() Me.Panel4.SuspendLayout()
@@ -93,6 +94,7 @@ Partial Class usrCntlBenachrichtigungen
'Panel4 'Panel4
' '
Me.Panel4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.Panel4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Panel4.Controls.Add(Me.cbxVerwarung)
Me.Panel4.Controls.Add(Me.txtVermerk) Me.Panel4.Controls.Add(Me.txtVermerk)
Me.Panel4.Controls.Add(Me.cbxNeukunden) Me.Panel4.Controls.Add(Me.cbxNeukunden)
Me.Panel4.Controls.Add(Me.Button10) Me.Panel4.Controls.Add(Me.Button10)
@@ -102,6 +104,16 @@ Partial Class usrCntlBenachrichtigungen
Me.Panel4.Size = New System.Drawing.Size(284, 38) Me.Panel4.Size = New System.Drawing.Size(284, 38)
Me.Panel4.TabIndex = 5 Me.Panel4.TabIndex = 5
' '
'txtVermerk
'
Me.txtVermerk.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtVermerk.Location = New System.Drawing.Point(7, -1)
Me.txtVermerk.Name = "txtVermerk"
Me.txtVermerk.ReadOnly = True
Me.txtVermerk.Size = New System.Drawing.Size(146, 20)
Me.txtVermerk.TabIndex = 31
'
'cbxNeukunden 'cbxNeukunden
' '
Me.cbxNeukunden.AutoSize = True Me.cbxNeukunden.AutoSize = True
@@ -189,15 +201,17 @@ Partial Class usrCntlBenachrichtigungen
Me.Label25.Text = "0 Akte vom Arbeitsplatz übernommen" Me.Label25.Text = "0 Akte vom Arbeitsplatz übernommen"
Me.Label25.TextAlign = System.Drawing.ContentAlignment.TopRight Me.Label25.TextAlign = System.Drawing.ContentAlignment.TopRight
' '
'txtVermerk 'cbxVerwarung
' '
Me.txtVermerk.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ Me.cbxVerwarung.AutoSize = True
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.cbxVerwarung.ForeColor = System.Drawing.Color.Black
Me.txtVermerk.Location = New System.Drawing.Point(7, -1) Me.cbxVerwarung.Location = New System.Drawing.Point(85, 19)
Me.txtVermerk.Name = "txtVermerk" Me.cbxVerwarung.Name = "cbxVerwarung"
Me.txtVermerk.ReadOnly = True Me.cbxVerwarung.Size = New System.Drawing.Size(83, 17)
Me.txtVermerk.Size = New System.Drawing.Size(146, 20) Me.cbxVerwarung.TabIndex = 32
Me.txtVermerk.TabIndex = 31 Me.cbxVerwarung.Text = "Verwahrung"
Me.cbxVerwarung.UseVisualStyleBackColor = True
Me.cbxVerwarung.Visible = False
' '
'usrCntlBenachrichtigungen 'usrCntlBenachrichtigungen
' '
@@ -228,4 +242,5 @@ Partial Class usrCntlBenachrichtigungen
Friend WithEvents cbxCluster As CheckBox Friend WithEvents cbxCluster As CheckBox
Friend WithEvents cbxNeukunden As CheckBox Friend WithEvents cbxNeukunden As CheckBox
Friend WithEvents txtVermerk As TextBox Friend WithEvents txtVermerk As TextBox
Friend WithEvents cbxVerwarung As CheckBox
End Class End Class

14
Aviso/Benachrichtigung/usrCntlBenachrichtigungen.vb
View File

@@ -1,4 +1,6 @@
Public Class usrCntlBenachrichtigungen Imports DAKOSY_Worker.SumAErledigungsinformationVorpapier
Public Class usrCntlBenachrichtigungen
Dim VERAGSQL As New VERAG_PROG_ALLGEMEIN.SQL Dim VERAGSQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim ASF As New AvisoStatusFunctions Dim ASF As New AvisoStatusFunctions
@@ -48,6 +50,12 @@
whereMA &= " OR (ab_TO_Art='F' AND ab_TO_Code='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "') " whereMA &= " OR (ab_TO_Art='F' AND ab_TO_Code='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "') "
End If End If
If cbxVerwarung.Checked Then
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "VERAG"
whereMA &= " OR (ab_TO_Art='T' AND ab_TO_Code='26') " 'TEAM_VERWARUNG --> VERAG
End Select
End If
If cbxTeams.Checked Then If cbxTeams.Checked Then
whereMA &= " Or (ab_TO_Art='T' AND ab_TO_Code IN (SELECT [team_id] FROM ADMIN.dbo.[tblTeams] WHERE team_firma = '" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "')) " whereMA &= " Or (ab_TO_Art='T' AND ab_TO_Code IN (SELECT [team_id] FROM ADMIN.dbo.[tblTeams] WHERE team_firma = '" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "')) "
@@ -205,6 +213,10 @@
'cbxNeukunden.Checked = True 'cbxNeukunden.Checked = True
End If End If
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("BENACHRICHTIGUNGEN_SeeVerwahrung", "AVISO") Then
cbxVerwarung.Visible = True
cbxVerwarung.Checked = True
End If
'NEIN; weils zB Waidhaus dann alles sieht und übernimmt 'NEIN; weils zB Waidhaus dann alles sieht und übernimmt

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.8.3.0")> <Assembly: AssemblyVersion("3.8.3.4")>
<Assembly: AssemblyFileVersion("3.8.3.0")> <Assembly: AssemblyFileVersion("3.8.3.4")>

66
Aviso/frmAddAktenvermerkShort.Designer.vb generated
View File

@@ -25,7 +25,7 @@ Partial Class frmAddAktenvermerkShort
Me.components = New System.ComponentModel.Container() Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAddAktenvermerkShort)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAddAktenvermerkShort))
Me.pnlAktenVermerk = New System.Windows.Forms.Panel() Me.pnlAktenVermerk = New System.Windows.Forms.Panel()
Me.Button2 = New System.Windows.Forms.Button() Me.btnLKWUmmelden = New System.Windows.Forms.Button()
Me.btnLKWumgemeldet = New System.Windows.Forms.Button() Me.btnLKWumgemeldet = New System.Windows.Forms.Button()
Me.btnDEZollDIGITAL = New System.Windows.Forms.Button() Me.btnDEZollDIGITAL = New System.Windows.Forms.Button()
Me.Panel1 = New System.Windows.Forms.Panel() Me.Panel1 = New System.Windows.Forms.Panel()
@@ -47,7 +47,7 @@ Partial Class frmAddAktenvermerkShort
Me.Label2 = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label()
Me.btnLKWFertig = New System.Windows.Forms.Button() Me.btnLKWFertig = New System.Windows.Forms.Button()
Me.btnAktUebernehmen = New System.Windows.Forms.Button() Me.btnAktUebernehmen = New System.Windows.Forms.Button()
Me.Button1 = New System.Windows.Forms.Button() Me.btnClose = New System.Windows.Forms.Button()
Me.pnl = New System.Windows.Forms.Panel() Me.pnl = New System.Windows.Forms.Panel()
Me.btnNichtEingetroffen = New System.Windows.Forms.Button() Me.btnNichtEingetroffen = New System.Windows.Forms.Button()
Me.btnFreigabe = New System.Windows.Forms.Button() Me.btnFreigabe = New System.Windows.Forms.Button()
@@ -76,7 +76,7 @@ Partial Class frmAddAktenvermerkShort
' '
Me.pnlAktenVermerk.BackColor = System.Drawing.Color.White Me.pnlAktenVermerk.BackColor = System.Drawing.Color.White
Me.pnlAktenVermerk.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.pnlAktenVermerk.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnlAktenVermerk.Controls.Add(Me.Button2) Me.pnlAktenVermerk.Controls.Add(Me.btnLKWUmmelden)
Me.pnlAktenVermerk.Controls.Add(Me.btnLKWumgemeldet) Me.pnlAktenVermerk.Controls.Add(Me.btnLKWumgemeldet)
Me.pnlAktenVermerk.Controls.Add(Me.btnDEZollDIGITAL) Me.pnlAktenVermerk.Controls.Add(Me.btnDEZollDIGITAL)
Me.pnlAktenVermerk.Controls.Add(Me.Panel1) Me.pnlAktenVermerk.Controls.Add(Me.Panel1)
@@ -91,7 +91,7 @@ Partial Class frmAddAktenvermerkShort
Me.pnlAktenVermerk.Controls.Add(Me.Label2) Me.pnlAktenVermerk.Controls.Add(Me.Label2)
Me.pnlAktenVermerk.Controls.Add(Me.btnLKWFertig) Me.pnlAktenVermerk.Controls.Add(Me.btnLKWFertig)
Me.pnlAktenVermerk.Controls.Add(Me.btnAktUebernehmen) Me.pnlAktenVermerk.Controls.Add(Me.btnAktUebernehmen)
Me.pnlAktenVermerk.Controls.Add(Me.Button1) Me.pnlAktenVermerk.Controls.Add(Me.btnClose)
Me.pnlAktenVermerk.Controls.Add(Me.pnl) Me.pnlAktenVermerk.Controls.Add(Me.pnl)
Me.pnlAktenVermerk.Controls.Add(Me.btnSpaetAvisiert) Me.pnlAktenVermerk.Controls.Add(Me.btnSpaetAvisiert)
Me.pnlAktenVermerk.Controls.Add(Me.btnLKWStandzeitFeierteage) Me.pnlAktenVermerk.Controls.Add(Me.btnLKWStandzeitFeierteage)
@@ -107,19 +107,19 @@ Partial Class frmAddAktenvermerkShort
Me.pnlAktenVermerk.Size = New System.Drawing.Size(401, 509) Me.pnlAktenVermerk.Size = New System.Drawing.Size(401, 509)
Me.pnlAktenVermerk.TabIndex = 0 Me.pnlAktenVermerk.TabIndex = 0
' '
'Button2 'btnLKWUmmelden
' '
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnLKWUmmelden.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button2.Image = Global.AVISO.My.Resources.Resources.lorry_ummelden Me.btnLKWUmmelden.Image = Global.AVISO.My.Resources.Resources.lorry_ummelden
Me.Button2.ImageAlign = System.Drawing.ContentAlignment.TopCenter Me.btnLKWUmmelden.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.Button2.Location = New System.Drawing.Point(298, 145) Me.btnLKWUmmelden.Location = New System.Drawing.Point(298, 145)
Me.Button2.Margin = New System.Windows.Forms.Padding(0) Me.btnLKWUmmelden.Margin = New System.Windows.Forms.Padding(0)
Me.Button2.Name = "Button2" Me.btnLKWUmmelden.Name = "btnLKWUmmelden"
Me.Button2.Size = New System.Drawing.Size(89, 83) Me.btnLKWUmmelden.Size = New System.Drawing.Size(89, 83)
Me.Button2.TabIndex = 109 Me.btnLKWUmmelden.TabIndex = 109
Me.Button2.Text = "LKW ummelden..." Me.btnLKWUmmelden.Text = "LKW ummelden..."
Me.Button2.TextAlign = System.Drawing.ContentAlignment.BottomCenter Me.btnLKWUmmelden.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.Button2.UseVisualStyleBackColor = True Me.btnLKWUmmelden.UseVisualStyleBackColor = True
' '
'btnLKWumgemeldet 'btnLKWumgemeldet
' '
@@ -391,22 +391,22 @@ Partial Class frmAddAktenvermerkShort
Me.btnAktUebernehmen.TextAlign = System.Drawing.ContentAlignment.BottomCenter Me.btnAktUebernehmen.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.btnAktUebernehmen.UseVisualStyleBackColor = True Me.btnAktUebernehmen.UseVisualStyleBackColor = True
' '
'Button1 'btnClose
' '
Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.btnClose.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.btnClose.BackColor = System.Drawing.Color.Red
Me.Button1.FlatAppearance.BorderColor = System.Drawing.Color.White Me.btnClose.FlatAppearance.BorderColor = System.Drawing.Color.White
Me.Button1.FlatAppearance.BorderSize = 0 Me.btnClose.FlatAppearance.BorderSize = 0
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnClose.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.btnClose.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.btnClose.ForeColor = System.Drawing.Color.White
Me.Button1.Location = New System.Drawing.Point(346, 0) Me.btnClose.Location = New System.Drawing.Point(346, 0)
Me.Button1.Name = "Button1" Me.btnClose.Name = "btnClose"
Me.Button1.RightToLeft = System.Windows.Forms.RightToLeft.Yes Me.btnClose.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.Button1.Size = New System.Drawing.Size(54, 20) Me.btnClose.Size = New System.Drawing.Size(54, 20)
Me.Button1.TabIndex = 94 Me.btnClose.TabIndex = 94
Me.Button1.Text = "X" Me.btnClose.Text = "X"
Me.Button1.UseVisualStyleBackColor = False Me.btnClose.UseVisualStyleBackColor = False
' '
'pnl 'pnl
' '
@@ -688,7 +688,7 @@ Partial Class frmAddAktenvermerkShort
Friend WithEvents btnVorbereitet As System.Windows.Forms.Button Friend WithEvents btnVorbereitet As System.Windows.Forms.Button
Friend WithEvents btnVorgeschrieben As System.Windows.Forms.Button Friend WithEvents btnVorgeschrieben As System.Windows.Forms.Button
Friend WithEvents btnNichtEingetroffen As System.Windows.Forms.Button Friend WithEvents btnNichtEingetroffen As System.Windows.Forms.Button
Friend WithEvents Button1 As System.Windows.Forms.Button Friend WithEvents btnClose As System.Windows.Forms.Button
Friend WithEvents btnLKWFertig As System.Windows.Forms.Button Friend WithEvents btnLKWFertig As System.Windows.Forms.Button
Friend WithEvents btnAktUebernehmen As System.Windows.Forms.Button Friend WithEvents btnAktUebernehmen As System.Windows.Forms.Button
Friend WithEvents Label2 As System.Windows.Forms.Label Friend WithEvents Label2 As System.Windows.Forms.Label
@@ -702,7 +702,7 @@ Partial Class frmAddAktenvermerkShort
Friend WithEvents btnDEZollDIGITAL As Button Friend WithEvents btnDEZollDIGITAL As Button
Friend WithEvents Panel1 As Panel Friend WithEvents Panel1 As Panel
Friend WithEvents btnLKWumgemeldet As Button Friend WithEvents btnLKWumgemeldet As Button
Friend WithEvents Button2 As Button Friend WithEvents btnLKWUmmelden As Button
Friend WithEvents cntxt As ContextMenuStrip Friend WithEvents cntxt As ContextMenuStrip
Friend WithEvents XXXToolStripMenuItem As ToolStripMenuItem Friend WithEvents XXXToolStripMenuItem As ToolStripMenuItem
End Class End Class

23
Aviso/frmAddAktenvermerkShort.vb
View File

@@ -123,6 +123,25 @@ Public Class frmAddAktenvermerkShort
End If End If
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("WARENORT", "AVISO") Then
For Each c As Control In Me.Controls
Dim enabledTmp = False
If c Is btnAktUebernehmen Then enabledTmp = True
If c Is btnLKWUmmelden Then enabledTmp = True
If c Is btnZollDEEingereicht Then enabledTmp = True
If c Is txtSonstiges Then enabledTmp = True
If c Is btnSonstiges Then enabledTmp = True
If c Is btnAnkunft Then enabledTmp = True
If c Is btnFreigabe Then enabledTmp = True
If c Is btnLKWFertig Then enabledTmp = True
If c Is btnLKWStandzeitWE Then enabledTmp = True
If c Is btnLKWStandzeitFeierteage Then enabledTmp = True
If c Is btnClose Then enabledTmp = True
c.Enabled = enabledTmp
Next
End If
End Sub End Sub
@@ -281,7 +300,7 @@ btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Cli
Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles btnClose.Click
Me.Close() Me.Close()
End Sub End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Private Sub Button1_Click(sender As Object, e As EventArgs)
@@ -310,7 +329,7 @@ btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Cli
End Try End Try
End Sub End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btnLKWUmmelden.Click
cntxt.Show(Cursor.Position) cntxt.Show(Cursor.Position)
End Sub End Sub
End Class End Class

36
Aviso/frmAddSendungsvermerkShort.Designer.vb generated
View File

@@ -40,7 +40,7 @@ Partial Class frmAddSendungsvermerkShort
Me.lblErrSpedition = New System.Windows.Forms.Label() Me.lblErrSpedition = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label()
Me.lblErrGrund = New System.Windows.Forms.Label() Me.lblErrGrund = New System.Windows.Forms.Label()
Me.Button1 = New System.Windows.Forms.Button() Me.btnCLose = New System.Windows.Forms.Button()
Me.lblErrDokument = New System.Windows.Forms.Label() Me.lblErrDokument = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label()
Me.txtSpedition = New System.Windows.Forms.TextBox() Me.txtSpedition = New System.Windows.Forms.TextBox()
@@ -111,7 +111,7 @@ Partial Class frmAddSendungsvermerkShort
Me.pnlSendungsVermker.Controls.Add(Me.lblErrSpedition) Me.pnlSendungsVermker.Controls.Add(Me.lblErrSpedition)
Me.pnlSendungsVermker.Controls.Add(Me.Label2) Me.pnlSendungsVermker.Controls.Add(Me.Label2)
Me.pnlSendungsVermker.Controls.Add(Me.lblErrGrund) Me.pnlSendungsVermker.Controls.Add(Me.lblErrGrund)
Me.pnlSendungsVermker.Controls.Add(Me.Button1) Me.pnlSendungsVermker.Controls.Add(Me.btnCLose)
Me.pnlSendungsVermker.Controls.Add(Me.lblErrDokument) Me.pnlSendungsVermker.Controls.Add(Me.lblErrDokument)
Me.pnlSendungsVermker.Controls.Add(Me.Label1) Me.pnlSendungsVermker.Controls.Add(Me.Label1)
Me.pnlSendungsVermker.Controls.Add(Me.txtSpedition) Me.pnlSendungsVermker.Controls.Add(Me.txtSpedition)
@@ -290,22 +290,22 @@ Partial Class frmAddSendungsvermerkShort
Me.lblErrGrund.Text = "Bitte einen Grund angegeben!" Me.lblErrGrund.Text = "Bitte einen Grund angegeben!"
Me.lblErrGrund.Visible = False Me.lblErrGrund.Visible = False
' '
'Button1 'btnCLose
' '
Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.btnCLose.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.btnCLose.BackColor = System.Drawing.Color.Red
Me.Button1.FlatAppearance.BorderColor = System.Drawing.Color.White Me.btnCLose.FlatAppearance.BorderColor = System.Drawing.Color.White
Me.Button1.FlatAppearance.BorderSize = 0 Me.btnCLose.FlatAppearance.BorderSize = 0
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnCLose.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.btnCLose.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.btnCLose.ForeColor = System.Drawing.Color.White
Me.Button1.Location = New System.Drawing.Point(399, -1) Me.btnCLose.Location = New System.Drawing.Point(399, -1)
Me.Button1.Name = "Button1" Me.btnCLose.Name = "btnCLose"
Me.Button1.RightToLeft = System.Windows.Forms.RightToLeft.Yes Me.btnCLose.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.Button1.Size = New System.Drawing.Size(54, 20) Me.btnCLose.Size = New System.Drawing.Size(54, 20)
Me.Button1.TabIndex = 0 Me.btnCLose.TabIndex = 0
Me.Button1.Text = "X" Me.btnCLose.Text = "X"
Me.Button1.UseVisualStyleBackColor = False Me.btnCLose.UseVisualStyleBackColor = False
' '
'lblErrDokument 'lblErrDokument
' '
@@ -707,7 +707,7 @@ Partial Class frmAddSendungsvermerkShort
Friend WithEvents optSendungInVorbereitung As System.Windows.Forms.CheckBox Friend WithEvents optSendungInVorbereitung As System.Windows.Forms.CheckBox
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
Friend WithEvents lblErrDokument As System.Windows.Forms.Label Friend WithEvents lblErrDokument As System.Windows.Forms.Label
Friend WithEvents Button1 As System.Windows.Forms.Button Friend WithEvents btnCLose As System.Windows.Forms.Button
Friend WithEvents Label2 As System.Windows.Forms.Label Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents optUeberwachungsdok As System.Windows.Forms.CheckBox Friend WithEvents optUeberwachungsdok As System.Windows.Forms.CheckBox
Friend WithEvents cbxRgBest As CheckBox Friend WithEvents cbxRgBest As CheckBox

15
Aviso/frmAddSendungsvermerkShort.vb
View File

@@ -97,6 +97,19 @@ Public Class frmAddSendungsvermerkShort
' optDokumente.Focus() ' optDokumente.Focus()
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("WARENORT", "AVISO") Then
For Each c As Control In Me.Controls
Dim enabledTmp = False
If c Is btnCLose Then enabledTmp = True
If c Is optFremd_SendungAvisiert Then enabledTmp = True
If c Is optFremd_ATB Then enabledTmp = True
If c Is optATAangefordert Then enabledTmp = True
If c Is txtDetail Then enabledTmp = True
If c Is btnOK Then enabledTmp = True
c.Enabled = enabledTmp
Next
End If
End Sub End Sub
@@ -316,7 +329,7 @@ Public Class frmAddSendungsvermerkShort
cbxAuftrag.Focus() cbxAuftrag.Focus()
End Sub End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnCLose.Click
Me.Close() Me.Close()
End Sub End Sub

5
Aviso/frmEintragAviso.vb
View File

@@ -319,6 +319,11 @@ Public Class frmEintragAviso
cboGrenzstelle.changeItem("AMB") cboGrenzstelle.changeItem("AMB")
End If End If
Else Else
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("WARENORT", "AVISO") Then
Me.Close()
End If
Me.Text = "Änderung LKW-Aviso" Me.Text = "Änderung LKW-Aviso"
'If myAviso.Status = cGlobal.Status_Ankunft Or myAviso.Status = cGlobal.Status_Freigegeben Then datVoraussichtlichesEintreffen.Visible = False 'If myAviso.Status = cGlobal.Status_Ankunft Or myAviso.Status = cGlobal.Status_Freigegeben Then datVoraussichtlichesEintreffen.Visible = False

661
Aviso/frmHauptfenster.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

2
Aviso/frmHauptfenster.resx
View File

@@ -150,7 +150,7 @@
ISWDhLo0WMEYobZQ+AVKvQF7kkl9rIbjgwAAAABJRU5ErkJggg== ISWDhLo0WMEYobZQ+AVKvQF7kkl9rIbjgwAAAABJRU5ErkJggg==
</value> </value>
</data> </data>
<data name="Button1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="btnZollwebseiten.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAAhBJREFUSEvt iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAAhBJREFUSEvt
1k1LVFEcgPE7hLYoKQva+Q2ibbve1pL0AYzIXCVIpbVJaqHSJxCswLULKXeBIFRgqwJDJTNQsY0YtdLE 1k1LVFEcgPE7hLYoKQva+Q2ibbve1pL0AYzIXCVIpbVJaqHSJxCswLULKXeBIFRgqwJDJTNQsY0YtdLE

224
Aviso/frmHauptfenster.vb
View File

@@ -12,6 +12,7 @@ Imports com.esendex.sdk.messaging
Imports Newtonsoft.Json Imports Newtonsoft.Json
Imports System.Reflection Imports System.Reflection
Imports System.Runtime.InteropServices Imports System.Runtime.InteropServices
Imports GrapeCity.Viewer.Common.Model
'Imports UID 'Imports UID
@@ -388,17 +389,17 @@ Public Class frmHauptfenster
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("WARENORT", "AVISO") Then If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("WARENORT", "AVISO") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("SRI_LANKA", "AVISO") Then
'MenuStrip1.Items.Clear() 'MenuStrip1.Items.Clear()
MenuStrip1.Items.Remove(FunktionenToolStripMenuItem) ' MenuStrip1.Items.Remove(FunktionenToolStripMenuItem)'-->Siehe unten
MenuStrip1.Items.Remove(StatistikToolStripMenuItem) MenuStrip1.Items.Remove(ToolStripFormulare)
StatistikToolStripMenuItem.DropDownItems.Remove(SDLAuswertungenToolStripMenuItem1) StatistikToolStripMenuItem.DropDownItems.Remove(SDLAuswertungenToolStripMenuItem1)
StatistikToolStripMenuItem.DropDownItems.Remove(SDLAuswertungenToolStripMenuItem) StatistikToolStripMenuItem.DropDownItems.Remove(SDLAuswertungenToolStripMenuItem)
For Each i In FunktionenToolStripMenuItem.DropDownItems For Each i In FunktionenToolStripMenuItem.DropDownItems
If i IsNot ToolStripMenuItem3 Then If i.name <> "tool_BRGXLS" Then
i.Visible = False i.Visible = False
End If End If
Next Next
@@ -416,10 +417,18 @@ Public Class frmHauptfenster
' splitMain.Panel2Collapsed = True ' splitMain.Panel2Collapsed = True
End If End If
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("WARENORT", "AVISO") Then
MenuStrip1.Items.Remove(FunktionenToolStripMenuItem)
MenuStrip1.Items.Remove(StatistikToolStripMenuItem)
btnZollwebseiten.Visible = False
lblErweitereSuche.Visible = False
End If
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KUNDEN", "AVISO") Then If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KUNDEN", "AVISO") Then
btnKunden.Visible = False btnKunden.Visible = False
End If End If
MyComboBox1.Items.Clear() MyComboBox1.Items.Clear()
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("<keine Einschr.>", UStatus_none)) MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("<keine Einschr.>", UStatus_none))
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Aviso-Eingang", UStatus_AVEingang)) MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Aviso-Eingang", UStatus_AVEingang))
@@ -694,7 +703,7 @@ Public Class frmHauptfenster
For Each r As DataGridViewRow In .Rows For Each r As DataGridViewRow In .Rows
If r.Cells("Dauer").Value Is DBNull.Value Or r.Cells("Dauer").Value = 0 Then If r.Cells("Dauer").Value Is DBNull.Value Or r.Cells("Dauer").Value = 0 Then
If CInt(r.Cells("Status").Value) = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft Then If CInt(r.Cells("Status").Value) = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft Or CInt(r.Cells("Status").Value) = VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_VERIMEX Or CInt(r.Cells("Status").Value) = VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_INDONESIEN Then
If Not IsDBNull(r.Cells("Ankunft").Value) AndAlso Not CDate(r.Cells("Ankunft").Value) = LeerDatum Then If Not IsDBNull(r.Cells("Ankunft").Value) AndAlso Not CDate(r.Cells("Ankunft").Value) = LeerDatum Then
Dim dauerTmp = DateDiff(DateInterval.Minute, CDate(VarToDate(r.Cells("Ankunft").Value)), Now) Dim dauerTmp = DateDiff(DateInterval.Minute, CDate(VarToDate(r.Cells("Ankunft").Value)), Now)
If IsNumeric(dauerTmp) AndAlso dauerTmp > 0 Then If IsNumeric(dauerTmp) AndAlso dauerTmp > 0 Then
@@ -890,6 +899,10 @@ Public Class frmHauptfenster
hSQL += " AND Status = 3" hSQL += " AND Status = 3"
ElseIf tbcntrAviso.SelectedTab Is tabFreigegeben Then 'Freigegeben ElseIf tbcntrAviso.SelectedTab Is tabFreigegeben Then 'Freigegeben
hSQL += " AND Status = 1" hSQL += " AND Status = 1"
ElseIf tbcntrAviso.SelectedTab Is tabVERIMEX Then 'Nicht Eingetroffen
hSQL += " AND Status = " & VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_VERIMEX
ElseIf tbcntrAviso.SelectedTab Is tabINDONESIEN Then 'Nicht Eingetroffen
hSQL += " AND Status = " & VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_INDONESIEN
ElseIf tbcntrAviso.SelectedTab Is tabNichtEingetroffen Then 'Nicht Eingetroffen ElseIf tbcntrAviso.SelectedTab Is tabNichtEingetroffen Then 'Nicht Eingetroffen
hSQL += " AND Status = 2" hSQL += " AND Status = 2"
End If End If
@@ -1093,12 +1106,14 @@ Public Class frmHauptfenster
'---------------------------------------------------------------------------------------------------------------------------------- '----------------------------------------------------------------------------------------------------------------------------------
sqlStr = " SELECT AvisoID, CASE WHEN [LKW_fertig] = 1 THEN 'OK' ELSE '' END AS [LKW_fertig], [Status],CASE WHEN LetzterMitarbeiterId=@maId then '0' ELSE '1' END as [statVorb], LKW_Nr, Dauer, Datum, AvisoEingang, Ankunft, Grenzstelle, Freigabe,LetzterMitarbeiterId AS maId, LetzterMitarbeiterId ,/* CASE WHEN LetzterMitarbeiterId=@maId then '0' ELSE '1' END as Vorbereitung,*/LetzterMitarbeiter,AvisoTVHinweis " & sqlStr = " SELECT AvisoID, CASE WHEN [LKW_fertig] = 1 THEN 'OK' ELSE '' END AS [LKW_fertig], [Status],CASE WHEN LetzterMitarbeiterId=@maId then '0' ELSE '1' END as [statVorb], LKW_Nr, Dauer, Datum, AvisoEingang, Ankunft, Grenzstelle, Freigabe,LetzterMitarbeiterId AS maId, LetzterMitarbeiterId ,/* CASE WHEN LetzterMitarbeiterId=@maId then '0' ELSE '1' END as Vorbereitung,*/LetzterMitarbeiter,AvisoTVHinweis " &
" FROM Aviso " & " FROM Aviso " &
" WHERE ( Status IN (0, 3, 4, 5) OR ( Status = 1 AND [Abgeschlossen] = 0 )) " & " WHERE ( Status IN (0, 3, 4, 5,6,7) OR ( Status = 1 AND [Abgeschlossen] = 0 )) " &
sqlStrFirma & " AND (LetzterMitarbeiterId=@maId) " sqlStrFirma & " AND (LetzterMitarbeiterId=@maId) "
If cboMy_Grenzstelle._value <> "" Then sqlStr &= " AND Grenzstelle = '" & cboMy_Grenzstelle._value & "'" If cboMy_Grenzstelle._value <> "" Then sqlStr &= " AND Grenzstelle = '" & cboMy_Grenzstelle._value & "'"
sqlStr &= " ORDER BY case " & sqlStr &= " ORDER BY case " &
" when [Status] =3 then 0 " & " when [Status] =3 then 0 " &
" when [Status] =6 then 0.5 " &
" when [Status] =7 then 0.5 " &
" when [Status] =0 then 1 " & " when [Status] =0 then 1 " &
" when [Status] =99 then 2 " & " when [Status] =99 then 2 " &
" when [Status] =4 then 3 " & " when [Status] =4 then 3 " &
@@ -1432,12 +1447,16 @@ Public Class frmHauptfenster
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("AVISO_MeineSND_Farbe") Then If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("AVISO_MeineSND_Farbe") Then
If Not cbx_My_LKW.Checked Then If Not cbx_My_LKW.Checked Then
Select Case r.Cells("Status").Value Select Case r.Cells("Status").Value
Case "1", "2" Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen, VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben '"1", "2"
' Freigabe, N.Eingetr. ' Freigabe, N.Eingetr.
Case "3" Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft '"3"
' Ankunft ' Ankunft
r.DefaultCellStyle.BackColor = Color.IndianRed r.DefaultCellStyle.BackColor = Color.IndianRed
r.Cells("DauerText").Style.ForeColor = Color.White r.Cells("DauerText").Style.ForeColor = Color.White
Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_VERIMEX, VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_INDONESIEN
' Ankunft
r.DefaultCellStyle.BackColor = Color.SteelBlue
r.Cells("DauerText").Style.ForeColor = Color.White
Case Else Case Else
'Alle anderen Status: 'Alle anderen Status:
If r.Cells("VoraussichtlichesEintreffen").Value IsNot DBNull.Value AndAlso IsDate(r.Cells("VoraussichtlichesEintreffen").Value) Then If r.Cells("VoraussichtlichesEintreffen").Value IsNot DBNull.Value AndAlso IsDate(r.Cells("VoraussichtlichesEintreffen").Value) Then
@@ -1588,6 +1607,8 @@ Public Class frmHauptfenster
Case 3 : e.Value = "Ankunft" : gridMyAviso.Rows(e.RowIndex).Cells("Status").Style.Font = New Font(gridMyAviso.Font.FontFamily, gridMyAviso.Font.Size, FontStyle.Bold) 'New Font(gridMyAviso.DefaultCellStyle.Font, 8.0F) Case 3 : e.Value = "Ankunft" : gridMyAviso.Rows(e.RowIndex).Cells("Status").Style.Font = New Font(gridMyAviso.Font.FontFamily, gridMyAviso.Font.Size, FontStyle.Bold) 'New Font(gridMyAviso.DefaultCellStyle.Font, 8.0F)
Case 4 : e.Value = "Vorbereitet" Case 4 : e.Value = "Vorbereitet"
Case 5 : e.Value = "Vorgeschrieben" Case 5 : e.Value = "Vorgeschrieben"
Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_INDONESIEN : e.Value = "An Indonesien"
Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_VERIMEX : e.Value = "An Verimex"
' Case 99 : e.Value = "in Vorbereitung" : gridMyAviso.Rows(e.RowIndex).DefaultCellStyle.Font = New Font(gridMyAviso.Font.FontFamily, gridMyAviso.Font.Size, FontStyle.Bold) 'New Font(gridMyAviso.DefaultCellStyle.Font, 8.0F) ' Case 99 : e.Value = "in Vorbereitung" : gridMyAviso.Rows(e.RowIndex).DefaultCellStyle.Font = New Font(gridMyAviso.Font.FontFamily, gridMyAviso.Font.Size, FontStyle.Bold) 'New Font(gridMyAviso.DefaultCellStyle.Font, 8.0F)
'gridMyAviso.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.Brown 'gridMyAviso.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.Brown
' gridMyAviso.Rows(e.RowIndex).Cells("Status").Style.Font = New Font(gridMyAviso.Font.FontFamily, gridMyAviso.Font.Size, FontStyle.Bold) 'New Font(gridMyAviso.DefaultCellStyle.Font, 8.0F) ' gridMyAviso.Rows(e.RowIndex).Cells("Status").Style.Font = New Font(gridMyAviso.Font.FontFamily, gridMyAviso.Font.Size, FontStyle.Bold) 'New Font(gridMyAviso.DefaultCellStyle.Font, 8.0F)
@@ -1630,6 +1651,8 @@ Public Class frmHauptfenster
Case 3 : e.Value = "Ankunft" Case 3 : e.Value = "Ankunft"
Case 4 : e.Value = "Vorbereitet" Case 4 : e.Value = "Vorbereitet"
Case 5 : e.Value = "Vorgeschrieben" Case 5 : e.Value = "Vorgeschrieben"
Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_INDONESIEN : e.Value = "An Indonesien"
Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_VERIMEX : e.Value = "An Verimex"
Case Else : e.Value = "unbekannt" Case Else : e.Value = "unbekannt"
End Select End Select
@@ -2017,7 +2040,7 @@ Public Class frmHauptfenster
GridZeichnenAviso() GridZeichnenAviso()
End Sub End Sub
Private Sub btnErfasst_MouseHover(sender As Object, e As EventArgs) Handles Button1.MouseEnter, Button7.MouseEnter, Button6.MouseEnter, Button5.MouseEnter, btnSpedBuch.MouseEnter, btnRg.MouseEnter, btnRefresh.MouseEnter, btnNeu.MouseEnter, btnKunden.MouseEnter, btnKassenbuch.MouseEnter, btnDrucken.MouseEnter Private Sub btnErfasst_MouseHover(sender As Object, e As EventArgs) Handles btnZollwebseiten.MouseEnter, Button7.MouseEnter, Button6.MouseEnter, Button5.MouseEnter, btnSpedBuch.MouseEnter, btnRg.MouseEnter, btnRefresh.MouseEnter, btnNeu.MouseEnter, btnKunden.MouseEnter, btnKassenbuch.MouseEnter, btnDrucken.MouseEnter
Try Try
Dim cF As Color = DirectCast(sender, Button).ForeColor Dim cF As Color = DirectCast(sender, Button).ForeColor
Dim cB As Color = DirectCast(sender, Button).BackColor Dim cB As Color = DirectCast(sender, Button).BackColor
@@ -2028,7 +2051,7 @@ Public Class frmHauptfenster
End Try End Try
End Sub End Sub
Private Sub btnErfasst_MouseLeave(sender As Object, e As EventArgs) Handles Button1.MouseLeave, Button7.MouseLeave, Button6.MouseLeave, Button5.MouseLeave, btnSpedBuch.MouseLeave, btnRg.MouseLeave, btnRefresh.MouseLeave, btnNeu.MouseLeave, btnKunden.MouseLeave, btnKassenbuch.MouseLeave, btnDrucken.MouseLeave Private Sub btnErfasst_MouseLeave(sender As Object, e As EventArgs) Handles btnZollwebseiten.MouseLeave, Button7.MouseLeave, Button6.MouseLeave, Button5.MouseLeave, btnSpedBuch.MouseLeave, btnRg.MouseLeave, btnRefresh.MouseLeave, btnNeu.MouseLeave, btnKunden.MouseLeave, btnKassenbuch.MouseLeave, btnDrucken.MouseLeave
Try Try
Dim cF As Color = DirectCast(sender, Button).ForeColor Dim cF As Color = DirectCast(sender, Button).ForeColor
Dim cB As Color = DirectCast(sender, Button).BackColor Dim cB As Color = DirectCast(sender, Button).BackColor
@@ -2042,6 +2065,10 @@ Public Class frmHauptfenster
Private Sub gridAviso_DoubleClick(sender As Object, e As System.EventArgs) Handles gridAviso.DoubleClick Private Sub gridAviso_DoubleClick(sender As Object, e As System.EventArgs) Handles gridAviso.DoubleClick
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("WARENORT", "AVISO") Then
Exit Sub
End If
If gridAviso.SelectedRows.Count = 0 Then Exit Sub If gridAviso.SelectedRows.Count = 0 Then Exit Sub
Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm() Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
@@ -2435,7 +2462,7 @@ Public Class frmHauptfenster
End Sub End Sub
Private Sub conMenu_Click(sender As Object, e As System.EventArgs) Handles conVorgeschrieben.Click, conVorbereitet.Click, conÜbernehmen.Click, conNichtEingetroffen.Click, conFreigabe.Click, conFertig.Click, conAnkunft.Click ',conVermerkLöschen.Click Private Sub conMenu_Click(sender As Object, e As System.EventArgs) Handles conVorgeschrieben.Click, conVorbereitet.Click, conÜbernehmen.Click, conNichtEingetroffen.Click, conFreigabe.Click, conFertig.Click, conAnkunft.Click, conAnVerimex.Click, conAnIndonesien.Click ',conVermerkLöschen.Click,
Timer1.Enabled = False Timer1.Enabled = False
@@ -2471,6 +2498,14 @@ Public Class frmHauptfenster
' End If ' End If
End If End If
If sender Is conAnVerimex Then
FUNC.setAnVERIMEX(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
End If
If sender Is conAnIndonesien Then
FUNC.setAnINDONESIEN(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
End If
If sender Is conFreigabe Then If sender Is conFreigabe Then
FUNC.setFreigabe(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID, Me) FUNC.setFreigabe(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID, Me)
'If btnFreigabe.Visible Then 'If btnFreigabe.Visible Then
@@ -2541,10 +2576,10 @@ Public Class frmHauptfenster
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then
'btnGenerelleGestellungen.Visible = False 'btnGenerelleGestellungen.Visible = False
Button6.Visible = False Button6.Visible = False
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("ALLOW_STATUS2_VERIMEX") Then If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("ALLOW_STATUS2_VERIMEX") Then
tabVorbereitet.Text = "2. VERIMEX/INDONESIEN" 'tabVorbereitet.Text = "2. VERIMEX/INDONESIEN"
' tbcntrAviso.TabPages.RemoveAt(2) tbcntrAviso.TabPages.Remove(tabVorgeschrieben)
tbcntrAviso.TabPages.Remove(tabVorbereitet)
End If End If
btnWichtigeStandort.Visible = False btnWichtigeStandort.Visible = False
@@ -2554,6 +2589,8 @@ Public Class frmHauptfenster
BürgschaftenExcelToolStripMenuItem.Visible = True BürgschaftenExcelToolStripMenuItem.Visible = True
ToolStripMenuItem4.Visible = True ToolStripMenuItem4.Visible = True
ToolStripMenuItem5.Visible = True ToolStripMenuItem5.Visible = True
ElseIf VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Then
'nix
ElseIf VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then ElseIf VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then
'btnGenerelleGestellungen.Visible = False 'btnGenerelleGestellungen.Visible = False
ToolStripMenuItem4.Visible = True ToolStripMenuItem4.Visible = True
@@ -2569,6 +2606,17 @@ Public Class frmHauptfenster
End If End If
End If End If
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("STATUS_ATILLA") Then
'tabVorbereitet.Text = "2. VERIMEX/INDONESIEN"
tbcntrAviso.TabPages.Remove(tabVorgeschrieben)
tbcntrAviso.TabPages.Remove(tabVorbereitet)
Else
tbcntrAviso.TabPages.Remove(tabINDONESIEN)
tbcntrAviso.TabPages.Remove(tabVERIMEX)
conAnVerimex.Visible = False
conAnIndonesien.Visible = False
End If
'Wenn Teamzuweisung --> Backoffice --> Meine Senungen größer! 'Wenn Teamzuweisung --> Backoffice --> Meine Senungen größer!
@@ -2586,10 +2634,15 @@ Public Class frmHauptfenster
' ' If SplitContainer2.Panel2.Width > 900 Then SplitContainer2.SplitterDistance = SplitContainer2.Width - 900 ' ' If SplitContainer2.Panel2.Width > 900 Then SplitContainer2.SplitterDistance = SplitContainer2.Width - 900
'End If 'End If
If SplitContainer2.Width > 1000 Then If SplitContainer2.Width > 1300 Then
SplitContainer2.SplitterDistance = 350 'SplitContainer2.Width - 750 SplitContainer2.SplitterDistance = 350 'SplitContainer2.Width - 750
SplitContainer3.SplitterDistance = 400
ElseIf SplitContainer2.Width > 1200 Then
SplitContainer2.SplitterDistance = 180 'SplitContainer2.Width - 750
SplitContainer3.SplitterDistance = 300
Else Else
SplitContainer2.SplitterDistance = 160 'SplitContainer2.Width - 750 SplitContainer2.SplitterDistance = 160 'SplitContainer2.Width - 750
SplitContainer3.SplitterDistance = 250
End If End If
@@ -2649,7 +2702,7 @@ Public Class frmHauptfenster
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnZollwebseiten.Click
cntxt.Show(Cursor.Position) cntxt.Show(Cursor.Position)
End Sub End Sub
@@ -3619,7 +3672,7 @@ Public Class frmHauptfenster
End If End If
frmBundesanzeigerZollTarif.BringToFront() frmBundesanzeigerZollTarif.BringToFront()
End Sub End Sub
Private Sub ToolStripMenuItem3_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem3.Click Private Sub ToolStripMenuItem3_Click(sender As Object, e As EventArgs) Handles tool_BRGXLS.Click
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "ATILLA", "", "ATILLA_Bürgschaften") Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "ATILLA", "", "ATILLA_Bürgschaften")
DS.OPEN_SINGLE() DS.OPEN_SINGLE()
End Sub End Sub
@@ -3992,6 +4045,14 @@ Public Class frmHauptfenster
MsgBox("Keine Berechtigung!") MsgBox("Keine Berechtigung!")
End If End If
End Sub End Sub
Private Sub EnglishToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EnglishToolStripMenuItem.Click
If True Then
VERAG_PROG_ALLGEMEIN.cAllgemein._LAN = "EN"
showMeNew()
Else
MsgBox("Keine Berechtigung!")
End If
End Sub
Private Sub Button11_Click_1(sender As Object, e As EventArgs) Handles Button11.Click Private Sub Button11_Click_1(sender As Object, e As EventArgs) Handles Button11.Click
cHMRC.VATTEST(InputBox("Token")) cHMRC.VATTEST(InputBox("Token"))
@@ -4242,6 +4303,8 @@ Public Class frmHauptfenster
Dim f As New frmEssensbestellungen() Dim f As New frmEssensbestellungen()
f.ShowDialog(Me) f.ShowDialog(Me)
End Sub End Sub
End Class End Class
Public Class AvisoStatusFunctions Public Class AvisoStatusFunctions
@@ -4339,7 +4402,7 @@ Public Class AvisoStatusFunctions
Dim Aviso As New cAviso Dim Aviso As New cAviso
Aviso = AvisoDAL.LesenAviso(AvisoID, "") Aviso = AvisoDAL.LesenAviso(AvisoID, "")
If Aviso Is Nothing Then Return False If Aviso Is Nothing Then Return False
If Aviso.Abgeschlossen Then MsgBox("Der Akt wurde bereichts abgeschlossen.", vbInformation) : Return False If Aviso.Abgeschlossen Then MsgBox("Der Akt wurde bereits abgeschlossen.", vbInformation) : Return False
Dim msg As String Dim msg As String
@@ -4385,7 +4448,9 @@ Public Class AvisoStatusFunctions
'E-Mail 'E-Mail
sendAnkunftBenachrichtigung(Aviso.AvisoID) sendAnkunftBenachrichtigung(Aviso.AvisoID)
If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_VERIMEX Or Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_INDONESIEN Then
Rücksetzen = True
End If
'Fahrer Handy-Nr. 'Fahrer Handy-Nr.
@@ -4789,7 +4854,7 @@ Public Class AvisoStatusFunctions
Dim Aviso As New cAviso Dim Aviso As New cAviso
Aviso = AvisoDAL.LesenAviso(AvisoID, "") Aviso = AvisoDAL.LesenAviso(AvisoID, "")
If Aviso Is Nothing Then Return False If Aviso Is Nothing Then Return False
If Aviso.Abgeschlossen Then MsgBox("Der Akt wurde bereichts abgeschlossen.", vbInformation) : Return False If Aviso.Abgeschlossen Then MsgBox("Der Akt wurde bereits abgeschlossen.", vbInformation) : Return False
Dim msg As String Dim msg As String
Dim antwort As MsgBoxResult Dim antwort As MsgBoxResult
@@ -4899,6 +4964,117 @@ Public Class AvisoStatusFunctions
Return (tmpid > 0) Return (tmpid > 0)
End Function End Function
Public Function setAnINDONESIEN(AvisoID) As Boolean
'If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
' MsgBox("Keine Berechtigung!")
' Return False
'End If
'falls keine Auswahl bzw. kein Datensatz, dann nichts machen
If AvisoID <= 0 Then
MsgBox("Kein Aviso ausgewählt!")
Return False
End If
'jetzt ausgewählten Datensatz einlesen
Dim Aviso As New cAviso
Aviso = AvisoDAL.LesenAviso(AvisoID, "")
If Aviso Is Nothing Then Return False
If Aviso.Abgeschlossen Then MsgBox("Der Akt wurde bereits abgeschlossen.", vbInformation) : Return False
Dim msg As String
Dim antwort As MsgBoxResult
If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_INDONESIEN Then
MsgBox("Dieses LKW-Aviso ist bereits auf 'AN INDONESIEN' gesetzt.", vbInformation)
Return False
End If
If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben Then
MsgBox("Dieses LKW-Aviso ist bereits auf FREIGABE gesetzt.")
Return False
End If
If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen Then
msg = "Dieses LKW-Aviso hat bereits den Status 'LKW nicht eingetroffen'." & vbCrLf & vbCrLf &
"Soll es jetzt trotzdem auf VORBEREITET (zurück)gesetzt werden?"
antwort = MsgBox(msg, CType(MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2 + MsgBoxStyle.Question, MsgBoxStyle),
"Status-Änderung")
If antwort = vbNo Then Return False
End If
'Status ist offen - jetzt auf 'AN INDONESIEN' setzen
Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_INDONESIEN
Aviso.Änderungen = "auf 'AN INDONESIEN' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen))
Aviso.letzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter
Aviso.TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
Dim tmpid = AvisoDAL.SpeichernAviso(Aviso)
AvisoDAL.addAenderung(tmpid, "auf 'AN INDONESIEN' gesetzt", "auf 'AN INDONESIEN' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
Return (tmpid > 0)
End Function
Public Function setAnVERIMEX(AvisoID) As Boolean
'If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
' MsgBox("Keine Berechtigung!")
' Return False
'End If
'falls keine Auswahl bzw. kein Datensatz, dann nichts machen
If AvisoID <= 0 Then
MsgBox("Kein Aviso ausgewählt!")
Return False
End If
'jetzt ausgewählten Datensatz einlesen
Dim Aviso As New cAviso
Aviso = AvisoDAL.LesenAviso(AvisoID, "")
If Aviso Is Nothing Then Return False
If Aviso.Abgeschlossen Then MsgBox("Der Akt wurde bereits abgeschlossen.", vbInformation) : Return False
Dim msg As String
Dim antwort As MsgBoxResult
If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_VERIMEX Then
MsgBox("Dieses LKW-Aviso ist bereits auf 'AN VERIMEX' gesetzt.", vbInformation)
Return False
End If
If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben Then
MsgBox("Dieses LKW-Aviso ist bereits auf FREIGABE gesetzt.")
Return False
End If
If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen Then
msg = "Dieses LKW-Aviso hat bereits den Status 'LKW nicht eingetroffen'." & vbCrLf & vbCrLf &
"Soll es jetzt trotzdem auf VORBEREITET (zurück)gesetzt werden?"
antwort = MsgBox(msg, CType(MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2 + MsgBoxStyle.Question, MsgBoxStyle),
"Status-Änderung")
If antwort = vbNo Then Return False
End If
'Status ist offen - jetzt auf 'AN VERIMEX' setzen
Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_VERIMEX
Aviso.Änderungen = "auf 'AN VERIMEX' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen))
Aviso.letzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter
Aviso.TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
Dim tmpid = AvisoDAL.SpeichernAviso(Aviso)
AvisoDAL.addAenderung(tmpid, "auf 'AN VERIMEX' gesetzt", "auf 'AN VERIMEX' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
Return (tmpid > 0)
End Function
Public Function setVorgeschreiben(AvisoID) As Boolean Public Function setVorgeschreiben(AvisoID) As Boolean
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
MsgBox("Keine Berechtigung!") MsgBox("Keine Berechtigung!")
@@ -4915,7 +5091,7 @@ Public Class AvisoStatusFunctions
Dim Aviso As New cAviso Dim Aviso As New cAviso
Aviso = AvisoDAL.LesenAviso(AvisoID, "") Aviso = AvisoDAL.LesenAviso(AvisoID, "")
If Aviso Is Nothing Then Return False If Aviso Is Nothing Then Return False
If Aviso.Abgeschlossen Then MsgBox("Der Akt wurde bereichts abgeschlossen.", vbInformation) : Return False If Aviso.Abgeschlossen Then MsgBox("Der Akt wurde bereits abgeschlossen.", vbInformation) : Return False
Dim msg As String Dim msg As String
Dim antwort As MsgBoxResult Dim antwort As MsgBoxResult
@@ -5050,7 +5226,7 @@ Public Class AvisoStatusFunctions
Dim Aviso As New cAviso Dim Aviso As New cAviso
Aviso = AvisoDAL.LesenAviso(AvisoID, "") Aviso = AvisoDAL.LesenAviso(AvisoID, "")
If Aviso Is Nothing Then Return False If Aviso Is Nothing Then Return False
If Aviso.Abgeschlossen Then MsgBox("Der Akt wurde bereichts abgeschlossen.", vbInformation) : Return False If Aviso.Abgeschlossen Then MsgBox("Der Akt wurde bereits abgeschlossen.", vbInformation) : Return False
Dim msg As String Dim msg As String
Dim antwort As MsgBoxResult Dim antwort As MsgBoxResult
@@ -5261,7 +5437,7 @@ Public Class AvisoStatusFunctions
Dim Aviso As New cAviso Dim Aviso As New cAviso
Aviso = AvisoDAL.LesenAviso(AvisoID, "") Aviso = AvisoDAL.LesenAviso(AvisoID, "")
If Aviso Is Nothing Then Return False If Aviso Is Nothing Then Return False
If Aviso.Abgeschlossen Then MsgBox("Der Akt wurde bereichts abgeschlossen.", vbInformation) : Return False If Aviso.Abgeschlossen Then MsgBox("Der Akt wurde bereits abgeschlossen.", vbInformation) : Return False
Dim msg As String Dim msg As String
@@ -5586,7 +5762,7 @@ Public Class AvisoStatusFunctions
Dim Aviso As New cAviso Dim Aviso As New cAviso
Aviso = AvisoDAL.LesenAviso(AvisoID, "") Aviso = AvisoDAL.LesenAviso(AvisoID, "")
If Aviso Is Nothing Then Return False If Aviso Is Nothing Then Return False
If Aviso.Abgeschlossen Then MsgBox("Der Akt wurde bereichts abgeschlossen.", vbInformation) : Return False If Aviso.Abgeschlossen Then MsgBox("Der Akt wurde bereits abgeschlossen.", vbInformation) : Return False
Dim msg As String Dim msg As String

14
Aviso/frmLogin.vb
View File

@@ -239,7 +239,7 @@ Public Class frmLogin
cboWarenort.Visible = True cboWarenort.Visible = True
picWO.Visible = True picWO.Visible = True
lblWO.Visible = True lblWO.Visible = True
Case "FO_Wiesentheid", "WO_GE", "WO_IST_LOL", "WO_IST_LOG", "WO_KITA", "WO_MERIS" Case "FO_WIHD", "FO_Wiesentheid", "WO_GE", "WO_IST_LOL", "WO_IST_LOG", "WO_KITA", "WO_MERIS"
'picLogin.Size = New Size(picLogin.Width, 71) 'picLogin.Size = New Size(picLogin.Width, 71)
picLogin.Image = Nothing picLogin.Image = Nothing
@@ -425,6 +425,16 @@ Public Class frmLogin
End Sub End Sub
Private Sub loginOK() Private Sub loginOK()
'Prüfen, ob sich eein WO Nutzer in den Firmen-Login schmuggeln möchte:
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("WARENORT", "AVISO") Then
If Not VERAG_PROG_ALLGEMEIN.cAllgemein.WARENORT_ZUGANG Then
MsgBox("Keine Berechtigung!")
Exit Sub
End If
End If
'Prüfen, ob Passwort erneuert werden muss 'Prüfen, ob Passwort erneuert werden muss
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_PasswortChanged Is Nothing Then If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_PasswortChanged Is Nothing Then
Dim f As New frmChangePWD(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER) Dim f As New frmChangePWD(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER)
@@ -679,7 +689,7 @@ Public Class frmLogin
picWO.BackgroundImage = Nothing picWO.BackgroundImage = Nothing
picWO.Visible = True picWO.Visible = True
Select Case cboWarenort._value Select Case cboWarenort._value
Case "FO_Wiesentheid" : picWO.BackgroundImage = My.Resources.Koerfez61 Case "FO_Wiesentheid", "FO_WIHD" : picWO.BackgroundImage = My.Resources.Koerfez61
Case "WO_GE" : picWO.BackgroundImage = My.Resources.ge_transport Case "WO_GE" : picWO.BackgroundImage = My.Resources.ge_transport
Case "WO_IST_LOL" : picWO.BackgroundImage = My.Resources.istLog Case "WO_IST_LOL" : picWO.BackgroundImage = My.Resources.istLog
Case "WO_KITA" : picWO.BackgroundImage = My.Resources.kita Case "WO_KITA" : picWO.BackgroundImage = My.Resources.kita

594
Aviso/usrcntlAktDetails.Designer.vb generated
View File

@@ -38,20 +38,24 @@ Partial Class usrcntlAktDetails
Me.Panel3 = New System.Windows.Forms.Panel() Me.Panel3 = New System.Windows.Forms.Panel()
Me.SplitContainer = New System.Windows.Forms.SplitContainer() Me.SplitContainer = New System.Windows.Forms.SplitContainer()
Me.pnlAlt = New System.Windows.Forms.Panel() Me.pnlAlt = New System.Windows.Forms.Panel()
Me.Button1 = New System.Windows.Forms.Button() Me.btnSndErstellen = New System.Windows.Forms.Button()
Me.grpAktVerzollung = New System.Windows.Forms.GroupBox() Me.grpAktVerzollung = New System.Windows.Forms.GroupBox()
Me.lblSendungsanzahl = New System.Windows.Forms.Label() Me.lblSendungsanzahl = New System.Windows.Forms.Label()
Me.cbxPosNr = New System.Windows.Forms.CheckBox() Me.cbxPosNr = New System.Windows.Forms.CheckBox()
Me.cboGrenzstelle = New System.Windows.Forms.ComboBox() Me.cboGrenzstelle = New System.Windows.Forms.ComboBox()
Me.Label11 = New System.Windows.Forms.Label() Me.Label11 = New System.Windows.Forms.Label()
Me.lnlSendungText = New System.Windows.Forms.Label() Me.lnlSendungText = New System.Windows.Forms.Label()
Me.txtSendungen = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.pnlSBG = New System.Windows.Forms.Panel() Me.pnlSBG = New System.Windows.Forms.Panel()
Me.lblSndFremd = New System.Windows.Forms.Label() Me.lblSndFremd = New System.Windows.Forms.Label()
Me.Label21 = New System.Windows.Forms.Label() Me.Label21 = New System.Windows.Forms.Label()
Me.txtSndFremd = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label20 = New System.Windows.Forms.Label() Me.Label20 = New System.Windows.Forms.Label()
Me.Label19 = New System.Windows.Forms.Label() Me.Label19 = New System.Windows.Forms.Label()
Me.lblFiskde = New System.Windows.Forms.Label() Me.lblFiskde = New System.Windows.Forms.Label()
Me.txtSndFiskalDE = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.lblFiskAT = New System.Windows.Forms.Label() Me.lblFiskAT = New System.Windows.Forms.Label()
Me.txtSndFiskalAT = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cbxSammelakt = New System.Windows.Forms.CheckBox() Me.cbxSammelakt = New System.Windows.Forms.CheckBox()
Me.Button5 = New System.Windows.Forms.Button() Me.Button5 = New System.Windows.Forms.Button()
Me.Button3 = New System.Windows.Forms.Button() Me.Button3 = New System.Windows.Forms.Button()
@@ -66,14 +70,17 @@ Partial Class usrcntlAktDetails
Me.btnLZDruckDIGITAL = New System.Windows.Forms.Button() Me.btnLZDruckDIGITAL = New System.Windows.Forms.Button()
Me.btnSendungslisteUNISPED = New System.Windows.Forms.Button() Me.btnSendungslisteUNISPED = New System.Windows.Forms.Button()
Me.cbxAlleFirmen = New System.Windows.Forms.CheckBox() Me.cbxAlleFirmen = New System.Windows.Forms.CheckBox()
Me.Button12 = New System.Windows.Forms.Button() Me.btnAlleSteuerbescheide = New System.Windows.Forms.Button()
Me.Button11 = New System.Windows.Forms.Button() Me.btnAlleAkendeckel = New System.Windows.Forms.Button()
Me.btnKasse_User = New System.Windows.Forms.Button() Me.btnDipoListe = New System.Windows.Forms.Button()
Me.cboFormulareRgAn = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label4 = New System.Windows.Forms.Label() Me.Label4 = New System.Windows.Forms.Label()
Me.Button8 = New System.Windows.Forms.Button() Me.btnSA_Gestellung = New System.Windows.Forms.Button()
Me.btnLZDruck = New System.Windows.Forms.Button() Me.btnLZDruck = New System.Windows.Forms.Button()
Me.Button9 = New System.Windows.Forms.Button() Me.btnDipoListeEmail = New System.Windows.Forms.Button()
Me.btnKasse_LG = New System.Windows.Forms.Button() Me.btnDispohaft = New System.Windows.Forms.Button()
Me.cbxLZRg = New VERAG_PROG_ALLGEMEIN.MyCheckbox(Me.components)
Me.cbxLZT1 = New VERAG_PROG_ALLGEMEIN.MyCheckbox(Me.components)
Me.Button18 = New System.Windows.Forms.Button() Me.Button18 = New System.Windows.Forms.Button()
Me.gridVermerke = New System.Windows.Forms.DataGridView() Me.gridVermerke = New System.Windows.Forms.DataGridView()
Me.pnlVermerkeTop = New System.Windows.Forms.Panel() Me.pnlVermerkeTop = New System.Windows.Forms.Panel()
@@ -88,9 +95,11 @@ Partial Class usrcntlAktDetails
Me.tbAnhang = New System.Windows.Forms.TabPage() Me.tbAnhang = New System.Windows.Forms.TabPage()
Me.addVermerk = New System.Windows.Forms.Button() Me.addVermerk = New System.Windows.Forms.Button()
Me.pnlMAInfo = New System.Windows.Forms.Panel() Me.pnlMAInfo = New System.Windows.Forms.Panel()
Me.lblSNDChat_MsgCnt = New System.Windows.Forms.Label()
Me.picMAinfo_TRVorgeschrieben = New System.Windows.Forms.PictureBox() Me.picMAinfo_TRVorgeschrieben = New System.Windows.Forms.PictureBox()
Me.txtMAinfo_TRVorgeschrieben = New System.Windows.Forms.TextBox() Me.txtMAinfo_TRVorgeschrieben = New System.Windows.Forms.TextBox()
Me.picMAinfo_AbklaerungTR = New System.Windows.Forms.PictureBox() Me.picMAinfo_AbklaerungTR = New System.Windows.Forms.PictureBox()
Me.picAVISOMessengerSNDChat = New System.Windows.Forms.PictureBox()
Me.picMAinfo_Vorgeschrieben = New System.Windows.Forms.PictureBox() Me.picMAinfo_Vorgeschrieben = New System.Windows.Forms.PictureBox()
Me.picMAinfo_VorbereitetQs = New System.Windows.Forms.PictureBox() Me.picMAinfo_VorbereitetQs = New System.Windows.Forms.PictureBox()
Me.txtMAinfo_AbklaerungTR = New System.Windows.Forms.TextBox() Me.txtMAinfo_AbklaerungTR = New System.Windows.Forms.TextBox()
@@ -164,15 +173,6 @@ Partial Class usrcntlAktDetails
Me.btnÄndern = New System.Windows.Forms.Button() Me.btnÄndern = New System.Windows.Forms.Button()
Me.btnTV = New System.Windows.Forms.Button() Me.btnTV = New System.Windows.Forms.Button()
Me.Button10 = New System.Windows.Forms.Button() Me.Button10 = New System.Windows.Forms.Button()
Me.lblSNDChat_MsgCnt = New System.Windows.Forms.Label()
Me.picAVISOMessengerSNDChat = New System.Windows.Forms.PictureBox()
Me.txtSendungen = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtSndFremd = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtSndFiskalDE = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtSndFiskalAT = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cboFormulareRgAn = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cbxLZRg = New VERAG_PROG_ALLGEMEIN.MyCheckbox(Me.components)
Me.cbxLZT1 = New VERAG_PROG_ALLGEMEIN.MyCheckbox(Me.components)
Me.pnlDetailsRechts.SuspendLayout() Me.pnlDetailsRechts.SuspendLayout()
Me.Panel3.SuspendLayout() Me.Panel3.SuspendLayout()
CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -192,6 +192,7 @@ Partial Class usrcntlAktDetails
Me.pnlMAInfo.SuspendLayout() Me.pnlMAInfo.SuspendLayout()
CType(Me.picMAinfo_TRVorgeschrieben, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.picMAinfo_TRVorgeschrieben, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picMAinfo_AbklaerungTR, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.picMAinfo_AbklaerungTR, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picAVISOMessengerSNDChat, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picMAinfo_Vorgeschrieben, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.picMAinfo_Vorgeschrieben, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picMAinfo_VorbereitetQs, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.picMAinfo_VorbereitetQs, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel8.SuspendLayout() Me.Panel8.SuspendLayout()
@@ -209,7 +210,6 @@ Partial Class usrcntlAktDetails
Me.conMenuVermerke.SuspendLayout() Me.conMenuVermerke.SuspendLayout()
Me.cntxtFormulare.SuspendLayout() Me.cntxtFormulare.SuspendLayout()
Me.pnlOptionen.SuspendLayout() Me.pnlOptionen.SuspendLayout()
CType(Me.picAVISOMessengerSNDChat, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout() Me.SuspendLayout()
' '
'pnlDetailsRechts 'pnlDetailsRechts
@@ -270,7 +270,7 @@ Partial Class usrcntlAktDetails
' '
'pnlAlt 'pnlAlt
' '
Me.pnlAlt.Controls.Add(Me.Button1) Me.pnlAlt.Controls.Add(Me.btnSndErstellen)
Me.pnlAlt.Controls.Add(Me.grpAktVerzollung) Me.pnlAlt.Controls.Add(Me.grpAktVerzollung)
Me.pnlAlt.Controls.Add(Me.Button5) Me.pnlAlt.Controls.Add(Me.Button5)
Me.pnlAlt.Controls.Add(Me.Button3) Me.pnlAlt.Controls.Add(Me.Button3)
@@ -282,16 +282,16 @@ Partial Class usrcntlAktDetails
Me.pnlAlt.TabIndex = 72 Me.pnlAlt.TabIndex = 72
Me.pnlAlt.Visible = False Me.pnlAlt.Visible = False
' '
'Button1 'btnSndErstellen
' '
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnSndErstellen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnSndErstellen.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button1.Location = New System.Drawing.Point(8, 122) Me.btnSndErstellen.Location = New System.Drawing.Point(8, 122)
Me.Button1.Name = "Button1" Me.btnSndErstellen.Name = "btnSndErstellen"
Me.Button1.Size = New System.Drawing.Size(469, 37) Me.btnSndErstellen.Size = New System.Drawing.Size(469, 37)
Me.Button1.TabIndex = 102 Me.btnSndErstellen.TabIndex = 102
Me.Button1.Text = "Sendungen erstellen" Me.btnSndErstellen.Text = "Sendungen erstellen"
Me.Button1.UseVisualStyleBackColor = True Me.btnSndErstellen.UseVisualStyleBackColor = True
' '
'grpAktVerzollung 'grpAktVerzollung
' '
@@ -367,6 +367,32 @@ Partial Class usrcntlAktDetails
Me.lnlSendungText.TabIndex = 2 Me.lnlSendungText.TabIndex = 2
Me.lnlSendungText.Text = "Sendung" Me.lnlSendungText.Text = "Sendung"
' '
'txtSendungen
'
Me.txtSendungen._DateTimeOnly = False
Me.txtSendungen._numbersOnly = True
Me.txtSendungen._numbersOnlyKommastellen = ""
Me.txtSendungen._numbersOnlyTrennzeichen = True
Me.txtSendungen._Prozent = False
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
Me.txtSendungen.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtSendungen.ForeColor = System.Drawing.Color.Black
Me.txtSendungen.Location = New System.Drawing.Point(22, 17)
Me.txtSendungen.MaxLineLength = -1
Me.txtSendungen.MaxLines_Warning = ""
Me.txtSendungen.MaxLines_Warning_Label = Nothing
Me.txtSendungen.Name = "txtSendungen"
Me.txtSendungen.Size = New System.Drawing.Size(32, 26)
Me.txtSendungen.TabIndex = 1
Me.txtSendungen.Text = "1"
Me.txtSendungen.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'pnlSBG 'pnlSBG
' '
Me.pnlSBG.Controls.Add(Me.lblSndFremd) Me.pnlSBG.Controls.Add(Me.lblSndFremd)
@@ -403,6 +429,33 @@ Partial Class usrcntlAktDetails
Me.Label21.Text = "1" Me.Label21.Text = "1"
Me.Label21.TextAlign = System.Drawing.ContentAlignment.TopRight Me.Label21.TextAlign = System.Drawing.ContentAlignment.TopRight
' '
'txtSndFremd
'
Me.txtSndFremd._DateTimeOnly = False
Me.txtSndFremd._numbersOnly = True
Me.txtSndFremd._numbersOnlyKommastellen = ""
Me.txtSndFremd._numbersOnlyTrennzeichen = True
Me.txtSndFremd._Prozent = False
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
Me.txtSndFremd.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtSndFremd.ForeColor = System.Drawing.Color.Black
Me.txtSndFremd.Location = New System.Drawing.Point(149, 5)
Me.txtSndFremd.MaxLineLength = -1
Me.txtSndFremd.MaxLines_Warning = ""
Me.txtSndFremd.MaxLines_Warning_Label = Nothing
Me.txtSndFremd.Name = "txtSndFremd"
Me.txtSndFremd.Size = New System.Drawing.Size(32, 26)
Me.txtSndFremd.TabIndex = 83
Me.txtSndFremd.Text = "0"
Me.txtSndFremd.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
Me.txtSndFremd.Visible = False
'
'Label20 'Label20
' '
Me.Label20.AutoSize = True Me.Label20.AutoSize = True
@@ -430,6 +483,32 @@ Partial Class usrcntlAktDetails
Me.lblFiskde.TabIndex = 6 Me.lblFiskde.TabIndex = 6
Me.lblFiskde.Text = "Fiskal DE" Me.lblFiskde.Text = "Fiskal DE"
' '
'txtSndFiskalDE
'
Me.txtSndFiskalDE._DateTimeOnly = False
Me.txtSndFiskalDE._numbersOnly = True
Me.txtSndFiskalDE._numbersOnlyKommastellen = ""
Me.txtSndFiskalDE._numbersOnlyTrennzeichen = True
Me.txtSndFiskalDE._Prozent = False
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
Me.txtSndFiskalDE.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtSndFiskalDE.ForeColor = System.Drawing.Color.Black
Me.txtSndFiskalDE.Location = New System.Drawing.Point(16, 34)
Me.txtSndFiskalDE.MaxLineLength = -1
Me.txtSndFiskalDE.MaxLines_Warning = ""
Me.txtSndFiskalDE.MaxLines_Warning_Label = Nothing
Me.txtSndFiskalDE.Name = "txtSndFiskalDE"
Me.txtSndFiskalDE.Size = New System.Drawing.Size(32, 26)
Me.txtSndFiskalDE.TabIndex = 5
Me.txtSndFiskalDE.Text = "0"
Me.txtSndFiskalDE.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'lblFiskAT 'lblFiskAT
' '
Me.lblFiskAT.AutoSize = True Me.lblFiskAT.AutoSize = True
@@ -439,6 +518,32 @@ Partial Class usrcntlAktDetails
Me.lblFiskAT.TabIndex = 4 Me.lblFiskAT.TabIndex = 4
Me.lblFiskAT.Text = "Fiskal AT" Me.lblFiskAT.Text = "Fiskal AT"
' '
'txtSndFiskalAT
'
Me.txtSndFiskalAT._DateTimeOnly = False
Me.txtSndFiskalAT._numbersOnly = True
Me.txtSndFiskalAT._numbersOnlyKommastellen = ""
Me.txtSndFiskalAT._numbersOnlyTrennzeichen = True
Me.txtSndFiskalAT._Prozent = False
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
Me.txtSndFiskalAT.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtSndFiskalAT.ForeColor = System.Drawing.Color.Black
Me.txtSndFiskalAT.Location = New System.Drawing.Point(16, 5)
Me.txtSndFiskalAT.MaxLineLength = -1
Me.txtSndFiskalAT.MaxLines_Warning = ""
Me.txtSndFiskalAT.MaxLines_Warning_Label = Nothing
Me.txtSndFiskalAT.Name = "txtSndFiskalAT"
Me.txtSndFiskalAT.Size = New System.Drawing.Size(32, 26)
Me.txtSndFiskalAT.TabIndex = 3
Me.txtSndFiskalAT.Text = "0"
Me.txtSndFiskalAT.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'cbxSammelakt 'cbxSammelakt
' '
Me.cbxSammelakt.AutoSize = True Me.cbxSammelakt.AutoSize = True
@@ -597,15 +702,15 @@ Partial Class usrcntlAktDetails
Me.Panel4.Controls.Add(Me.btnLZDruckDIGITAL) Me.Panel4.Controls.Add(Me.btnLZDruckDIGITAL)
Me.Panel4.Controls.Add(Me.btnSendungslisteUNISPED) Me.Panel4.Controls.Add(Me.btnSendungslisteUNISPED)
Me.Panel4.Controls.Add(Me.cbxAlleFirmen) Me.Panel4.Controls.Add(Me.cbxAlleFirmen)
Me.Panel4.Controls.Add(Me.Button12) Me.Panel4.Controls.Add(Me.btnAlleSteuerbescheide)
Me.Panel4.Controls.Add(Me.Button11) Me.Panel4.Controls.Add(Me.btnAlleAkendeckel)
Me.Panel4.Controls.Add(Me.btnKasse_User) Me.Panel4.Controls.Add(Me.btnDipoListe)
Me.Panel4.Controls.Add(Me.cboFormulareRgAn) Me.Panel4.Controls.Add(Me.cboFormulareRgAn)
Me.Panel4.Controls.Add(Me.Label4) Me.Panel4.Controls.Add(Me.Label4)
Me.Panel4.Controls.Add(Me.Button8) Me.Panel4.Controls.Add(Me.btnSA_Gestellung)
Me.Panel4.Controls.Add(Me.btnLZDruck) Me.Panel4.Controls.Add(Me.btnLZDruck)
Me.Panel4.Controls.Add(Me.Button9) Me.Panel4.Controls.Add(Me.btnDipoListeEmail)
Me.Panel4.Controls.Add(Me.btnKasse_LG) Me.Panel4.Controls.Add(Me.btnDispohaft)
Me.Panel4.Controls.Add(Me.cbxLZRg) Me.Panel4.Controls.Add(Me.cbxLZRg)
Me.Panel4.Controls.Add(Me.cbxLZT1) Me.Panel4.Controls.Add(Me.cbxLZT1)
Me.Panel4.Location = New System.Drawing.Point(203, 27) Me.Panel4.Location = New System.Drawing.Point(203, 27)
@@ -691,53 +796,64 @@ Partial Class usrcntlAktDetails
Me.cbxAlleFirmen.Text = "alle Firmen" Me.cbxAlleFirmen.Text = "alle Firmen"
Me.cbxAlleFirmen.UseVisualStyleBackColor = True Me.cbxAlleFirmen.UseVisualStyleBackColor = True
' '
'Button12 'btnAlleSteuerbescheide
' '
Me.Button12.BackColor = System.Drawing.Color.White Me.btnAlleSteuerbescheide.BackColor = System.Drawing.Color.White
Me.Button12.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnAlleSteuerbescheide.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button12.ForeColor = System.Drawing.Color.Black Me.btnAlleSteuerbescheide.ForeColor = System.Drawing.Color.Black
Me.Button12.Image = Global.AVISO.My.Resources.Resources.spedbuch_small Me.btnAlleSteuerbescheide.Image = Global.AVISO.My.Resources.Resources.spedbuch_small
Me.Button12.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnAlleSteuerbescheide.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button12.Location = New System.Drawing.Point(134, 147) Me.btnAlleSteuerbescheide.Location = New System.Drawing.Point(134, 147)
Me.Button12.Margin = New System.Windows.Forms.Padding(0) Me.btnAlleSteuerbescheide.Margin = New System.Windows.Forms.Padding(0)
Me.Button12.Name = "Button12" Me.btnAlleSteuerbescheide.Name = "btnAlleSteuerbescheide"
Me.Button12.Size = New System.Drawing.Size(128, 36) Me.btnAlleSteuerbescheide.Size = New System.Drawing.Size(128, 36)
Me.Button12.TabIndex = 110 Me.btnAlleSteuerbescheide.TabIndex = 110
Me.Button12.Text = "Alle Steuerbe-" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "scheide drucken" Me.btnAlleSteuerbescheide.Text = "Alle Steuerbe-" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "scheide drucken"
Me.Button12.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.btnAlleSteuerbescheide.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button12.UseVisualStyleBackColor = False Me.btnAlleSteuerbescheide.UseVisualStyleBackColor = False
' '
'Button11 'btnAlleAkendeckel
' '
Me.Button11.BackColor = System.Drawing.Color.White Me.btnAlleAkendeckel.BackColor = System.Drawing.Color.White
Me.Button11.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnAlleAkendeckel.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button11.ForeColor = System.Drawing.Color.Black Me.btnAlleAkendeckel.ForeColor = System.Drawing.Color.Black
Me.Button11.Image = Global.AVISO.My.Resources.Resources.spedbuch_small Me.btnAlleAkendeckel.Image = Global.AVISO.My.Resources.Resources.spedbuch_small
Me.Button11.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnAlleAkendeckel.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button11.Location = New System.Drawing.Point(134, 112) Me.btnAlleAkendeckel.Location = New System.Drawing.Point(134, 112)
Me.Button11.Margin = New System.Windows.Forms.Padding(0) Me.btnAlleAkendeckel.Margin = New System.Windows.Forms.Padding(0)
Me.Button11.Name = "Button11" Me.btnAlleAkendeckel.Name = "btnAlleAkendeckel"
Me.Button11.Size = New System.Drawing.Size(128, 36) Me.btnAlleAkendeckel.Size = New System.Drawing.Size(128, 36)
Me.Button11.TabIndex = 109 Me.btnAlleAkendeckel.TabIndex = 109
Me.Button11.Text = "Alle Aktendeckel " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "drucken" Me.btnAlleAkendeckel.Text = "Alle Aktendeckel " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "drucken"
Me.Button11.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.btnAlleAkendeckel.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button11.UseVisualStyleBackColor = False Me.btnAlleAkendeckel.UseVisualStyleBackColor = False
' '
'btnKasse_User 'btnDipoListe
' '
Me.btnKasse_User.BackColor = System.Drawing.Color.White Me.btnDipoListe.BackColor = System.Drawing.Color.White
Me.btnKasse_User.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnDipoListe.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnKasse_User.ForeColor = System.Drawing.Color.Black Me.btnDipoListe.ForeColor = System.Drawing.Color.Black
Me.btnKasse_User.Image = Global.AVISO.My.Resources.Resources.pdf11 Me.btnDipoListe.Image = Global.AVISO.My.Resources.Resources.pdf11
Me.btnKasse_User.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnDipoListe.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnKasse_User.Location = New System.Drawing.Point(5, 22) Me.btnDipoListe.Location = New System.Drawing.Point(5, 22)
Me.btnKasse_User.Margin = New System.Windows.Forms.Padding(0) Me.btnDipoListe.Margin = New System.Windows.Forms.Padding(0)
Me.btnKasse_User.Name = "btnKasse_User" Me.btnDipoListe.Name = "btnDipoListe"
Me.btnKasse_User.Size = New System.Drawing.Size(123, 36) Me.btnDipoListe.Size = New System.Drawing.Size(123, 36)
Me.btnKasse_User.TabIndex = 4 Me.btnDipoListe.TabIndex = 4
Me.btnKasse_User.Text = "Dispoliste" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "alle Sendg." Me.btnDipoListe.Text = "Dispoliste" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "alle Sendg."
Me.btnKasse_User.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.btnDipoListe.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnKasse_User.UseVisualStyleBackColor = False Me.btnDipoListe.UseVisualStyleBackColor = False
'
'cboFormulareRgAn
'
Me.cboFormulareRgAn._allowedValuesFreiText = Nothing
Me.cboFormulareRgAn._allowFreiText = False
Me.cboFormulareRgAn._value = ""
Me.cboFormulareRgAn.FormattingEnabled = True
Me.cboFormulareRgAn.Location = New System.Drawing.Point(40, 2)
Me.cboFormulareRgAn.Name = "cboFormulareRgAn"
Me.cboFormulareRgAn.Size = New System.Drawing.Size(88, 21)
Me.cboFormulareRgAn.TabIndex = 108
' '
'Label4 'Label4
' '
@@ -749,22 +865,22 @@ Partial Class usrcntlAktDetails
Me.Label4.Text = "Rg.an:" Me.Label4.Text = "Rg.an:"
Me.Label4.TextAlign = System.Drawing.ContentAlignment.TopRight Me.Label4.TextAlign = System.Drawing.ContentAlignment.TopRight
' '
'Button8 'btnSA_Gestellung
' '
Me.Button8.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.btnSA_Gestellung.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button8.BackColor = System.Drawing.Color.White Me.btnSA_Gestellung.BackColor = System.Drawing.Color.White
Me.Button8.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnSA_Gestellung.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button8.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!) Me.btnSA_Gestellung.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
Me.Button8.ForeColor = System.Drawing.Color.Black Me.btnSA_Gestellung.ForeColor = System.Drawing.Color.Black
Me.Button8.Image = Global.AVISO.My.Resources.Resources.spedbuch_small Me.btnSA_Gestellung.Image = Global.AVISO.My.Resources.Resources.spedbuch_small
Me.Button8.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnSA_Gestellung.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button8.Location = New System.Drawing.Point(134, 186) Me.btnSA_Gestellung.Location = New System.Drawing.Point(134, 186)
Me.Button8.Name = "Button8" Me.btnSA_Gestellung.Name = "btnSA_Gestellung"
Me.Button8.Size = New System.Drawing.Size(128, 36) Me.btnSA_Gestellung.Size = New System.Drawing.Size(128, 36)
Me.Button8.TabIndex = 106 Me.btnSA_Gestellung.TabIndex = 106
Me.Button8.Text = "SA-Gest." Me.btnSA_Gestellung.Text = "SA-Gest."
Me.Button8.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.btnSA_Gestellung.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button8.UseVisualStyleBackColor = False Me.btnSA_Gestellung.UseVisualStyleBackColor = False
' '
'btnLZDruck 'btnLZDruck
' '
@@ -782,36 +898,65 @@ Partial Class usrcntlAktDetails
Me.btnLZDruck.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.btnLZDruck.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnLZDruck.UseVisualStyleBackColor = False Me.btnLZDruck.UseVisualStyleBackColor = False
' '
'Button9 'btnDipoListeEmail
' '
Me.Button9.BackColor = System.Drawing.Color.White Me.btnDipoListeEmail.BackColor = System.Drawing.Color.White
Me.Button9.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnDipoListeEmail.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button9.ForeColor = System.Drawing.Color.Black Me.btnDipoListeEmail.ForeColor = System.Drawing.Color.Black
Me.Button9.Image = Global.AVISO.My.Resources.Resources.email_big1 Me.btnDipoListeEmail.Image = Global.AVISO.My.Resources.Resources.email_big1
Me.Button9.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnDipoListeEmail.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button9.Location = New System.Drawing.Point(5, 57) Me.btnDipoListeEmail.Location = New System.Drawing.Point(5, 57)
Me.Button9.Margin = New System.Windows.Forms.Padding(0) Me.btnDipoListeEmail.Margin = New System.Windows.Forms.Padding(0)
Me.Button9.Name = "Button9" Me.btnDipoListeEmail.Name = "btnDipoListeEmail"
Me.Button9.Size = New System.Drawing.Size(123, 36) Me.btnDipoListeEmail.Size = New System.Drawing.Size(123, 36)
Me.Button9.TabIndex = 5 Me.btnDipoListeEmail.TabIndex = 5
Me.Button9.Text = "Dispoliste" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "alle Sendg." Me.btnDipoListeEmail.Text = "Dispoliste" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "alle Sendg."
Me.Button9.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.btnDipoListeEmail.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button9.UseVisualStyleBackColor = False Me.btnDipoListeEmail.UseVisualStyleBackColor = False
' '
'btnKasse_LG 'btnDispohaft
' '
Me.btnKasse_LG.BackColor = System.Drawing.Color.White Me.btnDispohaft.BackColor = System.Drawing.Color.White
Me.btnKasse_LG.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnDispohaft.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnKasse_LG.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) Me.btnDispohaft.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.btnKasse_LG.ForeColor = System.Drawing.Color.Black Me.btnDispohaft.ForeColor = System.Drawing.Color.Black
Me.btnKasse_LG.ImageAlign = System.Drawing.ContentAlignment.MiddleRight Me.btnDispohaft.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnKasse_LG.Location = New System.Drawing.Point(5, 186) Me.btnDispohaft.Location = New System.Drawing.Point(5, 186)
Me.btnKasse_LG.Margin = New System.Windows.Forms.Padding(0) Me.btnDispohaft.Margin = New System.Windows.Forms.Padding(0)
Me.btnKasse_LG.Name = "btnKasse_LG" Me.btnDispohaft.Name = "btnDispohaft"
Me.btnKasse_LG.Size = New System.Drawing.Size(123, 36) Me.btnDispohaft.Size = New System.Drawing.Size(123, 36)
Me.btnKasse_LG.TabIndex = 3 Me.btnDispohaft.TabIndex = 3
Me.btnKasse_LG.Text = "Dispo.Haft" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(nur T1/T2)" Me.btnDispohaft.Text = "Dispo.Haft" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(nur T1/T2)"
Me.btnKasse_LG.UseVisualStyleBackColor = False Me.btnDispohaft.UseVisualStyleBackColor = False
'
'cbxLZRg
'
Me.cbxLZRg._value = ""
Me.cbxLZRg.AutoSize = True
Me.cbxLZRg.Checked = True
Me.cbxLZRg.Checked_value = False
Me.cbxLZRg.CheckedValue = False
Me.cbxLZRg.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxLZRg.Location = New System.Drawing.Point(134, 93)
Me.cbxLZRg.Name = "cbxLZRg"
Me.cbxLZRg.Size = New System.Drawing.Size(88, 17)
Me.cbxLZRg.TabIndex = 115
Me.cbxLZRg.Text = "Rechnungen"
Me.cbxLZRg.UseVisualStyleBackColor = True
'
'cbxLZT1
'
Me.cbxLZT1._value = ""
Me.cbxLZT1.AutoSize = True
Me.cbxLZT1.Checked_value = False
Me.cbxLZT1.CheckedValue = False
Me.cbxLZT1.Location = New System.Drawing.Point(223, 93)
Me.cbxLZT1.Name = "cbxLZT1"
Me.cbxLZT1.Size = New System.Drawing.Size(39, 17)
Me.cbxLZT1.TabIndex = 114
Me.cbxLZT1.Text = "T1"
Me.cbxLZT1.UseVisualStyleBackColor = True
Me.cbxLZT1.Visible = False
' '
'Button18 'Button18
' '
@@ -1036,6 +1181,20 @@ Partial Class usrcntlAktDetails
Me.pnlMAInfo.Size = New System.Drawing.Size(575, 34) Me.pnlMAInfo.Size = New System.Drawing.Size(575, 34)
Me.pnlMAInfo.TabIndex = 106 Me.pnlMAInfo.TabIndex = 106
' '
'lblSNDChat_MsgCnt
'
Me.lblSNDChat_MsgCnt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.lblSNDChat_MsgCnt.BackColor = System.Drawing.Color.Red
Me.lblSNDChat_MsgCnt.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Bold)
Me.lblSNDChat_MsgCnt.ForeColor = System.Drawing.Color.White
Me.lblSNDChat_MsgCnt.Location = New System.Drawing.Point(53, 21)
Me.lblSNDChat_MsgCnt.Name = "lblSNDChat_MsgCnt"
Me.lblSNDChat_MsgCnt.Size = New System.Drawing.Size(22, 11)
Me.lblSNDChat_MsgCnt.TabIndex = 111
Me.lblSNDChat_MsgCnt.Text = "99"
Me.lblSNDChat_MsgCnt.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
Me.lblSNDChat_MsgCnt.Visible = False
'
'picMAinfo_TRVorgeschrieben 'picMAinfo_TRVorgeschrieben
' '
Me.picMAinfo_TRVorgeschrieben.BackgroundImage = Global.AVISO.My.Resources.Resources.statusBtn_vorgeschrieben_InAktiv Me.picMAinfo_TRVorgeschrieben.BackgroundImage = Global.AVISO.My.Resources.Resources.statusBtn_vorgeschrieben_InAktiv
@@ -1074,6 +1233,19 @@ Partial Class usrcntlAktDetails
Me.picMAinfo_AbklaerungTR.TabIndex = 109 Me.picMAinfo_AbklaerungTR.TabIndex = 109
Me.picMAinfo_AbklaerungTR.TabStop = False Me.picMAinfo_AbklaerungTR.TabStop = False
' '
'picAVISOMessengerSNDChat
'
Me.picAVISOMessengerSNDChat.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.picAVISOMessengerSNDChat.BackgroundImage = Global.AVISO.My.Resources.Resources.aviso_messenger
Me.picAVISOMessengerSNDChat.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.picAVISOMessengerSNDChat.Cursor = System.Windows.Forms.Cursors.Hand
Me.picAVISOMessengerSNDChat.Location = New System.Drawing.Point(30, 1)
Me.picAVISOMessengerSNDChat.Name = "picAVISOMessengerSNDChat"
Me.picAVISOMessengerSNDChat.Size = New System.Drawing.Size(32, 30)
Me.picAVISOMessengerSNDChat.TabIndex = 110
Me.picAVISOMessengerSNDChat.TabStop = False
Me.picAVISOMessengerSNDChat.Visible = False
'
'picMAinfo_Vorgeschrieben 'picMAinfo_Vorgeschrieben
' '
Me.picMAinfo_Vorgeschrieben.BackgroundImage = Global.AVISO.My.Resources.Resources.statusBtn_vorgeschrieben_InAktiv Me.picMAinfo_Vorgeschrieben.BackgroundImage = Global.AVISO.My.Resources.Resources.statusBtn_vorgeschrieben_InAktiv
@@ -2061,178 +2233,6 @@ Partial Class usrcntlAktDetails
Me.Button10.TextAlign = System.Drawing.ContentAlignment.MiddleLeft Me.Button10.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button10.UseVisualStyleBackColor = False Me.Button10.UseVisualStyleBackColor = False
' '
'lblSNDChat_MsgCnt
'
Me.lblSNDChat_MsgCnt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.lblSNDChat_MsgCnt.BackColor = System.Drawing.Color.Red
Me.lblSNDChat_MsgCnt.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Bold)
Me.lblSNDChat_MsgCnt.ForeColor = System.Drawing.Color.White
Me.lblSNDChat_MsgCnt.Location = New System.Drawing.Point(53, 21)
Me.lblSNDChat_MsgCnt.Name = "lblSNDChat_MsgCnt"
Me.lblSNDChat_MsgCnt.Size = New System.Drawing.Size(22, 11)
Me.lblSNDChat_MsgCnt.TabIndex = 111
Me.lblSNDChat_MsgCnt.Text = "99"
Me.lblSNDChat_MsgCnt.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
Me.lblSNDChat_MsgCnt.Visible = False
'
'picAVISOMessengerSNDChat
'
Me.picAVISOMessengerSNDChat.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.picAVISOMessengerSNDChat.BackgroundImage = Global.AVISO.My.Resources.Resources.aviso_messenger
Me.picAVISOMessengerSNDChat.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.picAVISOMessengerSNDChat.Cursor = System.Windows.Forms.Cursors.Hand
Me.picAVISOMessengerSNDChat.Location = New System.Drawing.Point(30, 1)
Me.picAVISOMessengerSNDChat.Name = "picAVISOMessengerSNDChat"
Me.picAVISOMessengerSNDChat.Size = New System.Drawing.Size(32, 30)
Me.picAVISOMessengerSNDChat.TabIndex = 110
Me.picAVISOMessengerSNDChat.TabStop = False
Me.picAVISOMessengerSNDChat.Visible = False
'
'txtSendungen
'
Me.txtSendungen._DateTimeOnly = False
Me.txtSendungen._numbersOnly = True
Me.txtSendungen._numbersOnlyKommastellen = ""
Me.txtSendungen._numbersOnlyTrennzeichen = True
Me.txtSendungen._Prozent = False
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
Me.txtSendungen.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtSendungen.ForeColor = System.Drawing.Color.Black
Me.txtSendungen.Location = New System.Drawing.Point(22, 17)
Me.txtSendungen.MaxLineLength = -1
Me.txtSendungen.MaxLines_Warning = ""
Me.txtSendungen.MaxLines_Warning_Label = Nothing
Me.txtSendungen.Name = "txtSendungen"
Me.txtSendungen.Size = New System.Drawing.Size(32, 26)
Me.txtSendungen.TabIndex = 1
Me.txtSendungen.Text = "1"
Me.txtSendungen.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'txtSndFremd
'
Me.txtSndFremd._DateTimeOnly = False
Me.txtSndFremd._numbersOnly = True
Me.txtSndFremd._numbersOnlyKommastellen = ""
Me.txtSndFremd._numbersOnlyTrennzeichen = True
Me.txtSndFremd._Prozent = False
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
Me.txtSndFremd.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtSndFremd.ForeColor = System.Drawing.Color.Black
Me.txtSndFremd.Location = New System.Drawing.Point(149, 5)
Me.txtSndFremd.MaxLineLength = -1
Me.txtSndFremd.MaxLines_Warning = ""
Me.txtSndFremd.MaxLines_Warning_Label = Nothing
Me.txtSndFremd.Name = "txtSndFremd"
Me.txtSndFremd.Size = New System.Drawing.Size(32, 26)
Me.txtSndFremd.TabIndex = 83
Me.txtSndFremd.Text = "0"
Me.txtSndFremd.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
Me.txtSndFremd.Visible = False
'
'txtSndFiskalDE
'
Me.txtSndFiskalDE._DateTimeOnly = False
Me.txtSndFiskalDE._numbersOnly = True
Me.txtSndFiskalDE._numbersOnlyKommastellen = ""
Me.txtSndFiskalDE._numbersOnlyTrennzeichen = True
Me.txtSndFiskalDE._Prozent = False
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
Me.txtSndFiskalDE.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtSndFiskalDE.ForeColor = System.Drawing.Color.Black
Me.txtSndFiskalDE.Location = New System.Drawing.Point(16, 34)
Me.txtSndFiskalDE.MaxLineLength = -1
Me.txtSndFiskalDE.MaxLines_Warning = ""
Me.txtSndFiskalDE.MaxLines_Warning_Label = Nothing
Me.txtSndFiskalDE.Name = "txtSndFiskalDE"
Me.txtSndFiskalDE.Size = New System.Drawing.Size(32, 26)
Me.txtSndFiskalDE.TabIndex = 5
Me.txtSndFiskalDE.Text = "0"
Me.txtSndFiskalDE.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'txtSndFiskalAT
'
Me.txtSndFiskalAT._DateTimeOnly = False
Me.txtSndFiskalAT._numbersOnly = True
Me.txtSndFiskalAT._numbersOnlyKommastellen = ""
Me.txtSndFiskalAT._numbersOnlyTrennzeichen = True
Me.txtSndFiskalAT._Prozent = False
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
Me.txtSndFiskalAT.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtSndFiskalAT.ForeColor = System.Drawing.Color.Black
Me.txtSndFiskalAT.Location = New System.Drawing.Point(16, 5)
Me.txtSndFiskalAT.MaxLineLength = -1
Me.txtSndFiskalAT.MaxLines_Warning = ""
Me.txtSndFiskalAT.MaxLines_Warning_Label = Nothing
Me.txtSndFiskalAT.Name = "txtSndFiskalAT"
Me.txtSndFiskalAT.Size = New System.Drawing.Size(32, 26)
Me.txtSndFiskalAT.TabIndex = 3
Me.txtSndFiskalAT.Text = "0"
Me.txtSndFiskalAT.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'cboFormulareRgAn
'
Me.cboFormulareRgAn._allowedValuesFreiText = Nothing
Me.cboFormulareRgAn._allowFreiText = False
Me.cboFormulareRgAn._value = ""
Me.cboFormulareRgAn.FormattingEnabled = True
Me.cboFormulareRgAn.Location = New System.Drawing.Point(40, 2)
Me.cboFormulareRgAn.Name = "cboFormulareRgAn"
Me.cboFormulareRgAn.Size = New System.Drawing.Size(88, 21)
Me.cboFormulareRgAn.TabIndex = 108
'
'cbxLZRg
'
Me.cbxLZRg._value = ""
Me.cbxLZRg.AutoSize = True
Me.cbxLZRg.Checked = True
Me.cbxLZRg.Checked_value = False
Me.cbxLZRg.CheckedValue = False
Me.cbxLZRg.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxLZRg.Location = New System.Drawing.Point(134, 93)
Me.cbxLZRg.Name = "cbxLZRg"
Me.cbxLZRg.Size = New System.Drawing.Size(88, 17)
Me.cbxLZRg.TabIndex = 115
Me.cbxLZRg.Text = "Rechnungen"
Me.cbxLZRg.UseVisualStyleBackColor = True
'
'cbxLZT1
'
Me.cbxLZT1._value = ""
Me.cbxLZT1.AutoSize = True
Me.cbxLZT1.Checked_value = False
Me.cbxLZT1.CheckedValue = False
Me.cbxLZT1.Location = New System.Drawing.Point(223, 93)
Me.cbxLZT1.Name = "cbxLZT1"
Me.cbxLZT1.Size = New System.Drawing.Size(39, 17)
Me.cbxLZT1.TabIndex = 114
Me.cbxLZT1.Text = "T1"
Me.cbxLZT1.UseVisualStyleBackColor = True
Me.cbxLZT1.Visible = False
'
'usrcntlAktDetails 'usrcntlAktDetails
' '
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
@@ -2265,6 +2265,7 @@ Partial Class usrcntlAktDetails
Me.pnlMAInfo.PerformLayout() Me.pnlMAInfo.PerformLayout()
CType(Me.picMAinfo_TRVorgeschrieben, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.picMAinfo_TRVorgeschrieben, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.picMAinfo_AbklaerungTR, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.picMAinfo_AbklaerungTR, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.picAVISOMessengerSNDChat, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.picMAinfo_Vorgeschrieben, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.picMAinfo_Vorgeschrieben, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.picMAinfo_VorbereitetQs, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.picMAinfo_VorbereitetQs, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel8.ResumeLayout(False) Me.Panel8.ResumeLayout(False)
@@ -2291,7 +2292,6 @@ Partial Class usrcntlAktDetails
Me.conMenuVermerke.ResumeLayout(False) Me.conMenuVermerke.ResumeLayout(False)
Me.cntxtFormulare.ResumeLayout(False) Me.cntxtFormulare.ResumeLayout(False)
Me.pnlOptionen.ResumeLayout(False) Me.pnlOptionen.ResumeLayout(False)
CType(Me.picAVISOMessengerSNDChat, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False) Me.ResumeLayout(False)
Me.PerformLayout() Me.PerformLayout()
@@ -2360,7 +2360,7 @@ Partial Class usrcntlAktDetails
Friend WithEvents btnLöschen As System.Windows.Forms.Button Friend WithEvents btnLöschen As System.Windows.Forms.Button
Friend WithEvents btnÄndern As System.Windows.Forms.Button Friend WithEvents btnÄndern As System.Windows.Forms.Button
Friend WithEvents btnTV As System.Windows.Forms.Button Friend WithEvents btnTV As System.Windows.Forms.Button
Friend WithEvents Button1 As System.Windows.Forms.Button Friend WithEvents btnSndErstellen As System.Windows.Forms.Button
Friend WithEvents grpAktVerzollung As System.Windows.Forms.GroupBox Friend WithEvents grpAktVerzollung As System.Windows.Forms.GroupBox
Friend WithEvents lnlSendungText As System.Windows.Forms.Label Friend WithEvents lnlSendungText As System.Windows.Forms.Label
Friend WithEvents txtSendungen As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents txtSendungen As VERAG_PROG_ALLGEMEIN.MyTextBox
@@ -2388,19 +2388,19 @@ Partial Class usrcntlAktDetails
Friend WithEvents btnFormulare As System.Windows.Forms.Button Friend WithEvents btnFormulare As System.Windows.Forms.Button
Friend WithEvents btnLkwBeleg As System.Windows.Forms.Button Friend WithEvents btnLkwBeleg As System.Windows.Forms.Button
Friend WithEvents Button7 As System.Windows.Forms.Button Friend WithEvents Button7 As System.Windows.Forms.Button
Friend WithEvents Button8 As System.Windows.Forms.Button Friend WithEvents btnSA_Gestellung As System.Windows.Forms.Button
Friend WithEvents Panel4 As Panel Friend WithEvents Panel4 As Panel
Friend WithEvents btnKasse_User As Button Friend WithEvents btnDipoListe As Button
Friend WithEvents btnKasse_LG As Button Friend WithEvents btnDispohaft As Button
Friend WithEvents tbAnhang As TabPage Friend WithEvents tbAnhang As TabPage
Friend WithEvents Button18 As Button Friend WithEvents Button18 As Button
Friend WithEvents Button9 As Button Friend WithEvents btnDipoListeEmail As Button
Friend WithEvents btnLZDruck As Button Friend WithEvents btnLZDruck As Button
Friend WithEvents cboFormulareRgAn As VERAG_PROG_ALLGEMEIN.MyComboBox Friend WithEvents cboFormulareRgAn As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label4 As Label Friend WithEvents Label4 As Label
Friend WithEvents Button11 As Button Friend WithEvents btnAlleAkendeckel As Button
Friend WithEvents HervorhebenToolStripMenuItem As ToolStripMenuItem Friend WithEvents HervorhebenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents Button12 As Button Friend WithEvents btnAlleSteuerbescheide As Button
Friend WithEvents cbxAlleFirmen As CheckBox Friend WithEvents cbxAlleFirmen As CheckBox
Friend WithEvents btnSendungslisteUNISPED As Button Friend WithEvents btnSendungslisteUNISPED As Button
Friend WithEvents Button14 As Button Friend WithEvents Button14 As Button

38
Aviso/usrcntlAktDetails.vb
View File

@@ -236,6 +236,24 @@ Public Class usrcntlAktDetails
btnErfasst.Visible = True btnErfasst.Visible = True
End If End If
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("WARENORT", "AVISO") Then
btnOptionen.Enabled = False
btnLkwBeleg.Visible = False
tbcntlVermerke.TabPages.Remove(tbAnhang)
btnDipoListeEmail.Visible = False
btnLZDruckDIGITAL.Visible = False
btnAlleAkendeckel.Visible = False
btnAlleSteuerbescheide.Visible = False
btnDispohaft.Visible = False
btnSA_Gestellung.Visible = False
btnSndErstellen.Enabled = False
End If
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", Me.FindForm) Then If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", Me.FindForm) Then
Button2.Visible = True Button2.Visible = True
End If End If
@@ -245,7 +263,7 @@ Public Class usrcntlAktDetails
'End If 'End If
If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "WAI" Then If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "WAI" Then
Button8.Text = "Gest.Liste" btnSA_Gestellung.Text = "Gest.Liste"
End If End If
VERAG_PROG_ALLGEMEIN.cAllgemein._TRANSLATE(Me) VERAG_PROG_ALLGEMEIN.cAllgemein._TRANSLATE(Me)
End Sub End Sub
@@ -1578,6 +1596,10 @@ Public Class usrcntlAktDetails
' Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click ' Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
Private Sub dgvSendungen_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvSendungen.CellDoubleClick Private Sub dgvSendungen_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvSendungen.CellDoubleClick
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("WARENORT", "AVISO") Then
Exit Sub
End If
Dim sendId = -1 Dim sendId = -1
If dgvSendungen.SelectedRows.Count > 0 Then If dgvSendungen.SelectedRows.Count > 0 Then
sendId = dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value sendId = dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value
@@ -2575,7 +2597,7 @@ Public Class usrcntlAktDetails
End Sub End Sub
Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles btnSndErstellen.Click
'Die Sendungen eintragen: 'Die Sendungen eintragen:
If IsNumeric(txtSendungen.Text) And IsNumeric(txtSndFiskalAT.Text) And IsNumeric(txtSndFiskalDE.Text) And IsNumeric(txtSndFremd.Text) Then 'AndAlso txtSendungen.Text > 0 Then If IsNumeric(txtSendungen.Text) And IsNumeric(txtSndFiskalAT.Text) And IsNumeric(txtSndFiskalDE.Text) And IsNumeric(txtSndFremd.Text) Then 'AndAlso txtSendungen.Text > 0 Then
Dim filiale_tmp As Integer = 0 Dim filiale_tmp As Integer = 0
@@ -2778,12 +2800,12 @@ Public Class usrcntlAktDetails
End If End If
End Sub End Sub
Private Sub Button8_Click_2(sender As Object, e As EventArgs) Handles Button8.Click Private Sub Button8_Click_2(sender As Object, e As EventArgs) Handles btnSA_Gestellung.Click
SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.SA_Gestellung, FraechterKdNr, {AvisoID}) SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.SA_Gestellung, FraechterKdNr, {AvisoID})
Panel4.Visible = False Panel4.Visible = False
End Sub End Sub
Private Sub btnKasse_LG_Click(sender As Object, e As EventArgs) Handles btnKasse_LG.Click Private Sub btnKasse_LG_Click(sender As Object, e As EventArgs) Handles btnDispohaft.Click
If DispolisteVermerk() Then If DispolisteVermerk() Then
SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.DispoListe, FraechterKdNr, {AvisoID}) SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.DispoListe, FraechterKdNr, {AvisoID})
Panel4.Visible = False Panel4.Visible = False
@@ -2799,7 +2821,7 @@ Public Class usrcntlAktDetails
End If End If
Return True Return True
End Function End Function
Private Sub btnKasse_User_Click(sender As Object, e As EventArgs) Handles Button9.Click Private Sub btnKasse_User_Click(sender As Object, e As EventArgs) Handles btnDipoListeEmail.Click
If DispolisteVermerk() Then If DispolisteVermerk() Then
Dim path = SDL.FormularManagerNEU.DispSendungslisteoListe(AvisoID, False,, cboFormulareRgAn._value) Dim path = SDL.FormularManagerNEU.DispSendungslisteoListe(AvisoID, False,, cboFormulareRgAn._value)
@@ -2866,7 +2888,7 @@ Public Class usrcntlAktDetails
f.Show(Me) f.Show(Me)
End Sub End Sub
Private Sub Button9_Click(sender As Object, e As EventArgs) Handles btnKasse_User.Click Private Sub Button9_Click(sender As Object, e As EventArgs) Handles btnDipoListe.Click
If DispolisteVermerk() Then If DispolisteVermerk() Then
Dim path = SDL.FormularManagerNEU.DispSendungslisteoListe(AvisoID, False,, cboFormulareRgAn._value) Dim path = SDL.FormularManagerNEU.DispSendungslisteoListe(AvisoID, False,, cboFormulareRgAn._value)
If path <> "" And IO.File.Exists(path) Then Process.Start(path) If path <> "" And IO.File.Exists(path) Then Process.Start(path)
@@ -3068,7 +3090,7 @@ Public Class usrcntlAktDetails
pnlDetailsRechts.Cursor = Cursors.Default pnlDetailsRechts.Cursor = Cursors.Default
End Sub End Sub
Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click Private Sub Button11_Click(sender As Object, e As EventArgs) Handles btnAlleAkendeckel.Click
'If vbYes = MsgBox("Möchten Sie alle Aktendeckel drucken?", vbYesNoCancel) Then 'If vbYes = MsgBox("Möchten Sie alle Aktendeckel drucken?", vbYesNoCancel) Then
' Me.Cursor = Cursors.WaitCursor ' Me.Cursor = Cursors.WaitCursor
@@ -3194,7 +3216,7 @@ Public Class usrcntlAktDetails
Vermerke_anzeigen(index) Vermerke_anzeigen(index)
End Sub End Sub
Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click Private Sub Button12_Click(sender As Object, e As EventArgs) Handles btnAlleSteuerbescheide.Click
Try Try
If vbYes = MsgBox("Möchten Sie alle Steuerbescheide drucken?", vbYesNoCancel) Then If vbYes = MsgBox("Möchten Sie alle Steuerbescheide drucken?", vbYesNoCancel) Then

464
Aviso/usrcntlAktDetailsATILLANeu.Designer.vb generated
View File

@@ -23,27 +23,27 @@ Partial Class usrcntlAktDetailsATILLANeu
<System.Diagnostics.DebuggerStepThrough()> _ <System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container() Me.components = New System.ComponentModel.Container()
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle66 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle67 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle68 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle69 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle70 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle71 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle72 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle73 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle74 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle75 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle76 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle77 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle78 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle79 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle80 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrcntlAktDetailsATILLANeu)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrcntlAktDetailsATILLANeu))
Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle61 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle62 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle63 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle64 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle65 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.pnlDetailsRechts = New System.Windows.Forms.Panel() Me.pnlDetailsRechts = New System.Windows.Forms.Panel()
Me.Panel3 = New System.Windows.Forms.Panel() Me.Panel3 = New System.Windows.Forms.Panel()
Me.SplitContainer = New System.Windows.Forms.SplitContainer() Me.SplitContainer = New System.Windows.Forms.SplitContainer()
@@ -105,7 +105,6 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.Panel9 = New System.Windows.Forms.Panel() Me.Panel9 = New System.Windows.Forms.Panel()
Me.btnErfasst = New System.Windows.Forms.Button() Me.btnErfasst = New System.Windows.Forms.Button()
Me.lblTimeErfasst = New System.Windows.Forms.Label() Me.lblTimeErfasst = New System.Windows.Forms.Label()
Me.Panel10 = New System.Windows.Forms.Panel()
Me.Panel6 = New System.Windows.Forms.Panel() Me.Panel6 = New System.Windows.Forms.Panel()
Me.btnVERIMEX = New System.Windows.Forms.Button() Me.btnVERIMEX = New System.Windows.Forms.Button()
Me.Label7 = New System.Windows.Forms.Label() Me.Label7 = New System.Windows.Forms.Label()
@@ -141,6 +140,12 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.UmbenennenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.UmbenennenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.LöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.LöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.AusZwischenablageEinfügenPasteToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.AusZwischenablageEinfügenPasteToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.Panel14 = New System.Windows.Forms.Panel()
Me.btnAnVerimex = New System.Windows.Forms.Button()
Me.Label8 = New System.Windows.Forms.Label()
Me.Panel15 = New System.Windows.Forms.Panel()
Me.btnAnIndonesien = New System.Windows.Forms.Button()
Me.Label11 = New System.Windows.Forms.Label()
Me.pnlDetailsRechts.SuspendLayout() Me.pnlDetailsRechts.SuspendLayout()
Me.Panel3.SuspendLayout() Me.Panel3.SuspendLayout()
CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -178,6 +183,8 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.cntxtFormulare.SuspendLayout() Me.cntxtFormulare.SuspendLayout()
Me.cntxtZollantrag.SuspendLayout() Me.cntxtZollantrag.SuspendLayout()
Me.cntxt.SuspendLayout() Me.cntxt.SuspendLayout()
Me.Panel14.SuspendLayout()
Me.Panel15.SuspendLayout()
Me.SuspendLayout() Me.SuspendLayout()
' '
'pnlDetailsRechts 'pnlDetailsRechts
@@ -202,9 +209,9 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.Panel3.Controls.Add(Me.SplitContainer) Me.Panel3.Controls.Add(Me.SplitContainer)
Me.Panel3.Controls.Add(Me.Panel8) Me.Panel3.Controls.Add(Me.Panel8)
Me.Panel3.Dock = System.Windows.Forms.DockStyle.Fill Me.Panel3.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel3.Location = New System.Drawing.Point(0, 160) Me.Panel3.Location = New System.Drawing.Point(0, 197)
Me.Panel3.Name = "Panel3" Me.Panel3.Name = "Panel3"
Me.Panel3.Size = New System.Drawing.Size(575, 487) Me.Panel3.Size = New System.Drawing.Size(575, 450)
Me.Panel3.TabIndex = 91 Me.Panel3.TabIndex = 91
' '
'SplitContainer 'SplitContainer
@@ -226,8 +233,8 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.SplitContainer.Panel2.Controls.Add(Me.gridVermerke) Me.SplitContainer.Panel2.Controls.Add(Me.gridVermerke)
Me.SplitContainer.Panel2.Controls.Add(Me.pnlVermerkeTop) Me.SplitContainer.Panel2.Controls.Add(Me.pnlVermerkeTop)
Me.SplitContainer.Panel2.Controls.Add(Me.addVermerk) Me.SplitContainer.Panel2.Controls.Add(Me.addVermerk)
Me.SplitContainer.Size = New System.Drawing.Size(575, 321) Me.SplitContainer.Size = New System.Drawing.Size(575, 284)
Me.SplitContainer.SplitterDistance = 207 Me.SplitContainer.SplitterDistance = 183
Me.SplitContainer.TabIndex = 91 Me.SplitContainer.TabIndex = 91
' '
'tbcntr 'tbcntr
@@ -240,7 +247,7 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.tbcntr.Location = New System.Drawing.Point(0, 0) Me.tbcntr.Location = New System.Drawing.Point(0, 0)
Me.tbcntr.Name = "tbcntr" Me.tbcntr.Name = "tbcntr"
Me.tbcntr.SelectedIndex = 0 Me.tbcntr.SelectedIndex = 0
Me.tbcntr.Size = New System.Drawing.Size(575, 207) Me.tbcntr.Size = New System.Drawing.Size(575, 183)
Me.tbcntr.TabIndex = 100 Me.tbcntr.TabIndex = 100
' '
'tbVermerke 'tbVermerke
@@ -249,7 +256,7 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.tbVermerke.Location = New System.Drawing.Point(4, 22) Me.tbVermerke.Location = New System.Drawing.Point(4, 22)
Me.tbVermerke.Name = "tbVermerke" Me.tbVermerke.Name = "tbVermerke"
Me.tbVermerke.Padding = New System.Windows.Forms.Padding(3) Me.tbVermerke.Padding = New System.Windows.Forms.Padding(3)
Me.tbVermerke.Size = New System.Drawing.Size(567, 181) Me.tbVermerke.Size = New System.Drawing.Size(567, 157)
Me.tbVermerke.TabIndex = 0 Me.tbVermerke.TabIndex = 0
Me.tbVermerke.Text = "Vermerk eintragen" Me.tbVermerke.Text = "Vermerk eintragen"
Me.tbVermerke.UseVisualStyleBackColor = True Me.tbVermerke.UseVisualStyleBackColor = True
@@ -262,7 +269,7 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.UsrCntlVermerkeATilla1.Location = New System.Drawing.Point(3, 3) Me.UsrCntlVermerkeATilla1.Location = New System.Drawing.Point(3, 3)
Me.UsrCntlVermerkeATilla1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) Me.UsrCntlVermerkeATilla1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.UsrCntlVermerkeATilla1.Name = "UsrCntlVermerkeATilla1" Me.UsrCntlVermerkeATilla1.Name = "UsrCntlVermerkeATilla1"
Me.UsrCntlVermerkeATilla1.Size = New System.Drawing.Size(561, 175) Me.UsrCntlVermerkeATilla1.Size = New System.Drawing.Size(561, 151)
Me.UsrCntlVermerkeATilla1.TabIndex = 0 Me.UsrCntlVermerkeATilla1.TabIndex = 0
' '
'tbZollanmeldungen 'tbZollanmeldungen
@@ -291,44 +298,44 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.dgvZollAnmeldungen.AllowUserToAddRows = False Me.dgvZollAnmeldungen.AllowUserToAddRows = False
Me.dgvZollAnmeldungen.AllowUserToDeleteRows = False Me.dgvZollAnmeldungen.AllowUserToDeleteRows = False
Me.dgvZollAnmeldungen.AllowUserToResizeRows = False Me.dgvZollAnmeldungen.AllowUserToResizeRows = False
DataGridViewCellStyle1.BackColor = System.Drawing.Color.Azure DataGridViewCellStyle66.BackColor = System.Drawing.Color.Azure
DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle66.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvZollAnmeldungen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 Me.dgvZollAnmeldungen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle66
Me.dgvZollAnmeldungen.BackgroundColor = System.Drawing.Color.White Me.dgvZollAnmeldungen.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle67.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle2.BackColor = System.Drawing.Color.LightBlue DataGridViewCellStyle67.BackColor = System.Drawing.Color.LightBlue
DataGridViewCellStyle2.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle67.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.WindowText DataGridViewCellStyle67.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle67.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle67.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle67.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvZollAnmeldungen.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle2 Me.dgvZollAnmeldungen.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle67
Me.dgvZollAnmeldungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing Me.dgvZollAnmeldungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle68.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Window DataGridViewCellStyle68.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle68.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.ControlText DataGridViewCellStyle68.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle68.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle68.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] DataGridViewCellStyle68.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvZollAnmeldungen.DefaultCellStyle = DataGridViewCellStyle3 Me.dgvZollAnmeldungen.DefaultCellStyle = DataGridViewCellStyle68
Me.dgvZollAnmeldungen.Dock = System.Windows.Forms.DockStyle.Fill Me.dgvZollAnmeldungen.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvZollAnmeldungen.Location = New System.Drawing.Point(0, 31) Me.dgvZollAnmeldungen.Location = New System.Drawing.Point(0, 31)
Me.dgvZollAnmeldungen.MultiSelect = False Me.dgvZollAnmeldungen.MultiSelect = False
Me.dgvZollAnmeldungen.Name = "dgvZollAnmeldungen" Me.dgvZollAnmeldungen.Name = "dgvZollAnmeldungen"
Me.dgvZollAnmeldungen.ReadOnly = True Me.dgvZollAnmeldungen.ReadOnly = True
DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle69.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control DataGridViewCellStyle69.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle69.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText DataGridViewCellStyle69.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle69.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle69.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle69.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvZollAnmeldungen.RowHeadersDefaultCellStyle = DataGridViewCellStyle4 Me.dgvZollAnmeldungen.RowHeadersDefaultCellStyle = DataGridViewCellStyle69
Me.dgvZollAnmeldungen.RowHeadersVisible = False Me.dgvZollAnmeldungen.RowHeadersVisible = False
Me.dgvZollAnmeldungen.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing Me.dgvZollAnmeldungen.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle70.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvZollAnmeldungen.RowsDefaultCellStyle = DataGridViewCellStyle5 Me.dgvZollAnmeldungen.RowsDefaultCellStyle = DataGridViewCellStyle70
Me.dgvZollAnmeldungen.RowTemplate.Height = 20 Me.dgvZollAnmeldungen.RowTemplate.Height = 20
Me.dgvZollAnmeldungen.RowTemplate.ReadOnly = True Me.dgvZollAnmeldungen.RowTemplate.ReadOnly = True
Me.dgvZollAnmeldungen.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False] Me.dgvZollAnmeldungen.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
@@ -390,44 +397,44 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.dgvSpeditionsbuch.AllowUserToAddRows = False Me.dgvSpeditionsbuch.AllowUserToAddRows = False
Me.dgvSpeditionsbuch.AllowUserToDeleteRows = False Me.dgvSpeditionsbuch.AllowUserToDeleteRows = False
Me.dgvSpeditionsbuch.AllowUserToResizeRows = False Me.dgvSpeditionsbuch.AllowUserToResizeRows = False
DataGridViewCellStyle6.BackColor = System.Drawing.Color.Azure DataGridViewCellStyle71.BackColor = System.Drawing.Color.Azure
DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle71.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvSpeditionsbuch.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6 Me.dgvSpeditionsbuch.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle71
Me.dgvSpeditionsbuch.BackgroundColor = System.Drawing.Color.White Me.dgvSpeditionsbuch.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle7.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle72.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle7.BackColor = System.Drawing.Color.LightBlue DataGridViewCellStyle72.BackColor = System.Drawing.Color.LightBlue
DataGridViewCellStyle7.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle72.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle7.ForeColor = System.Drawing.SystemColors.WindowText DataGridViewCellStyle72.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle7.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle72.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle7.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle72.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle7.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle72.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvSpeditionsbuch.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle7 Me.dgvSpeditionsbuch.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle72
Me.dgvSpeditionsbuch.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing Me.dgvSpeditionsbuch.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
DataGridViewCellStyle8.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle73.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle8.BackColor = System.Drawing.SystemColors.Window DataGridViewCellStyle73.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle73.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle8.ForeColor = System.Drawing.SystemColors.ControlText DataGridViewCellStyle73.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle8.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle73.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle8.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle73.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] DataGridViewCellStyle73.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvSpeditionsbuch.DefaultCellStyle = DataGridViewCellStyle8 Me.dgvSpeditionsbuch.DefaultCellStyle = DataGridViewCellStyle73
Me.dgvSpeditionsbuch.Dock = System.Windows.Forms.DockStyle.Fill Me.dgvSpeditionsbuch.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvSpeditionsbuch.Location = New System.Drawing.Point(3, 34) Me.dgvSpeditionsbuch.Location = New System.Drawing.Point(3, 34)
Me.dgvSpeditionsbuch.MultiSelect = False Me.dgvSpeditionsbuch.MultiSelect = False
Me.dgvSpeditionsbuch.Name = "dgvSpeditionsbuch" Me.dgvSpeditionsbuch.Name = "dgvSpeditionsbuch"
Me.dgvSpeditionsbuch.ReadOnly = True Me.dgvSpeditionsbuch.ReadOnly = True
DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle74.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle9.BackColor = System.Drawing.SystemColors.Control DataGridViewCellStyle74.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle74.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle9.ForeColor = System.Drawing.SystemColors.WindowText DataGridViewCellStyle74.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle9.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle74.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle9.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle74.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle74.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvSpeditionsbuch.RowHeadersDefaultCellStyle = DataGridViewCellStyle9 Me.dgvSpeditionsbuch.RowHeadersDefaultCellStyle = DataGridViewCellStyle74
Me.dgvSpeditionsbuch.RowHeadersVisible = False Me.dgvSpeditionsbuch.RowHeadersVisible = False
Me.dgvSpeditionsbuch.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing Me.dgvSpeditionsbuch.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle75.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvSpeditionsbuch.RowsDefaultCellStyle = DataGridViewCellStyle10 Me.dgvSpeditionsbuch.RowsDefaultCellStyle = DataGridViewCellStyle75
Me.dgvSpeditionsbuch.RowTemplate.Height = 20 Me.dgvSpeditionsbuch.RowTemplate.Height = 20
Me.dgvSpeditionsbuch.RowTemplate.ReadOnly = True Me.dgvSpeditionsbuch.RowTemplate.ReadOnly = True
Me.dgvSpeditionsbuch.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False] Me.dgvSpeditionsbuch.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
@@ -489,43 +496,43 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.dgvanhaenge.AllowUserToAddRows = False Me.dgvanhaenge.AllowUserToAddRows = False
Me.dgvanhaenge.AllowUserToDeleteRows = False Me.dgvanhaenge.AllowUserToDeleteRows = False
Me.dgvanhaenge.AllowUserToResizeRows = False Me.dgvanhaenge.AllowUserToResizeRows = False
DataGridViewCellStyle11.BackColor = System.Drawing.Color.Azure DataGridViewCellStyle76.BackColor = System.Drawing.Color.Azure
DataGridViewCellStyle11.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle76.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvanhaenge.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle11 Me.dgvanhaenge.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle76
Me.dgvanhaenge.BackgroundColor = System.Drawing.Color.White Me.dgvanhaenge.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle77.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle12.BackColor = System.Drawing.Color.LightBlue DataGridViewCellStyle77.BackColor = System.Drawing.Color.LightBlue
DataGridViewCellStyle12.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle77.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle12.ForeColor = System.Drawing.SystemColors.WindowText DataGridViewCellStyle77.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle77.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle77.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle77.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvanhaenge.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle12 Me.dgvanhaenge.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle77
Me.dgvanhaenge.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing Me.dgvanhaenge.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
DataGridViewCellStyle13.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle78.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle13.BackColor = System.Drawing.SystemColors.Window DataGridViewCellStyle78.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle78.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle13.ForeColor = System.Drawing.SystemColors.ControlText DataGridViewCellStyle78.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle13.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle78.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle13.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle78.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] DataGridViewCellStyle78.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvanhaenge.DefaultCellStyle = DataGridViewCellStyle13 Me.dgvanhaenge.DefaultCellStyle = DataGridViewCellStyle78
Me.dgvanhaenge.Dock = System.Windows.Forms.DockStyle.Fill Me.dgvanhaenge.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvanhaenge.Location = New System.Drawing.Point(3, 3) Me.dgvanhaenge.Location = New System.Drawing.Point(3, 3)
Me.dgvanhaenge.Name = "dgvanhaenge" Me.dgvanhaenge.Name = "dgvanhaenge"
Me.dgvanhaenge.ReadOnly = True Me.dgvanhaenge.ReadOnly = True
DataGridViewCellStyle14.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle79.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle14.BackColor = System.Drawing.SystemColors.Control DataGridViewCellStyle79.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle79.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle14.ForeColor = System.Drawing.SystemColors.WindowText DataGridViewCellStyle79.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle14.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle79.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle14.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle79.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle14.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle79.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvanhaenge.RowHeadersDefaultCellStyle = DataGridViewCellStyle14 Me.dgvanhaenge.RowHeadersDefaultCellStyle = DataGridViewCellStyle79
Me.dgvanhaenge.RowHeadersVisible = False Me.dgvanhaenge.RowHeadersVisible = False
Me.dgvanhaenge.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing Me.dgvanhaenge.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle80.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvanhaenge.RowsDefaultCellStyle = DataGridViewCellStyle15 Me.dgvanhaenge.RowsDefaultCellStyle = DataGridViewCellStyle80
Me.dgvanhaenge.RowTemplate.Height = 30 Me.dgvanhaenge.RowTemplate.Height = 30
Me.dgvanhaenge.RowTemplate.ReadOnly = True Me.dgvanhaenge.RowTemplate.ReadOnly = True
Me.dgvanhaenge.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False] Me.dgvanhaenge.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
@@ -612,7 +619,7 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.Panel7.Location = New System.Drawing.Point(4, 19) Me.Panel7.Location = New System.Drawing.Point(4, 19)
Me.Panel7.MaximumSize = New System.Drawing.Size(2, 250) Me.Panel7.MaximumSize = New System.Drawing.Size(2, 250)
Me.Panel7.Name = "Panel7" Me.Panel7.Name = "Panel7"
Me.Panel7.Size = New System.Drawing.Size(1, 79) Me.Panel7.Size = New System.Drawing.Size(1, 250)
Me.Panel7.TabIndex = 15 Me.Panel7.TabIndex = 15
' '
'gridVermerke 'gridVermerke
@@ -620,51 +627,51 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.gridVermerke.AllowUserToAddRows = False Me.gridVermerke.AllowUserToAddRows = False
Me.gridVermerke.AllowUserToDeleteRows = False Me.gridVermerke.AllowUserToDeleteRows = False
Me.gridVermerke.AllowUserToResizeRows = False Me.gridVermerke.AllowUserToResizeRows = False
DataGridViewCellStyle16.BackColor = System.Drawing.Color.Azure DataGridViewCellStyle61.BackColor = System.Drawing.Color.Azure
DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle61.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridVermerke.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle16 Me.gridVermerke.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle61
Me.gridVermerke.BackgroundColor = System.Drawing.Color.White Me.gridVermerke.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle17.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle62.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle17.BackColor = System.Drawing.Color.LightBlue DataGridViewCellStyle62.BackColor = System.Drawing.Color.LightBlue
DataGridViewCellStyle17.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle62.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle17.ForeColor = System.Drawing.SystemColors.WindowText DataGridViewCellStyle62.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle17.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle62.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle17.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle62.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle17.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle62.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridVermerke.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle17 Me.gridVermerke.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle62
Me.gridVermerke.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing Me.gridVermerke.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
DataGridViewCellStyle18.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle63.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle18.BackColor = System.Drawing.SystemColors.Window DataGridViewCellStyle63.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle18.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle63.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle18.ForeColor = System.Drawing.SystemColors.ControlText DataGridViewCellStyle63.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle18.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle63.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle18.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle63.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle18.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] DataGridViewCellStyle63.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridVermerke.DefaultCellStyle = DataGridViewCellStyle18 Me.gridVermerke.DefaultCellStyle = DataGridViewCellStyle63
Me.gridVermerke.Dock = System.Windows.Forms.DockStyle.Fill Me.gridVermerke.Dock = System.Windows.Forms.DockStyle.Fill
Me.gridVermerke.Location = New System.Drawing.Point(0, 29) Me.gridVermerke.Location = New System.Drawing.Point(0, 29)
Me.gridVermerke.MultiSelect = False Me.gridVermerke.MultiSelect = False
Me.gridVermerke.Name = "gridVermerke" Me.gridVermerke.Name = "gridVermerke"
Me.gridVermerke.ReadOnly = True Me.gridVermerke.ReadOnly = True
DataGridViewCellStyle19.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle64.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle19.BackColor = System.Drawing.SystemColors.Control DataGridViewCellStyle64.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle64.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle19.ForeColor = System.Drawing.SystemColors.WindowText DataGridViewCellStyle64.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle19.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle64.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle19.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle64.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle19.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle64.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridVermerke.RowHeadersDefaultCellStyle = DataGridViewCellStyle19 Me.gridVermerke.RowHeadersDefaultCellStyle = DataGridViewCellStyle64
Me.gridVermerke.RowHeadersVisible = False Me.gridVermerke.RowHeadersVisible = False
Me.gridVermerke.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing Me.gridVermerke.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
DataGridViewCellStyle20.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle65.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridVermerke.RowsDefaultCellStyle = DataGridViewCellStyle20 Me.gridVermerke.RowsDefaultCellStyle = DataGridViewCellStyle65
Me.gridVermerke.RowTemplate.Height = 20 Me.gridVermerke.RowTemplate.Height = 20
Me.gridVermerke.RowTemplate.ReadOnly = True Me.gridVermerke.RowTemplate.ReadOnly = True
Me.gridVermerke.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False] Me.gridVermerke.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridVermerke.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect Me.gridVermerke.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.gridVermerke.ShowCellErrors = False Me.gridVermerke.ShowCellErrors = False
Me.gridVermerke.ShowRowErrors = False Me.gridVermerke.ShowRowErrors = False
Me.gridVermerke.Size = New System.Drawing.Size(575, 81) Me.gridVermerke.Size = New System.Drawing.Size(575, 68)
Me.gridVermerke.TabIndex = 70 Me.gridVermerke.TabIndex = 70
Me.gridVermerke.TabStop = False Me.gridVermerke.TabStop = False
' '
@@ -1124,16 +1131,17 @@ Partial Class usrcntlAktDetailsATILLANeu
' '
Me.FlowLayoutPanel.AutoSize = True Me.FlowLayoutPanel.AutoSize = True
Me.FlowLayoutPanel.Controls.Add(Me.Panel9) Me.FlowLayoutPanel.Controls.Add(Me.Panel9)
Me.FlowLayoutPanel.Controls.Add(Me.Panel10)
Me.FlowLayoutPanel.Controls.Add(Me.Panel6)
Me.FlowLayoutPanel.Controls.Add(Me.Panel13) Me.FlowLayoutPanel.Controls.Add(Me.Panel13)
Me.FlowLayoutPanel.Controls.Add(Me.Panel11) Me.FlowLayoutPanel.Controls.Add(Me.Panel11)
Me.FlowLayoutPanel.Controls.Add(Me.Panel14)
Me.FlowLayoutPanel.Controls.Add(Me.Panel15)
Me.FlowLayoutPanel.Controls.Add(Me.Panel12) Me.FlowLayoutPanel.Controls.Add(Me.Panel12)
Me.FlowLayoutPanel.Controls.Add(Me.Panel2) Me.FlowLayoutPanel.Controls.Add(Me.Panel2)
Me.FlowLayoutPanel.Controls.Add(Me.Panel6)
Me.FlowLayoutPanel.Dock = System.Windows.Forms.DockStyle.Top Me.FlowLayoutPanel.Dock = System.Windows.Forms.DockStyle.Top
Me.FlowLayoutPanel.Location = New System.Drawing.Point(0, 36) Me.FlowLayoutPanel.Location = New System.Drawing.Point(0, 36)
Me.FlowLayoutPanel.Name = "FlowLayoutPanel" Me.FlowLayoutPanel.Name = "FlowLayoutPanel"
Me.FlowLayoutPanel.Size = New System.Drawing.Size(575, 124) Me.FlowLayoutPanel.Size = New System.Drawing.Size(575, 161)
Me.FlowLayoutPanel.TabIndex = 13 Me.FlowLayoutPanel.TabIndex = 13
' '
'Panel9 'Panel9
@@ -1142,8 +1150,9 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.Panel9.Controls.Add(Me.btnErfasst) Me.Panel9.Controls.Add(Me.btnErfasst)
Me.Panel9.Controls.Add(Me.lblTimeErfasst) Me.Panel9.Controls.Add(Me.lblTimeErfasst)
Me.Panel9.Location = New System.Drawing.Point(3, 3) Me.Panel9.Location = New System.Drawing.Point(3, 3)
Me.Panel9.Margin = New System.Windows.Forms.Padding(3, 3, 2, 3)
Me.Panel9.Name = "Panel9" Me.Panel9.Name = "Panel9"
Me.Panel9.Size = New System.Drawing.Size(100, 74) Me.Panel9.Size = New System.Drawing.Size(90, 74)
Me.Panel9.TabIndex = 15 Me.Panel9.TabIndex = 15
' '
'btnErfasst 'btnErfasst
@@ -1153,13 +1162,13 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.btnErfasst.Cursor = System.Windows.Forms.Cursors.Hand Me.btnErfasst.Cursor = System.Windows.Forms.Cursors.Hand
Me.btnErfasst.Dock = System.Windows.Forms.DockStyle.Fill Me.btnErfasst.Dock = System.Windows.Forms.DockStyle.Fill
Me.btnErfasst.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnErfasst.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnErfasst.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnErfasst.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
Me.btnErfasst.ForeColor = System.Drawing.Color.White Me.btnErfasst.ForeColor = System.Drawing.Color.White
Me.btnErfasst.Location = New System.Drawing.Point(0, 0) Me.btnErfasst.Location = New System.Drawing.Point(0, 0)
Me.btnErfasst.Margin = New System.Windows.Forms.Padding(0) Me.btnErfasst.Margin = New System.Windows.Forms.Padding(0)
Me.btnErfasst.MinimumSize = New System.Drawing.Size(100, 0) Me.btnErfasst.MinimumSize = New System.Drawing.Size(90, 0)
Me.btnErfasst.Name = "btnErfasst" Me.btnErfasst.Name = "btnErfasst"
Me.btnErfasst.Size = New System.Drawing.Size(100, 62) Me.btnErfasst.Size = New System.Drawing.Size(90, 62)
Me.btnErfasst.TabIndex = 12 Me.btnErfasst.TabIndex = 12
Me.btnErfasst.Text = "1. " & Global.Microsoft.VisualBasic.ChrW(10) & "ERFASST" Me.btnErfasst.Text = "1. " & Global.Microsoft.VisualBasic.ChrW(10) & "ERFASST"
Me.btnErfasst.UseVisualStyleBackColor = False Me.btnErfasst.UseVisualStyleBackColor = False
@@ -1170,28 +1179,21 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.lblTimeErfasst.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblTimeErfasst.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblTimeErfasst.Location = New System.Drawing.Point(0, 62) Me.lblTimeErfasst.Location = New System.Drawing.Point(0, 62)
Me.lblTimeErfasst.Name = "lblTimeErfasst" Me.lblTimeErfasst.Name = "lblTimeErfasst"
Me.lblTimeErfasst.Size = New System.Drawing.Size(100, 12) Me.lblTimeErfasst.Size = New System.Drawing.Size(90, 12)
Me.lblTimeErfasst.TabIndex = 0 Me.lblTimeErfasst.TabIndex = 0
Me.lblTimeErfasst.Text = "-" Me.lblTimeErfasst.Text = "-"
Me.lblTimeErfasst.TextAlign = System.Drawing.ContentAlignment.TopCenter Me.lblTimeErfasst.TextAlign = System.Drawing.ContentAlignment.TopCenter
' '
'Panel10
'
Me.Panel10.AutoSize = True
Me.Panel10.Location = New System.Drawing.Point(109, 3)
Me.Panel10.Name = "Panel10"
Me.Panel10.Size = New System.Drawing.Size(0, 0)
Me.Panel10.TabIndex = 16
'
'Panel6 'Panel6
' '
Me.Panel6.AutoSize = True Me.Panel6.AutoSize = True
Me.Panel6.Controls.Add(Me.btnVERIMEX) Me.Panel6.Controls.Add(Me.btnVERIMEX)
Me.Panel6.Controls.Add(Me.Label7) Me.Panel6.Controls.Add(Me.Label7)
Me.Panel6.Location = New System.Drawing.Point(115, 3) Me.Panel6.Location = New System.Drawing.Point(75, 84)
Me.Panel6.Name = "Panel6" Me.Panel6.Name = "Panel6"
Me.Panel6.Size = New System.Drawing.Size(111, 74) Me.Panel6.Size = New System.Drawing.Size(111, 74)
Me.Panel6.TabIndex = 19 Me.Panel6.TabIndex = 19
Me.Panel6.Visible = False
' '
'btnVERIMEX 'btnVERIMEX
' '
@@ -1200,7 +1202,7 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.btnVERIMEX.Cursor = System.Windows.Forms.Cursors.Hand Me.btnVERIMEX.Cursor = System.Windows.Forms.Cursors.Hand
Me.btnVERIMEX.Dock = System.Windows.Forms.DockStyle.Fill Me.btnVERIMEX.Dock = System.Windows.Forms.DockStyle.Fill
Me.btnVERIMEX.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnVERIMEX.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnVERIMEX.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnVERIMEX.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
Me.btnVERIMEX.ForeColor = System.Drawing.Color.White Me.btnVERIMEX.ForeColor = System.Drawing.Color.White
Me.btnVERIMEX.Location = New System.Drawing.Point(0, 0) Me.btnVERIMEX.Location = New System.Drawing.Point(0, 0)
Me.btnVERIMEX.Margin = New System.Windows.Forms.Padding(0) Me.btnVERIMEX.Margin = New System.Windows.Forms.Padding(0)
@@ -1227,9 +1229,10 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.Panel13.AutoSize = True Me.Panel13.AutoSize = True
Me.Panel13.Controls.Add(Me.btnVorgeschrieben) Me.Panel13.Controls.Add(Me.btnVorgeschrieben)
Me.Panel13.Controls.Add(Me.lblTimeVorgeschreiben) Me.Panel13.Controls.Add(Me.lblTimeVorgeschreiben)
Me.Panel13.Location = New System.Drawing.Point(232, 3) Me.Panel13.Location = New System.Drawing.Point(97, 3)
Me.Panel13.Margin = New System.Windows.Forms.Padding(2, 3, 2, 3)
Me.Panel13.Name = "Panel13" Me.Panel13.Name = "Panel13"
Me.Panel13.Size = New System.Drawing.Size(112, 75) Me.Panel13.Size = New System.Drawing.Size(98, 75)
Me.Panel13.TabIndex = 17 Me.Panel13.TabIndex = 17
' '
'btnVorgeschrieben 'btnVorgeschrieben
@@ -1239,13 +1242,13 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.btnVorgeschrieben.Cursor = System.Windows.Forms.Cursors.Hand Me.btnVorgeschrieben.Cursor = System.Windows.Forms.Cursors.Hand
Me.btnVorgeschrieben.Dock = System.Windows.Forms.DockStyle.Fill Me.btnVorgeschrieben.Dock = System.Windows.Forms.DockStyle.Fill
Me.btnVorgeschrieben.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnVorgeschrieben.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnVorgeschrieben.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnVorgeschrieben.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
Me.btnVorgeschrieben.ForeColor = System.Drawing.Color.White Me.btnVorgeschrieben.ForeColor = System.Drawing.Color.White
Me.btnVorgeschrieben.Location = New System.Drawing.Point(0, 0) Me.btnVorgeschrieben.Location = New System.Drawing.Point(0, 0)
Me.btnVorgeschrieben.Margin = New System.Windows.Forms.Padding(0) Me.btnVorgeschrieben.Margin = New System.Windows.Forms.Padding(0)
Me.btnVorgeschrieben.MinimumSize = New System.Drawing.Size(100, 0) Me.btnVorgeschrieben.MinimumSize = New System.Drawing.Size(90, 0)
Me.btnVorgeschrieben.Name = "btnVorgeschrieben" Me.btnVorgeschrieben.Name = "btnVorgeschrieben"
Me.btnVorgeschrieben.Size = New System.Drawing.Size(112, 62) Me.btnVorgeschrieben.Size = New System.Drawing.Size(98, 62)
Me.btnVorgeschrieben.TabIndex = 14 Me.btnVorgeschrieben.TabIndex = 14
Me.btnVorgeschrieben.Text = "3." & Global.Microsoft.VisualBasic.ChrW(10) & "VORGESCHR." Me.btnVorgeschrieben.Text = "3." & Global.Microsoft.VisualBasic.ChrW(10) & "VORGESCHR."
Me.btnVorgeschrieben.UseVisualStyleBackColor = False Me.btnVorgeschrieben.UseVisualStyleBackColor = False
@@ -1256,7 +1259,7 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.lblTimeVorgeschreiben.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblTimeVorgeschreiben.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblTimeVorgeschreiben.Location = New System.Drawing.Point(0, 62) Me.lblTimeVorgeschreiben.Location = New System.Drawing.Point(0, 62)
Me.lblTimeVorgeschreiben.Name = "lblTimeVorgeschreiben" Me.lblTimeVorgeschreiben.Name = "lblTimeVorgeschreiben"
Me.lblTimeVorgeschreiben.Size = New System.Drawing.Size(112, 13) Me.lblTimeVorgeschreiben.Size = New System.Drawing.Size(98, 13)
Me.lblTimeVorgeschreiben.TabIndex = 0 Me.lblTimeVorgeschreiben.TabIndex = 0
Me.lblTimeVorgeschreiben.Text = "-" Me.lblTimeVorgeschreiben.Text = "-"
Me.lblTimeVorgeschreiben.TextAlign = System.Drawing.ContentAlignment.TopCenter Me.lblTimeVorgeschreiben.TextAlign = System.Drawing.ContentAlignment.TopCenter
@@ -1266,9 +1269,10 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.Panel11.AutoSize = True Me.Panel11.AutoSize = True
Me.Panel11.Controls.Add(Me.btnAnkunft) Me.Panel11.Controls.Add(Me.btnAnkunft)
Me.Panel11.Controls.Add(Me.lblTimeAnkunft) Me.Panel11.Controls.Add(Me.lblTimeAnkunft)
Me.Panel11.Location = New System.Drawing.Point(350, 3) Me.Panel11.Location = New System.Drawing.Point(199, 3)
Me.Panel11.Margin = New System.Windows.Forms.Padding(2, 3, 2, 3)
Me.Panel11.Name = "Panel11" Me.Panel11.Name = "Panel11"
Me.Panel11.Size = New System.Drawing.Size(100, 75) Me.Panel11.Size = New System.Drawing.Size(90, 75)
Me.Panel11.TabIndex = 17 Me.Panel11.TabIndex = 17
' '
'btnAnkunft 'btnAnkunft
@@ -1278,13 +1282,13 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.btnAnkunft.Cursor = System.Windows.Forms.Cursors.Hand Me.btnAnkunft.Cursor = System.Windows.Forms.Cursors.Hand
Me.btnAnkunft.Dock = System.Windows.Forms.DockStyle.Fill Me.btnAnkunft.Dock = System.Windows.Forms.DockStyle.Fill
Me.btnAnkunft.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnAnkunft.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnAnkunft.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnAnkunft.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
Me.btnAnkunft.ForeColor = System.Drawing.Color.White Me.btnAnkunft.ForeColor = System.Drawing.Color.White
Me.btnAnkunft.Location = New System.Drawing.Point(0, 0) Me.btnAnkunft.Location = New System.Drawing.Point(0, 0)
Me.btnAnkunft.Margin = New System.Windows.Forms.Padding(0) Me.btnAnkunft.Margin = New System.Windows.Forms.Padding(0)
Me.btnAnkunft.MinimumSize = New System.Drawing.Size(100, 0) Me.btnAnkunft.MinimumSize = New System.Drawing.Size(90, 0)
Me.btnAnkunft.Name = "btnAnkunft" Me.btnAnkunft.Name = "btnAnkunft"
Me.btnAnkunft.Size = New System.Drawing.Size(100, 62) Me.btnAnkunft.Size = New System.Drawing.Size(90, 62)
Me.btnAnkunft.TabIndex = 12 Me.btnAnkunft.TabIndex = 12
Me.btnAnkunft.Text = "4." & Global.Microsoft.VisualBasic.ChrW(10) & "ANKUNFT" Me.btnAnkunft.Text = "4." & Global.Microsoft.VisualBasic.ChrW(10) & "ANKUNFT"
Me.btnAnkunft.UseVisualStyleBackColor = False Me.btnAnkunft.UseVisualStyleBackColor = False
@@ -1295,7 +1299,7 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.lblTimeAnkunft.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblTimeAnkunft.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblTimeAnkunft.Location = New System.Drawing.Point(0, 62) Me.lblTimeAnkunft.Location = New System.Drawing.Point(0, 62)
Me.lblTimeAnkunft.Name = "lblTimeAnkunft" Me.lblTimeAnkunft.Name = "lblTimeAnkunft"
Me.lblTimeAnkunft.Size = New System.Drawing.Size(100, 13) Me.lblTimeAnkunft.Size = New System.Drawing.Size(90, 13)
Me.lblTimeAnkunft.TabIndex = 0 Me.lblTimeAnkunft.TabIndex = 0
Me.lblTimeAnkunft.Text = "-" Me.lblTimeAnkunft.Text = "-"
Me.lblTimeAnkunft.TextAlign = System.Drawing.ContentAlignment.TopCenter Me.lblTimeAnkunft.TextAlign = System.Drawing.ContentAlignment.TopCenter
@@ -1305,9 +1309,10 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.Panel12.AutoSize = True Me.Panel12.AutoSize = True
Me.Panel12.Controls.Add(Me.btnFreigabe) Me.Panel12.Controls.Add(Me.btnFreigabe)
Me.Panel12.Controls.Add(Me.lblTimeFreigabe) Me.Panel12.Controls.Add(Me.lblTimeFreigabe)
Me.Panel12.Location = New System.Drawing.Point(456, 3) Me.Panel12.Location = New System.Drawing.Point(475, 3)
Me.Panel12.Margin = New System.Windows.Forms.Padding(2, 3, 2, 3)
Me.Panel12.Name = "Panel12" Me.Panel12.Name = "Panel12"
Me.Panel12.Size = New System.Drawing.Size(100, 74) Me.Panel12.Size = New System.Drawing.Size(90, 74)
Me.Panel12.TabIndex = 17 Me.Panel12.TabIndex = 17
' '
'btnFreigabe 'btnFreigabe
@@ -1317,13 +1322,13 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.btnFreigabe.Cursor = System.Windows.Forms.Cursors.Hand Me.btnFreigabe.Cursor = System.Windows.Forms.Cursors.Hand
Me.btnFreigabe.Dock = System.Windows.Forms.DockStyle.Fill Me.btnFreigabe.Dock = System.Windows.Forms.DockStyle.Fill
Me.btnFreigabe.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnFreigabe.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnFreigabe.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnFreigabe.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
Me.btnFreigabe.ForeColor = System.Drawing.Color.White Me.btnFreigabe.ForeColor = System.Drawing.Color.White
Me.btnFreigabe.Location = New System.Drawing.Point(0, 0) Me.btnFreigabe.Location = New System.Drawing.Point(0, 0)
Me.btnFreigabe.Margin = New System.Windows.Forms.Padding(0) Me.btnFreigabe.Margin = New System.Windows.Forms.Padding(0)
Me.btnFreigabe.MinimumSize = New System.Drawing.Size(100, 0) Me.btnFreigabe.MinimumSize = New System.Drawing.Size(90, 0)
Me.btnFreigabe.Name = "btnFreigabe" Me.btnFreigabe.Name = "btnFreigabe"
Me.btnFreigabe.Size = New System.Drawing.Size(100, 62) Me.btnFreigabe.Size = New System.Drawing.Size(90, 62)
Me.btnFreigabe.TabIndex = 12 Me.btnFreigabe.TabIndex = 12
Me.btnFreigabe.Text = "5." & Global.Microsoft.VisualBasic.ChrW(10) & "FREIGABE" Me.btnFreigabe.Text = "5." & Global.Microsoft.VisualBasic.ChrW(10) & "FREIGABE"
Me.btnFreigabe.UseVisualStyleBackColor = False Me.btnFreigabe.UseVisualStyleBackColor = False
@@ -1334,7 +1339,7 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.lblTimeFreigabe.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblTimeFreigabe.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblTimeFreigabe.Location = New System.Drawing.Point(0, 62) Me.lblTimeFreigabe.Location = New System.Drawing.Point(0, 62)
Me.lblTimeFreigabe.Name = "lblTimeFreigabe" Me.lblTimeFreigabe.Name = "lblTimeFreigabe"
Me.lblTimeFreigabe.Size = New System.Drawing.Size(100, 12) Me.lblTimeFreigabe.Size = New System.Drawing.Size(90, 12)
Me.lblTimeFreigabe.TabIndex = 0 Me.lblTimeFreigabe.TabIndex = 0
Me.lblTimeFreigabe.Text = "-" Me.lblTimeFreigabe.Text = "-"
Me.lblTimeFreigabe.TextAlign = System.Drawing.ContentAlignment.TopCenter Me.lblTimeFreigabe.TextAlign = System.Drawing.ContentAlignment.TopCenter
@@ -1355,7 +1360,7 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.btnNichtEingetroffen.Cursor = System.Windows.Forms.Cursors.Hand Me.btnNichtEingetroffen.Cursor = System.Windows.Forms.Cursors.Hand
Me.btnNichtEingetroffen.Dock = System.Windows.Forms.DockStyle.Fill Me.btnNichtEingetroffen.Dock = System.Windows.Forms.DockStyle.Fill
Me.btnNichtEingetroffen.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnNichtEingetroffen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnNichtEingetroffen.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnNichtEingetroffen.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
Me.btnNichtEingetroffen.ForeColor = System.Drawing.Color.White Me.btnNichtEingetroffen.ForeColor = System.Drawing.Color.White
Me.btnNichtEingetroffen.Location = New System.Drawing.Point(0, 0) Me.btnNichtEingetroffen.Location = New System.Drawing.Point(0, 0)
Me.btnNichtEingetroffen.Margin = New System.Windows.Forms.Padding(0) Me.btnNichtEingetroffen.Margin = New System.Windows.Forms.Padding(0)
@@ -1534,6 +1539,88 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.AusZwischenablageEinfügenPasteToolStripMenuItem.Size = New System.Drawing.Size(279, 30) Me.AusZwischenablageEinfügenPasteToolStripMenuItem.Size = New System.Drawing.Size(279, 30)
Me.AusZwischenablageEinfügenPasteToolStripMenuItem.Text = "Aus Zwischenablage einfügen (Paste)" Me.AusZwischenablageEinfügenPasteToolStripMenuItem.Text = "Aus Zwischenablage einfügen (Paste)"
' '
'Panel14
'
Me.Panel14.AutoSize = True
Me.Panel14.Controls.Add(Me.btnAnVerimex)
Me.Panel14.Controls.Add(Me.Label8)
Me.Panel14.Location = New System.Drawing.Point(293, 3)
Me.Panel14.Margin = New System.Windows.Forms.Padding(2, 3, 2, 3)
Me.Panel14.Name = "Panel14"
Me.Panel14.Size = New System.Drawing.Size(80, 75)
Me.Panel14.TabIndex = 20
Me.Panel14.Visible = False
'
'btnAnVerimex
'
Me.btnAnVerimex.AutoSize = True
Me.btnAnVerimex.BackColor = System.Drawing.Color.SteelBlue
Me.btnAnVerimex.Cursor = System.Windows.Forms.Cursors.Hand
Me.btnAnVerimex.Dock = System.Windows.Forms.DockStyle.Fill
Me.btnAnVerimex.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnAnVerimex.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
Me.btnAnVerimex.ForeColor = System.Drawing.Color.White
Me.btnAnVerimex.Location = New System.Drawing.Point(0, 0)
Me.btnAnVerimex.Margin = New System.Windows.Forms.Padding(0)
Me.btnAnVerimex.MinimumSize = New System.Drawing.Size(80, 0)
Me.btnAnVerimex.Name = "btnAnVerimex"
Me.btnAnVerimex.Size = New System.Drawing.Size(80, 62)
Me.btnAnVerimex.TabIndex = 12
Me.btnAnVerimex.Text = "An:" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "VERIMEX"
Me.btnAnVerimex.UseVisualStyleBackColor = False
'
'Label8
'
Me.Label8.Dock = System.Windows.Forms.DockStyle.Bottom
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(0, 62)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(80, 13)
Me.Label8.TabIndex = 0
Me.Label8.Text = "-"
Me.Label8.TextAlign = System.Drawing.ContentAlignment.TopCenter
'
'Panel15
'
Me.Panel15.AutoSize = True
Me.Panel15.Controls.Add(Me.btnAnIndonesien)
Me.Panel15.Controls.Add(Me.Label11)
Me.Panel15.Location = New System.Drawing.Point(377, 3)
Me.Panel15.Margin = New System.Windows.Forms.Padding(2, 3, 2, 3)
Me.Panel15.Name = "Panel15"
Me.Panel15.Size = New System.Drawing.Size(94, 75)
Me.Panel15.TabIndex = 21
Me.Panel15.Visible = False
'
'btnAnIndonesien
'
Me.btnAnIndonesien.AutoSize = True
Me.btnAnIndonesien.BackColor = System.Drawing.Color.SteelBlue
Me.btnAnIndonesien.Cursor = System.Windows.Forms.Cursors.Hand
Me.btnAnIndonesien.Dock = System.Windows.Forms.DockStyle.Fill
Me.btnAnIndonesien.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnAnIndonesien.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
Me.btnAnIndonesien.ForeColor = System.Drawing.Color.White
Me.btnAnIndonesien.Location = New System.Drawing.Point(0, 0)
Me.btnAnIndonesien.Margin = New System.Windows.Forms.Padding(0)
Me.btnAnIndonesien.MinimumSize = New System.Drawing.Size(80, 0)
Me.btnAnIndonesien.Name = "btnAnIndonesien"
Me.btnAnIndonesien.Size = New System.Drawing.Size(94, 62)
Me.btnAnIndonesien.TabIndex = 12
Me.btnAnIndonesien.Text = "An:" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "INDONESIEN"
Me.btnAnIndonesien.UseVisualStyleBackColor = False
'
'Label11
'
Me.Label11.Dock = System.Windows.Forms.DockStyle.Bottom
Me.Label11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label11.Location = New System.Drawing.Point(0, 62)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(94, 13)
Me.Label11.TabIndex = 0
Me.Label11.Text = "-"
Me.Label11.TextAlign = System.Drawing.ContentAlignment.TopCenter
'
'usrcntlAktDetailsATILLANeu 'usrcntlAktDetailsATILLANeu
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -1592,6 +1679,10 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.cntxtFormulare.ResumeLayout(False) Me.cntxtFormulare.ResumeLayout(False)
Me.cntxtZollantrag.ResumeLayout(False) Me.cntxtZollantrag.ResumeLayout(False)
Me.cntxt.ResumeLayout(False) Me.cntxt.ResumeLayout(False)
Me.Panel14.ResumeLayout(False)
Me.Panel14.PerformLayout()
Me.Panel15.ResumeLayout(False)
Me.Panel15.PerformLayout()
Me.ResumeLayout(False) Me.ResumeLayout(False)
Me.PerformLayout() Me.PerformLayout()
@@ -1607,7 +1698,6 @@ Partial Class usrcntlAktDetailsATILLANeu
Friend WithEvents Panel9 As System.Windows.Forms.Panel Friend WithEvents Panel9 As System.Windows.Forms.Panel
Friend WithEvents btnErfasst As System.Windows.Forms.Button Friend WithEvents btnErfasst As System.Windows.Forms.Button
Friend WithEvents lblTimeErfasst As System.Windows.Forms.Label Friend WithEvents lblTimeErfasst As System.Windows.Forms.Label
Friend WithEvents Panel10 As System.Windows.Forms.Panel
Friend WithEvents Panel13 As System.Windows.Forms.Panel Friend WithEvents Panel13 As System.Windows.Forms.Panel
Friend WithEvents btnVorgeschrieben As System.Windows.Forms.Button Friend WithEvents btnVorgeschrieben As System.Windows.Forms.Button
Friend WithEvents lblTimeVorgeschreiben As System.Windows.Forms.Label Friend WithEvents lblTimeVorgeschreiben As System.Windows.Forms.Label
@@ -1693,4 +1783,10 @@ Partial Class usrcntlAktDetailsATILLANeu
Friend WithEvents Panel6 As Panel Friend WithEvents Panel6 As Panel
Friend WithEvents btnVERIMEX As Button Friend WithEvents btnVERIMEX As Button
Friend WithEvents Label7 As Label Friend WithEvents Label7 As Label
Friend WithEvents Panel14 As Panel
Friend WithEvents btnAnVerimex As Button
Friend WithEvents Label8 As Label
Friend WithEvents Panel15 As Panel
Friend WithEvents btnAnIndonesien As Button
Friend WithEvents Label11 As Label
End Class End Class

26
Aviso/usrcntlAktDetailsATILLANeu.resx
View File

@@ -118,6 +118,19 @@
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader> </resheader>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" /> <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="addVermerk.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABGdBTUEAALGPC/xhBQAAAZ1JREFUOE+l
kTlLA0EYhvMTtLIyjbHzwsKI2rgeSSF4gUVEPIIgqIiCQSxsRJSYgC6mCBaKF4IW7tqYJsEjaFBEC0nU
WGoniKlMxNfMhFmS7BjdtXiGnW+/9+Fd1gBAN/GuCRDeO0Zv2Uy19FeIKDG/irf2EUSt/Tit60yOdQpD
oWtF9mDpw3FtB3bLGyGazF/cQC6ILBKJIhAI4r65F4GaNuyUCVg2mTFnrOCHfoLKwimZfOjD1vY+tksF
LBVVUZkmYUxuQDj8CL//DJJ8hI2tPTjdHjimZxUZ2eOGsyGy91MHntercSClZAuuFSpjsF1VOBsqO5mk
sidPJe6cJZh3ilwZISOcTXozJruaKcbJhJErI2Rc0onJgqrZJZGNG+EbLIBky0+uqXOqAYH3mbQZk3Xz
ZQTVQGm2pq0ZI+Pya7NfZATl4b/NGPTQ+wN40OPzwhtXNyvULCOkHoJevGwMJ/7TjGHA4dTX684Yzhd7
sDlu/WDNDmx5yff8UC4MTZYW3IgD2HW0wm0X4LLXJ/Q0Y1AhQRyySLwFbcDwDUJWbE0CgQrjAAAAAElF
TkSuQmCC
</value>
</data>
<data name="btnQuckScan.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="btnQuckScan.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAAB4AAAAeCAYAAAA7MK6iAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m iVBORw0KGgoAAAANSUhEUgAAAB4AAAAeCAYAAAA7MK6iAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
@@ -167,19 +180,6 @@
1q9bd3Hp0qWfE6i+kpLS3D+JP4ukpCQlLy9P0el0WbIeimS9GSSIXnBwsHlsbOyWrKys3Vwu9yCPx7MX 1q9bd3Hp0qWfE6i+kpLS3D+JP4ukpCQlLy9P0el0WbIeimS9GSSIXnBwsHlsbOyWrKys3Vwu9yCPx7MX
CARHhELhMT6ff7SiosJe1M9ms3fHxcVtJVNvTsDLra2tNczNzeWZTKbEvHnzXlNETFB/AFyHwBGvedXw CARHhELhMT6ff7SiosJe1M9ms3fHxcVtJVNvTsDLra2tNczNzeWZTKbEvHnzXlNETFB/AFyHwBGvedXw
AAAAAElFTkSuQmCC AAAAAElFTkSuQmCC
</value>
</data>
<data name="addVermerk.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABGdBTUEAALGPC/xhBQAAAZ1JREFUOE+l
kTlLA0EYhvMTtLIyjbHzwsKI2rgeSSF4gUVEPIIgqIiCQSxsRJSYgC6mCBaKF4IW7tqYJsEjaFBEC0nU
WGoniKlMxNfMhFmS7BjdtXiGnW+/9+Fd1gBAN/GuCRDeO0Zv2Uy19FeIKDG/irf2EUSt/Tit60yOdQpD
oWtF9mDpw3FtB3bLGyGazF/cQC6ILBKJIhAI4r65F4GaNuyUCVg2mTFnrOCHfoLKwimZfOjD1vY+tksF
LBVVUZkmYUxuQDj8CL//DJJ8hI2tPTjdHjimZxUZ2eOGsyGy91MHntercSClZAuuFSpjsF1VOBsqO5mk
sidPJe6cJZh3ilwZISOcTXozJruaKcbJhJErI2Rc0onJgqrZJZGNG+EbLIBky0+uqXOqAYH3mbQZk3Xz
ZQTVQGm2pq0ZI+Pya7NfZATl4b/NGPTQ+wN40OPzwhtXNyvULCOkHoJevGwMJ/7TjGHA4dTX684Yzhd7
sDlu/WDNDmx5yff8UC4MTZYW3IgD2HW0wm0X4LLXJ/Q0Y1AhQRyySLwFbcDwDUJWbE0CgQrjAAAAAElF
TkSuQmCC
</value> </value>
</data> </data>
<data name="btnLöschen.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="btnLöschen.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">

43
Aviso/usrcntlAktDetailsATILLANeu.vb
View File

@@ -233,15 +233,24 @@ Public Class usrcntlAktDetailsATILLANeu
timer.Interval = 100 timer.Interval = 100
reload(AvisoID) reload(AvisoID)
If My.Computer.Screen.WorkingArea.Width < 1300 Then If My.Computer.Screen.WorkingArea.Width < 1300 Then
btnAnkunft.Text = "ANKUNFT" 'btnAnkunft.Text = "ANKUNFT"
btnErfasst.Text = "ERFASST" 'btnErfasst.Text = "ERFASST"
' btnVorbereitet.Text = "VORB.QS" '' btnVorbereitet.Text = "VORB.QS"
btnVorgeschrieben.Text = "VORGESCHR." 'btnVorgeschrieben.Text = "VORGESCHR."
btnFreigabe.Text = "FREIGABE" 'btnFreigabe.Text = "FREIGABE"
'btnVorgeschrieben.Text = "VORGESCHR." 'btnVorgeschrieben.Text = "VORGESCHR."
'btnVorgeschrieben.Text = "VORGESCHR." 'btnVorgeschrieben.Text = "VORGESCHR."
End If End If
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("STATUS_ATILLA") Then
Panel14.Visible = True
Panel15.Visible = True
Else
Panel14.Visible = False
Panel15.Visible = False
End If
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("ALLOW_STATUS2_VERIMEX") Then If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("ALLOW_STATUS2_VERIMEX") Then
Panel6.Visible = True Panel6.Visible = True
Else Else
@@ -289,8 +298,12 @@ Public Class usrcntlAktDetailsATILLANeu
lblStatus.Text = "ERFASST" : pnlStatus.BackColor = btnErfasst.BackColor lblStatus.Text = "ERFASST" : pnlStatus.BackColor = btnErfasst.BackColor
'Case VERAG_PROG_ALLGEMEIN.cglobal.Status_Vorbereitet 'Case VERAG_PROG_ALLGEMEIN.cglobal.Status_Vorbereitet
' lblStatus.Text = "VORBEREITET - QS" : pnlStatus.BackColor = btnVorbereitet.BackColor ' lblStatus.Text = "VORBEREITET - QS" : pnlStatus.BackColor = btnVorbereitet.BackColor
Case VERAG_PROG_ALLGEMEIN.cglobal.Status_Vorgeschrieben Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorgeschrieben
lblStatus.Text = "VORGESCHRIEBEN" : pnlStatus.BackColor = btnVorgeschrieben.BackColor lblStatus.Text = "VORGESCHRIEBEN" : pnlStatus.BackColor = btnVorgeschrieben.BackColor
Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_VERIMEX
lblStatus.Text = "AN VERIMEX" : pnlStatus.BackColor = btnAnVerimex.BackColor
Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_INDONESIEN
lblStatus.Text = "AN INDONESIEN" : pnlStatus.BackColor = btnAnIndonesien.BackColor
Case VERAG_PROG_ALLGEMEIN.cglobal.Status_Freigegeben Case VERAG_PROG_ALLGEMEIN.cglobal.Status_Freigegeben
lblStatus.Text = "FREIGABE" : pnlStatus.BackColor = btnFreigabe.BackColor lblStatus.Text = "FREIGABE" : pnlStatus.BackColor = btnFreigabe.BackColor
Button3.Visible = True Button3.Visible = True
@@ -1579,4 +1592,22 @@ Public Class usrcntlAktDetailsATILLANeu
frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
End If End If
End Sub End Sub
Private Sub FlowLayoutPanel_Paint(sender As Object, e As PaintEventArgs) Handles FlowLayoutPanel.Paint
End Sub
Private Sub btnAnVerimex_Click(sender As Object, e As EventArgs) Handles btnAnVerimex.Click
If FUNC.setAnVERIMEX(AvisoID) Then
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
End If
End Sub
Private Sub btnAnIndonesien_Click(sender As Object, e As EventArgs) Handles btnAnIndonesien.Click
If FUNC.setAnINDONESIEN(AvisoID) Then
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
End If
End Sub
End Class End Class

4
AvisoTV/AvisoTV.vbproj
View File

@@ -164,6 +164,10 @@
</None> </None>
</ItemGroup> </ItemGroup>
<ItemGroup> <ItemGroup>
<ProjectReference Include="..\..\..\SDL\SDL\VERAG_PROG_ALLGEMEIN\VERAG_PROG_ALLGEMEIN.vbproj">
<Project>{a3b497bd-842c-4a2b-b398-ed1976849df1}</Project>
<Name>VERAG_PROG_ALLGEMEIN</Name>
</ProjectReference>
<ProjectReference Include="..\Gemeinsames\Gemeinsames.vbproj"> <ProjectReference Include="..\Gemeinsames\Gemeinsames.vbproj">
<Project>{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}</Project> <Project>{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}</Project>
<Name>Gemeinsames</Name> <Name>Gemeinsames</Name>

7
AvisoTV/frmAnzeige.vb
View File

@@ -211,19 +211,20 @@ Public Class frmAnzeige
If StandortATILLA Then If StandortATILLA Then
buero = " , Buero " buero = " , Buero "
End If End If
Dim stat_tmp As String = cGlobal.Status_Ankunft.ToString Dim stat_tmp As String = cGlobal.Status_Ankunft.ToString & ", " & cGlobal.Status_ATILLA_VERIMEX.ToString & ", " & cGlobal.Status_ATILLA_INDONESIEN.ToString
Dim ank_tmp As String = "" Dim ank_tmp As String = ""
If seiten Then ank_tmp = " And Ankunft > " & SQLDatumZeitSekunden(Merk_Ankunftsdatum) If seiten Then ank_tmp = " And Ankunft > " & SQLDatumZeitSekunden(Merk_Ankunftsdatum)
If onlyOK Then ank_tmp = " And LKW_fertig = 1 " If onlyOK Then ank_tmp = " And LKW_fertig = 1 "
If False Then 'alle Staten If False Then 'alle Staten
stat_tmp = "3,99,4,5,0" stat_tmp = "3,6,7,99,4,5,0"
ank_tmp = "" ank_tmp = ""
End If End If
where = " WHERE " where = " WHERE "
Dim hSQL As String = "SELECT AvisoID, Status, UPPER(LKW_Nr) as LKW_Nr, Ankunft, Dauer, letzterMitarbeiter,WeiterleitungTextTV, LKW_fertig " & buero & " , AvisoTVHinweis, ImEx, ZOLLDigitalEingereicht FROM Aviso " Dim hSQL As String = "SELECT AvisoID, Status, UPPER(LKW_Nr) as LKW_Nr, Ankunft, Dauer, letzterMitarbeiter,WeiterleitungTextTV, LKW_fertig " & buero & " , AvisoTVHinweis, ImEx, ZOLLDigitalEingereicht FROM Aviso "
where &= " Status IN( " & stat_tmp & ") " where &= " Status IN( " & stat_tmp & ") "
where &= " AND Ankunft is not null "
If CLUSTER <> "" Then If CLUSTER <> "" Then
where &= " AND (Firma= '" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR Cluster= '" & CLUSTER & "') " where &= " AND (Firma= '" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR Cluster= '" & CLUSTER & "') "
ElseIf Standort <> "WAI" And Standort <> "SBG" And Standort <> "NKD" Then ElseIf Standort <> "WAI" And Standort <> "SBG" And Standort <> "NKD" Then
@@ -235,6 +236,8 @@ Public Class frmAnzeige
hSQL &= where hSQL &= where
hSQL += ank_tmp & " ORDER BY CASE " & hSQL += ank_tmp & " ORDER BY CASE " &
" when [Status] =3 then 1 " & " when [Status] =3 then 1 " &
" when [Status] =6 then 0.5 " &
" when [Status] =7 then 0.5 " &
" when [Status] =99 then 2 " & " when [Status] =99 then 2 " &
" when [Status] =4 then 3 " & " when [Status] =4 then 3 " &
" when [Status] =5 then 4 " & " when [Status] =5 then 4 " &