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

vers

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-01-29 21:39:51 +01:00
parent 791a40b385
commit 6c2d55297b
4 changed files with 400 additions and 239 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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("4.0.8.2")> <Assembly: AssemblyVersion("4.0.8.5")>
<Assembly: AssemblyFileVersion("4.0.8.2")> <Assembly: AssemblyFileVersion("4.0.8.5")>

53
Aviso/frmHauptfenster.vb
View File

@@ -2837,34 +2837,35 @@ ELSE_ATILLA:
If e.Button = MouseButtons.Right Then If e.Button = MouseButtons.Right Then
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then If True Then
If sender Is gridAviso Then 'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpId ' If sender Is gridAviso Then
sender.CurrentCell = sender.Rows(e.RowIndex).Cells(e.ColumnIndex) ' VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpId
conMenuAviso.Show(Cursor.Position) ' sender.CurrentCell = sender.Rows(e.RowIndex).Cells(e.ColumnIndex)
End If ' conMenuAviso.Show(Cursor.Position)
Else ' End If
'Else
setAkive_AuswahlID() setAkive_AuswahlID()
avisoAktualisierenAktiveIdBehalten(tmpId, , False) avisoAktualisierenAktiveIdBehalten(tmpId, , False)
Dim hStatus = AvisoDAL.LesenAviso(tmpId, "").Status Dim hStatus = AvisoDAL.LesenAviso(tmpId, "").Status
If hStatus <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft And hStatus <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorgeschrieben And hStatus <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Erfasst And hStatus <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorbereitet Then If hStatus <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft And hStatus <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorgeschrieben And hStatus <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Erfasst And hStatus <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorbereitet Then
'MsgBox("Ein Vermerk kann nur erfasst werden, wenn der Status des Aviso auf 'Erfasst', 'Vorbereitet', 'Vorgeschrieben' oder 'Ankunft' steht.", vbInformation) 'MsgBox("Ein Vermerk kann nur erfasst werden, wenn der Status des Aviso auf 'Erfasst', 'Vorbereitet', 'Vorgeschrieben' oder 'Ankunft' steht.", vbInformation)
lblErrVermerk.Width = 300 lblErrVermerk.Width = 300
lblErrVermerk.Visible = True lblErrVermerk.Visible = True
hideErr.Enabled = True hideErr.Enabled = True
Exit Sub Exit Sub
End If
Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
Dim sv As New frmAddAktenvermerkShort(tmpId)
sv.Location = Me.PointToClient(Cursor.Position)
' sv.ShowDialog()
sv.ShowDialog(frmGrayOut)
frmGrayOut.Close()
End If End If
ElseIf e.Button = MouseButtons.Left Then
Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm() VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpId
Dim sv As New frmAddAktenvermerkShort(tmpId)
sv.Location = Me.PointToClient(Cursor.Position)
' sv.ShowDialog()
sv.ShowDialog(frmGrayOut)
frmGrayOut.Close()
End If
ElseIf e.Button = MouseButtons.Left Then
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpId
avisoAktualisierenAktiveIdBehalten(tmpId, , False) avisoAktualisierenAktiveIdBehalten(tmpId, , False)
End If End If
End Sub End Sub

543
Aviso/usrcntlAktDetails.Designer.vb generated
View File

@@ -45,17 +45,13 @@ Partial Class usrcntlAktDetails
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()
@@ -65,8 +61,6 @@ Partial Class usrcntlAktDetails
Me.btnQuckScan = New System.Windows.Forms.Button() Me.btnQuckScan = New System.Windows.Forms.Button()
Me.picArrowDown = New System.Windows.Forms.PictureBox() Me.picArrowDown = New System.Windows.Forms.PictureBox()
Me.Panel4 = New System.Windows.Forms.Panel() Me.Panel4 = New System.Windows.Forms.Panel()
Me.cbxLZDeFisk = New VERAG_PROG_ALLGEMEIN.MyCheckbox(Me.components)
Me.cbxLZT1 = New VERAG_PROG_ALLGEMEIN.MyCheckbox(Me.components)
Me.Button2 = New System.Windows.Forms.Button() Me.Button2 = New System.Windows.Forms.Button()
Me.cbxVPSplit = New System.Windows.Forms.CheckBox() Me.cbxVPSplit = New System.Windows.Forms.CheckBox()
Me.btnLZDruckDIGITAL = New System.Windows.Forms.Button() Me.btnLZDruckDIGITAL = New System.Windows.Forms.Button()
@@ -75,13 +69,11 @@ Partial Class usrcntlAktDetails
Me.btnAlleSteuerbescheide = New System.Windows.Forms.Button() Me.btnAlleSteuerbescheide = New System.Windows.Forms.Button()
Me.btnAlleAkendeckel = New System.Windows.Forms.Button() Me.btnAlleAkendeckel = New System.Windows.Forms.Button()
Me.btnDipoListe = 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.btnSA_Gestellung = 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.btnDipoListeEmail = New System.Windows.Forms.Button() Me.btnDipoListeEmail = New System.Windows.Forms.Button()
Me.btnDispohaft = New System.Windows.Forms.Button() Me.btnDispohaft = New System.Windows.Forms.Button()
Me.cbxLZRg = 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()
@@ -136,7 +128,7 @@ Partial Class usrcntlAktDetails
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.pnlStatus2Vorgeschr = New System.Windows.Forms.Panel()
Me.btnVorbereitet = New System.Windows.Forms.Button() Me.btnVorbereitet = New System.Windows.Forms.Button()
Me.lblTimeVorbereitet = New System.Windows.Forms.Label() Me.lblTimeVorbereitet = New System.Windows.Forms.Label()
Me.Panel13 = New System.Windows.Forms.Panel() Me.Panel13 = New System.Windows.Forms.Panel()
@@ -145,6 +137,12 @@ Partial Class usrcntlAktDetails
Me.Panel11 = New System.Windows.Forms.Panel() Me.Panel11 = New System.Windows.Forms.Panel()
Me.btnAnkunft = New System.Windows.Forms.Button() Me.btnAnkunft = New System.Windows.Forms.Button()
Me.lblTimeAnkunft = New System.Windows.Forms.Label() Me.lblTimeAnkunft = New System.Windows.Forms.Label()
Me.pnlStatusVERIMEX = New System.Windows.Forms.Panel()
Me.btnAnVerimex = New System.Windows.Forms.Button()
Me.Label8 = New System.Windows.Forms.Label()
Me.pnlStatusINDONESIEN = New System.Windows.Forms.Panel()
Me.btnAnIndonesien = New System.Windows.Forms.Button()
Me.Label1 = New System.Windows.Forms.Label()
Me.Panel12 = New System.Windows.Forms.Panel() Me.Panel12 = New System.Windows.Forms.Panel()
Me.btnFreigabe = New System.Windows.Forms.Button() Me.btnFreigabe = New System.Windows.Forms.Button()
Me.lblTimeFreigabe = New System.Windows.Forms.Label() Me.lblTimeFreigabe = New System.Windows.Forms.Label()
@@ -178,6 +176,15 @@ 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.Button9 = New System.Windows.Forms.Button()
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.cbxLZDeFisk = New VERAG_PROG_ALLGEMEIN.MyCheckbox(Me.components)
Me.cbxLZT1 = New VERAG_PROG_ALLGEMEIN.MyCheckbox(Me.components)
Me.cboFormulareRgAn = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cbxLZRg = 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()
@@ -206,9 +213,11 @@ Partial Class usrcntlAktDetails
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
Me.FlowLayoutPanel.SuspendLayout() Me.FlowLayoutPanel.SuspendLayout()
Me.Panel9.SuspendLayout() Me.Panel9.SuspendLayout()
Me.Panel10.SuspendLayout() Me.pnlStatus2Vorgeschr.SuspendLayout()
Me.Panel13.SuspendLayout() Me.Panel13.SuspendLayout()
Me.Panel11.SuspendLayout() Me.Panel11.SuspendLayout()
Me.pnlStatusVERIMEX.SuspendLayout()
Me.pnlStatusINDONESIEN.SuspendLayout()
Me.Panel12.SuspendLayout() Me.Panel12.SuspendLayout()
Me.pnl.SuspendLayout() Me.pnl.SuspendLayout()
Me.pnlStatus.SuspendLayout() Me.pnlStatus.SuspendLayout()
@@ -239,9 +248,9 @@ Partial Class usrcntlAktDetails
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, 105) Me.Panel3.Location = New System.Drawing.Point(0, 164)
Me.Panel3.Name = "Panel3" Me.Panel3.Name = "Panel3"
Me.Panel3.Size = New System.Drawing.Size(575, 629) Me.Panel3.Size = New System.Drawing.Size(575, 570)
Me.Panel3.TabIndex = 91 Me.Panel3.TabIndex = 91
' '
'SplitContainer 'SplitContainer
@@ -269,8 +278,8 @@ Partial Class usrcntlAktDetails
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.Panel2.Controls.Add(Me.pnlMAInfo) Me.SplitContainer.Panel2.Controls.Add(Me.pnlMAInfo)
Me.SplitContainer.Size = New System.Drawing.Size(575, 509) Me.SplitContainer.Size = New System.Drawing.Size(575, 450)
Me.SplitContainer.SplitterDistance = 233 Me.SplitContainer.SplitterDistance = 197
Me.SplitContainer.TabIndex = 91 Me.SplitContainer.TabIndex = 91
' '
'pnlAlt 'pnlAlt
@@ -283,7 +292,7 @@ Partial Class usrcntlAktDetails
Me.pnlAlt.Dock = System.Windows.Forms.DockStyle.Fill Me.pnlAlt.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnlAlt.Location = New System.Drawing.Point(0, 0) Me.pnlAlt.Location = New System.Drawing.Point(0, 0)
Me.pnlAlt.Name = "pnlAlt" Me.pnlAlt.Name = "pnlAlt"
Me.pnlAlt.Size = New System.Drawing.Size(575, 233) Me.pnlAlt.Size = New System.Drawing.Size(575, 197)
Me.pnlAlt.TabIndex = 72 Me.pnlAlt.TabIndex = 72
Me.pnlAlt.Visible = False Me.pnlAlt.Visible = False
' '
@@ -372,32 +381,6 @@ 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)
@@ -434,33 +417,6 @@ 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
@@ -488,32 +444,6 @@ 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
@@ -523,32 +453,6 @@ 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
@@ -654,7 +558,7 @@ Partial Class usrcntlAktDetails
Me.dgvSendungen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect Me.dgvSendungen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvSendungen.ShowCellErrors = False Me.dgvSendungen.ShowCellErrors = False
Me.dgvSendungen.ShowRowErrors = False Me.dgvSendungen.ShowRowErrors = False
Me.dgvSendungen.Size = New System.Drawing.Size(575, 233) Me.dgvSendungen.Size = New System.Drawing.Size(575, 197)
Me.dgvSendungen.TabIndex = 71 Me.dgvSendungen.TabIndex = 71
Me.dgvSendungen.TabStop = False Me.dgvSendungen.TabStop = False
' '
@@ -666,7 +570,7 @@ Partial Class usrcntlAktDetails
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, 108) Me.Panel7.Size = New System.Drawing.Size(1, 65)
Me.Panel7.TabIndex = 15 Me.Panel7.TabIndex = 15
' '
'btnQuckScan 'btnQuckScan
@@ -675,7 +579,7 @@ Partial Class usrcntlAktDetails
Me.btnQuckScan.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnQuckScan.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnQuckScan.Image = CType(resources.GetObject("btnQuckScan.Image"), System.Drawing.Image) Me.btnQuckScan.Image = CType(resources.GetObject("btnQuckScan.Image"), System.Drawing.Image)
Me.btnQuckScan.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnQuckScan.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnQuckScan.Location = New System.Drawing.Point(468, 203) Me.btnQuckScan.Location = New System.Drawing.Point(468, 167)
Me.btnQuckScan.Name = "btnQuckScan" Me.btnQuckScan.Name = "btnQuckScan"
Me.btnQuckScan.Size = New System.Drawing.Size(107, 34) Me.btnQuckScan.Size = New System.Drawing.Size(107, 34)
Me.btnQuckScan.TabIndex = 107 Me.btnQuckScan.TabIndex = 107
@@ -690,7 +594,7 @@ Partial Class usrcntlAktDetails
Me.picArrowDown.BackgroundImage = Global.AVISO.My.Resources.Resources.arrow_down_orange Me.picArrowDown.BackgroundImage = Global.AVISO.My.Resources.Resources.arrow_down_orange
Me.picArrowDown.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch Me.picArrowDown.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Me.picArrowDown.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.picArrowDown.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.picArrowDown.Location = New System.Drawing.Point(1, 221) Me.picArrowDown.Location = New System.Drawing.Point(1, 185)
Me.picArrowDown.Name = "picArrowDown" Me.picArrowDown.Name = "picArrowDown"
Me.picArrowDown.Size = New System.Drawing.Size(36, 50) Me.picArrowDown.Size = New System.Drawing.Size(36, 50)
Me.picArrowDown.TabIndex = 104 Me.picArrowDown.TabIndex = 104
@@ -702,6 +606,7 @@ Partial Class usrcntlAktDetails
Me.Panel4.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.Panel4.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Panel4.BackColor = System.Drawing.Color.PapayaWhip Me.Panel4.BackColor = System.Drawing.Color.PapayaWhip
Me.Panel4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.Panel4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Panel4.Controls.Add(Me.Button9)
Me.Panel4.Controls.Add(Me.cbxLZDeFisk) Me.Panel4.Controls.Add(Me.cbxLZDeFisk)
Me.Panel4.Controls.Add(Me.cbxLZT1) Me.Panel4.Controls.Add(Me.cbxLZT1)
Me.Panel4.Controls.Add(Me.Button2) Me.Panel4.Controls.Add(Me.Button2)
@@ -725,35 +630,6 @@ Partial Class usrcntlAktDetails
Me.Panel4.TabIndex = 102 Me.Panel4.TabIndex = 102
Me.Panel4.Visible = False Me.Panel4.Visible = False
' '
'cbxLZDeFisk
'
Me.cbxLZDeFisk._value = ""
Me.cbxLZDeFisk.AutoSize = True
Me.cbxLZDeFisk.Checked_value = False
Me.cbxLZDeFisk.CheckedValue = False
Me.cbxLZDeFisk.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!)
Me.cbxLZDeFisk.Location = New System.Drawing.Point(205, 93)
Me.cbxLZDeFisk.Name = "cbxLZDeFisk"
Me.cbxLZDeFisk.Size = New System.Drawing.Size(62, 17)
Me.cbxLZDeFisk.TabIndex = 118
Me.cbxLZDeFisk.Text = "DE Fisk"
Me.cbxLZDeFisk.UseVisualStyleBackColor = True
'
'cbxLZT1
'
Me.cbxLZT1._value = ""
Me.cbxLZT1.AutoSize = True
Me.cbxLZT1.Checked_value = False
Me.cbxLZT1.CheckedValue = False
Me.cbxLZT1.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!)
Me.cbxLZT1.Location = New System.Drawing.Point(172, 93)
Me.cbxLZT1.Name = "cbxLZT1"
Me.cbxLZT1.Size = New System.Drawing.Size(37, 17)
Me.cbxLZT1.TabIndex = 114
Me.cbxLZT1.Text = "T1"
Me.cbxLZT1.UseVisualStyleBackColor = True
Me.cbxLZT1.Visible = False
'
'Button2 'Button2
' '
Me.Button2.BackColor = System.Drawing.Color.White Me.Button2.BackColor = System.Drawing.Color.White
@@ -761,7 +637,7 @@ Partial Class usrcntlAktDetails
Me.Button2.ForeColor = System.Drawing.Color.Black Me.Button2.ForeColor = System.Drawing.Color.Black
Me.Button2.Image = Global.AVISO.My.Resources.Resources.spedbuch_small Me.Button2.Image = Global.AVISO.My.Resources.Resources.spedbuch_small
Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button2.Location = New System.Drawing.Point(52, 166) Me.Button2.Location = New System.Drawing.Point(188, 139)
Me.Button2.Margin = New System.Windows.Forms.Padding(0) Me.Button2.Margin = New System.Windows.Forms.Padding(0)
Me.Button2.Name = "Button2" Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(76, 20) Me.Button2.Size = New System.Drawing.Size(76, 20)
@@ -879,17 +755,6 @@ Partial Class usrcntlAktDetails
Me.btnDipoListe.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.btnDipoListe.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnDipoListe.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
' '
Me.Label4.AutoSize = True Me.Label4.AutoSize = True
@@ -964,29 +829,13 @@ Partial Class usrcntlAktDetails
Me.btnDispohaft.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.btnDispohaft.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.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!)
Me.cbxLZRg.Location = New System.Drawing.Point(134, 93)
Me.cbxLZRg.Name = "cbxLZRg"
Me.cbxLZRg.Size = New System.Drawing.Size(41, 17)
Me.cbxLZRg.TabIndex = 115
Me.cbxLZRg.Text = "RG"
Me.cbxLZRg.UseVisualStyleBackColor = True
'
'Button18 'Button18
' '
Me.Button18.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.Button18.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button18.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button18.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button18.Image = CType(resources.GetObject("Button18.Image"), System.Drawing.Image) Me.Button18.Image = CType(resources.GetObject("Button18.Image"), System.Drawing.Image)
Me.Button18.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.Button18.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button18.Location = New System.Drawing.Point(447, 236) Me.Button18.Location = New System.Drawing.Point(447, 200)
Me.Button18.Name = "Button18" Me.Button18.Name = "Button18"
Me.Button18.Size = New System.Drawing.Size(128, 34) Me.Button18.Size = New System.Drawing.Size(128, 34)
Me.Button18.TabIndex = 103 Me.Button18.TabIndex = 103
@@ -1046,7 +895,7 @@ Partial Class usrcntlAktDetails
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, 208) Me.gridVermerke.Size = New System.Drawing.Size(575, 185)
Me.gridVermerke.TabIndex = 70 Me.gridVermerke.TabIndex = 70
Me.gridVermerke.TabStop = False Me.gridVermerke.TabStop = False
' '
@@ -1198,7 +1047,7 @@ Partial Class usrcntlAktDetails
Me.pnlMAInfo.Controls.Add(Me.txtMAinfo_Vorgeschrieben) Me.pnlMAInfo.Controls.Add(Me.txtMAinfo_Vorgeschrieben)
Me.pnlMAInfo.Controls.Add(Me.txtMAinfo_VorbereitetQs) Me.pnlMAInfo.Controls.Add(Me.txtMAinfo_VorbereitetQs)
Me.pnlMAInfo.Dock = System.Windows.Forms.DockStyle.Bottom Me.pnlMAInfo.Dock = System.Windows.Forms.DockStyle.Bottom
Me.pnlMAInfo.Location = New System.Drawing.Point(0, 238) Me.pnlMAInfo.Location = New System.Drawing.Point(0, 215)
Me.pnlMAInfo.Name = "pnlMAInfo" Me.pnlMAInfo.Name = "pnlMAInfo"
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
@@ -1724,15 +1573,17 @@ Partial Class usrcntlAktDetails
' '
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.pnlStatus2Vorgeschr)
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.pnlStatusVERIMEX)
Me.FlowLayoutPanel.Controls.Add(Me.pnlStatusINDONESIEN)
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.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, 69) Me.FlowLayoutPanel.Size = New System.Drawing.Size(575, 128)
Me.FlowLayoutPanel.TabIndex = 13 Me.FlowLayoutPanel.TabIndex = 13
' '
'Panel9 'Panel9
@@ -1743,7 +1594,7 @@ Partial Class usrcntlAktDetails
Me.Panel9.Location = New System.Drawing.Point(2, 2) Me.Panel9.Location = New System.Drawing.Point(2, 2)
Me.Panel9.Margin = New System.Windows.Forms.Padding(2, 2, 1, 2) Me.Panel9.Margin = New System.Windows.Forms.Padding(2, 2, 1, 2)
Me.Panel9.Name = "Panel9" Me.Panel9.Name = "Panel9"
Me.Panel9.Size = New System.Drawing.Size(100, 58) Me.Panel9.Size = New System.Drawing.Size(90, 58)
Me.Panel9.TabIndex = 15 Me.Panel9.TabIndex = 15
' '
'btnErfasst 'btnErfasst
@@ -1758,9 +1609,9 @@ Partial Class usrcntlAktDetails
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, 46) Me.btnErfasst.Size = New System.Drawing.Size(90, 46)
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
@@ -1771,21 +1622,21 @@ Partial Class usrcntlAktDetails
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, 46) Me.lblTimeErfasst.Location = New System.Drawing.Point(0, 46)
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 'pnlStatus2Vorgeschr
' '
Me.Panel10.AutoSize = True Me.pnlStatus2Vorgeschr.AutoSize = True
Me.Panel10.Controls.Add(Me.btnVorbereitet) Me.pnlStatus2Vorgeschr.Controls.Add(Me.btnVorbereitet)
Me.Panel10.Controls.Add(Me.lblTimeVorbereitet) Me.pnlStatus2Vorgeschr.Controls.Add(Me.lblTimeVorbereitet)
Me.Panel10.Location = New System.Drawing.Point(104, 2) Me.pnlStatus2Vorgeschr.Location = New System.Drawing.Point(94, 2)
Me.Panel10.Margin = New System.Windows.Forms.Padding(1, 2, 1, 2) Me.pnlStatus2Vorgeschr.Margin = New System.Windows.Forms.Padding(1, 2, 1, 2)
Me.Panel10.Name = "Panel10" Me.pnlStatus2Vorgeschr.Name = "pnlStatus2Vorgeschr"
Me.Panel10.Size = New System.Drawing.Size(147, 59) Me.pnlStatus2Vorgeschr.Size = New System.Drawing.Size(147, 59)
Me.Panel10.TabIndex = 16 Me.pnlStatus2Vorgeschr.TabIndex = 16
' '
'btnVorbereitet 'btnVorbereitet
' '
@@ -1822,7 +1673,7 @@ Partial Class usrcntlAktDetails
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(253, 2) Me.Panel13.Location = New System.Drawing.Point(243, 2)
Me.Panel13.Margin = New System.Windows.Forms.Padding(1, 2, 1, 2) Me.Panel13.Margin = New System.Windows.Forms.Padding(1, 2, 1, 2)
Me.Panel13.Name = "Panel13" Me.Panel13.Name = "Panel13"
Me.Panel13.Size = New System.Drawing.Size(112, 59) Me.Panel13.Size = New System.Drawing.Size(112, 59)
@@ -1863,10 +1714,10 @@ Partial Class usrcntlAktDetails
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(367, 2) Me.Panel11.Location = New System.Drawing.Point(357, 2)
Me.Panel11.Margin = New System.Windows.Forms.Padding(1, 2, 1, 2) Me.Panel11.Margin = New System.Windows.Forms.Padding(1, 2, 1, 2)
Me.Panel11.Name = "Panel11" Me.Panel11.Name = "Panel11"
Me.Panel11.Size = New System.Drawing.Size(100, 59) Me.Panel11.Size = New System.Drawing.Size(90, 59)
Me.Panel11.TabIndex = 17 Me.Panel11.TabIndex = 17
' '
'btnAnkunft 'btnAnkunft
@@ -1881,9 +1732,9 @@ Partial Class usrcntlAktDetails
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, 46) Me.btnAnkunft.Size = New System.Drawing.Size(90, 46)
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
@@ -1894,17 +1745,99 @@ Partial Class usrcntlAktDetails
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, 46) Me.lblTimeAnkunft.Location = New System.Drawing.Point(0, 46)
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
' '
'pnlStatusVERIMEX
'
Me.pnlStatusVERIMEX.AutoSize = True
Me.pnlStatusVERIMEX.Controls.Add(Me.btnAnVerimex)
Me.pnlStatusVERIMEX.Controls.Add(Me.Label8)
Me.pnlStatusVERIMEX.Location = New System.Drawing.Point(450, 3)
Me.pnlStatusVERIMEX.Margin = New System.Windows.Forms.Padding(2, 3, 2, 3)
Me.pnlStatusVERIMEX.Name = "pnlStatusVERIMEX"
Me.pnlStatusVERIMEX.Size = New System.Drawing.Size(80, 58)
Me.pnlStatusVERIMEX.TabIndex = 21
Me.pnlStatusVERIMEX.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, 45)
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, 45)
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
'
'pnlStatusINDONESIEN
'
Me.pnlStatusINDONESIEN.AutoSize = True
Me.pnlStatusINDONESIEN.Controls.Add(Me.btnAnIndonesien)
Me.pnlStatusINDONESIEN.Controls.Add(Me.Label1)
Me.pnlStatusINDONESIEN.Location = New System.Drawing.Point(2, 67)
Me.pnlStatusINDONESIEN.Margin = New System.Windows.Forms.Padding(2, 3, 2, 3)
Me.pnlStatusINDONESIEN.Name = "pnlStatusINDONESIEN"
Me.pnlStatusINDONESIEN.Size = New System.Drawing.Size(80, 58)
Me.pnlStatusINDONESIEN.TabIndex = 22
Me.pnlStatusINDONESIEN.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(80, 45)
Me.btnAnIndonesien.TabIndex = 12
Me.btnAnIndonesien.Text = "An:" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "INDONES."
Me.btnAnIndonesien.UseVisualStyleBackColor = False
'
'Label1
'
Me.Label1.Dock = System.Windows.Forms.DockStyle.Bottom
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(0, 45)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(80, 13)
Me.Label1.TabIndex = 0
Me.Label1.Text = "-"
Me.Label1.TextAlign = System.Drawing.ContentAlignment.TopCenter
'
'Panel12 'Panel12
' '
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(469, 2) Me.Panel12.Location = New System.Drawing.Point(85, 66)
Me.Panel12.Margin = New System.Windows.Forms.Padding(1, 2, 2, 2) Me.Panel12.Margin = New System.Windows.Forms.Padding(1, 2, 2, 2)
Me.Panel12.Name = "Panel12" Me.Panel12.Name = "Panel12"
Me.Panel12.Size = New System.Drawing.Size(100, 58) Me.Panel12.Size = New System.Drawing.Size(100, 58)
@@ -1943,7 +1876,7 @@ Partial Class usrcntlAktDetails
'Panel2 'Panel2
' '
Me.Panel2.AutoSize = True Me.Panel2.AutoSize = True
Me.Panel2.Location = New System.Drawing.Point(3, 66) Me.Panel2.Location = New System.Drawing.Point(190, 67)
Me.Panel2.Name = "Panel2" Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(0, 0) Me.Panel2.Size = New System.Drawing.Size(0, 0)
Me.Panel2.TabIndex = 18 Me.Panel2.TabIndex = 18
@@ -2313,6 +2246,183 @@ 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
' '
'Button9
'
Me.Button9.BackColor = System.Drawing.Color.White
Me.Button9.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.Button9.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button9.Image = Global.AVISO.My.Resources.Resources.beleg1
Me.Button9.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button9.Location = New System.Drawing.Point(5, 147)
Me.Button9.Name = "Button9"
Me.Button9.Size = New System.Drawing.Size(123, 36)
Me.Button9.TabIndex = 119
Me.Button9.Text = "ATILLA" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Aktendeckel"
Me.Button9.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button9.UseVisualStyleBackColor = False
Me.Button9.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
'
'cbxLZDeFisk
'
Me.cbxLZDeFisk._value = ""
Me.cbxLZDeFisk.AutoSize = True
Me.cbxLZDeFisk.Checked_value = False
Me.cbxLZDeFisk.CheckedValue = False
Me.cbxLZDeFisk.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!)
Me.cbxLZDeFisk.Location = New System.Drawing.Point(205, 93)
Me.cbxLZDeFisk.Name = "cbxLZDeFisk"
Me.cbxLZDeFisk.Size = New System.Drawing.Size(62, 17)
Me.cbxLZDeFisk.TabIndex = 118
Me.cbxLZDeFisk.Text = "DE Fisk"
Me.cbxLZDeFisk.UseVisualStyleBackColor = True
'
'cbxLZT1
'
Me.cbxLZT1._value = ""
Me.cbxLZT1.AutoSize = True
Me.cbxLZT1.Checked_value = False
Me.cbxLZT1.CheckedValue = False
Me.cbxLZT1.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!)
Me.cbxLZT1.Location = New System.Drawing.Point(172, 93)
Me.cbxLZT1.Name = "cbxLZT1"
Me.cbxLZT1.Size = New System.Drawing.Size(37, 17)
Me.cbxLZT1.TabIndex = 114
Me.cbxLZT1.Text = "T1"
Me.cbxLZT1.UseVisualStyleBackColor = True
Me.cbxLZT1.Visible = 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
'
'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.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!)
Me.cbxLZRg.Location = New System.Drawing.Point(134, 93)
Me.cbxLZRg.Name = "cbxLZRg"
Me.cbxLZRg.Size = New System.Drawing.Size(41, 17)
Me.cbxLZRg.TabIndex = 115
Me.cbxLZRg.Text = "RG"
Me.cbxLZRg.UseVisualStyleBackColor = True
'
'usrcntlAktDetails 'usrcntlAktDetails
' '
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
@@ -2358,12 +2468,16 @@ Partial Class usrcntlAktDetails
Me.FlowLayoutPanel.PerformLayout() Me.FlowLayoutPanel.PerformLayout()
Me.Panel9.ResumeLayout(False) Me.Panel9.ResumeLayout(False)
Me.Panel9.PerformLayout() Me.Panel9.PerformLayout()
Me.Panel10.ResumeLayout(False) Me.pnlStatus2Vorgeschr.ResumeLayout(False)
Me.Panel10.PerformLayout() Me.pnlStatus2Vorgeschr.PerformLayout()
Me.Panel13.ResumeLayout(False) Me.Panel13.ResumeLayout(False)
Me.Panel13.PerformLayout() Me.Panel13.PerformLayout()
Me.Panel11.ResumeLayout(False) Me.Panel11.ResumeLayout(False)
Me.Panel11.PerformLayout() Me.Panel11.PerformLayout()
Me.pnlStatusVERIMEX.ResumeLayout(False)
Me.pnlStatusVERIMEX.PerformLayout()
Me.pnlStatusINDONESIEN.ResumeLayout(False)
Me.pnlStatusINDONESIEN.PerformLayout()
Me.Panel12.ResumeLayout(False) Me.Panel12.ResumeLayout(False)
Me.Panel12.PerformLayout() Me.Panel12.PerformLayout()
Me.pnl.ResumeLayout(False) Me.pnl.ResumeLayout(False)
@@ -2396,8 +2510,7 @@ Partial Class usrcntlAktDetails
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 pnlStatus2Vorgeschr As System.Windows.Forms.Panel
Friend WithEvents btnVorbereitet As System.Windows.Forms.Button
Friend WithEvents lblTimeVorbereitet As System.Windows.Forms.Label Friend WithEvents lblTimeVorbereitet As System.Windows.Forms.Label
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
@@ -2520,4 +2633,12 @@ Partial Class usrcntlAktDetails
Friend WithEvents Button1 As Button Friend WithEvents Button1 As Button
Friend WithEvents Button8 As Button Friend WithEvents Button8 As Button
Friend WithEvents btnQRVerwahrung As Button Friend WithEvents btnQRVerwahrung As Button
Friend WithEvents btnVorbereitet As Button
Friend WithEvents pnlStatusVERIMEX As Panel
Friend WithEvents btnAnVerimex As Button
Friend WithEvents Label8 As Label
Friend WithEvents pnlStatusINDONESIEN As Panel
Friend WithEvents btnAnIndonesien As Button
Friend WithEvents Label1 As Label
Friend WithEvents Button9 As Button
End Class End Class

39
Aviso/usrcntlAktDetails.vb
View File

@@ -194,8 +194,23 @@ Public Class usrcntlAktDetails
cboFormulareRgAn.changeItem("AVISIERER") cboFormulareRgAn.changeItem("AVISIERER")
Select Case If(AVISO.FIRMA <> "", AVISO.FIRMA, VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
Case "ATILLA"
pnlStatus2Vorgeschr.Visible = False
pnlStatusVERIMEX.Visible = True
pnlStatusINDONESIEN.Visible = True
Button9.Visible = True
Case Else
pnlStatus2Vorgeschr.Visible = True
pnlStatusVERIMEX.Visible = False
pnlStatusINDONESIEN.Visible = False
Button9.Visible = False
End Select
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "UNISPED" : btnSendungslisteUNISPED.Visible = True Case "UNISPED" : btnSendungslisteUNISPED.Visible = True
End Select End Select
If My.Computer.Screen.WorkingArea.Width < 1300 Or VERAG_PROG_ALLGEMEIN.cAllgemein.dpi > 96 Then If My.Computer.Screen.WorkingArea.Width < 1300 Or VERAG_PROG_ALLGEMEIN.cAllgemein.dpi > 96 Then
@@ -3872,5 +3887,29 @@ Public Class usrcntlAktDetails
End Sub 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
Private Sub Button9_Click_1(sender As Object, e As EventArgs) Handles Button9.Click
Dim SND = Nothing
Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, -1, AvisoID) 'LÄDT alle SENDUNGSDATEN
If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 Then
SND = SENDUNG_LIST(0)
SendungOptions.PrintSendungATILLA("PRINT", SND, AVISO, (New System.Drawing.Printing.PrinterSettings).PrinterName)
Panel4.Visible = False
End If
End Sub
End Class End Class